Ok- John- I used a heavy handed way to code Stochrsi- and it works-haven't yet tried to switch to your "fency vay" but here is my problem- I have a trip stochrsi oversold scan I run in a 3 step- because I can't figure out how to set RSI for 3 different values in one scan: SO I RUN 3 SCANS ONE AFTER THE OTHER!
scan #1:
output="3srsi-a"
input="watch.lst"
set rsi=8
float y
y :=((rsi(0)-min(0,-7,rsi))/(.000001+max(0,-7,rsi)-min(0,-7,rsi))*(33.3333))+ ((rsi(-1)-min(-1,-8,rsi))/(.000001+max(-1,-8,rsi)-min(-1,-8,rsi))*26.6666)+((rsi(-2)-min(-2,-9,rsi))/(.000001+max(-2,-9,rsi)-min(-2,-9,rsi))*20.0000)+((rsi(-3)-min(-3,-10,rsi))/(.000001+max(-3,-10,rsi)-min(-3,-10,rsi))*13.3333)+((rsi(-4)-min(-4,-11,rsi))/(.000001+max(-4,-11,rsi)-min(-4,-11,rsi))*6.6666)
if y <15 and qrs(0)>70 and wmovavg(0,9,cl) >wmovavg(0,55,cl) and wmovavg(0,21,cl)> wmovavg(0,55,cl) and close(0) < 35 then
Println Symbol, ",",close(0),",",eps1growth,",",qrs(0),",",y,","
endif
scan #2:
output="3srsi-b"
input="3srsi-a.lst"
set rsi=13
float x
x :=((rsi(0)-min(0,-12,rsi))/(.000001+max(0,-12,rsi)-min(0,-12,rsi))*(14.2857))+ ((rsi(-1)-min(-1,-13,rsi))/(.000001+max(-1,-13,rsi)-min(-1,-13,rsi))*13.1868)+((rsi(-2)-min(-2,-14,rsi))/(.000001+max(-2,-14,rsi)-min(-2,-14,rsi))*12.0879)+((rsi(-3)-min(-3,-15,rsi))/(.000001+max(-3,-15,rsi)-min(-3,-15,rsi))*10.9890)+((rsi(-4)-min(-4,-16,rsi))/(.000001+max(-4,-16,rsi)-min(-4,-16,rsi))*9.8901)+((rsi(-5)-min(-5,-17,rsi))/(.000001+max(-5,-17,rsi)-min(-5,-17,rsi))*8.7912)+((rsi(-6)-min(-6,-18,rsi))/(.000001+max(-6,-18,rsi)-min(-6,-18,rsi))*7.6923)+((rsi(-7)-min(-7,-19,rsi))/(.000001+max(-7,-19,rsi)-min(-7,-19,rsi))*6.5934)+((rsi(-8)-min(-8,-20,rsi))/(.000001+max(-8,-20,rsi)-min(-8,-20,rsi))*5.4945)+((rsi(-9)-min(-9,-21,rsi))/(.000001+max(-9,-21,rsi)-min(-9,-21,rsi))*4.3956)+((rsi(-10)-min(-10,-22,rsi))/(.000001+max(-10,-22,rsi)-min(-10,-22,rsi))*3.2967)+((rsi(-11)-min(-11,-23,rsi))/(.000001+max(-11,-23,rsi)-min(-11,-23,rsi))*2.1987)+((rsi(-12)-min(-12,-24,rsi))/(.000001+max(-12,-24,rsi)-min(-12,-24,rsi))*1.0989)
if x <15 and qrs(0)>70 and wmovavg(0,9,cl) >wmovavg(0,55,cl) and wmovavg(0,21,cl)> wmovavg(0,55,cl) and close(0) < 35 then
Println Symbol, ",",close(0),",",eps1growth,",",qrs(0),",",x,","
endif
scan #3:
output="3srsi-c"
input="3srsi-b.lst"
set rsi=5
float z
z :=((rsi(0)-min(0,-4,rsi))/(.000001+max(0,-4,rsi)-min(0,-4,rsi))*(50.0000))+ ((rsi(-1)-min(-1,-5,rsi))/(.000001+max(-1,-5,rsi)-min(-1,-5,rsi))*33.3333)+((rsi(-2)-min(-2,-6,rsi))/(.000001+max(-2,-6,rsi)-min(-2,-6,rsi))*16.6667)
if z <20 then
Println Symbol, ",",close(0),",",eps1growth,",",qrs(0),",",z,","
endif
OK so can you combine it? I run them 1,2,3. It is fast but I am sure clumsy for you Programming geniuses.
PS- this becomes a list to watch for uptick action afterwards.
andy |
