Hey Stefan, how's tricks?
In MSWIN fastsrsi= ((RSI(14)-LLV(RSI(14),14))/((HHV(RSI(14),14))-LLV(RSI(14),14 )))
QP'ed out and normalized to 0-100 scale for QP2 SRSI comp:
Input="float.lst";
Output="fastsrsiXdn.lst";
Set RSI=14;
Set Stochrsi=14,14,7,w;
integer i;
i:=0;
float fastsrsi, pfastsrsi;
fastsrsi:=((RSI(i)-min(i,i-13,RSI))/(max(i,i-13,RSI)-min(i,i-13,RSI)+.00001))*100;
pfastsrsi:=((RSI(i-1)-min(i-1,i-13-1,RSI))/(max(i-1,i-13-1,RSI)-min(i-1,i-13-1,RSI)+.00001))*100;
For i = 0 to 0 step 1 do
If Stochrsi(i)>80 and
pfastsrsi>Stochrsi(i-1) and
fastsrsi<Stochrsi(i) then
println symbol, close(i):8:3, stochrsi(i):8:3, stochrsi(i-1):8:3, pfastsrsi:8:3, fastsrsi:8:3;
endif; next i;
Sorry about the /0 rigaround (>Bob can spif it up<). Hit 20 on a 450 issue list.
Careful with the new scan speeds & happy hunting!
Craig |
