Here's your scan as I cut & pasted from
the net. I added the col positions and
it runs fine.
My choice not to use "," as seperators is
based on col reading.
Regards
Michael
// StochRSI(N, Avg) eg.] StochRSI(8,5) N=8 & Avg=5
input = "brookins.lst"
output = "stRSI-V2.lst"
exchange nasdaq,nyse,amex
Integer Avg,BuyZone,L,M,N,P
Float StochRSI, PrevStochRSI, RSInum, RSIden
Float RSInumT, RSIdenT,RSInumY, RSIdenY
//*******Variables********
N:=8
Avg:=5
BuyZone:=21
set RSI=N
RSInum:=0
RSIden:=0
RSInumT:=0
RSIdenT:=0
RSInumY:=0
RSIdenY:=0
P:=N+Avg-1
for L=-1 to -Avg+1 step -1
M:=N-1-L
RSInum:=(RSI(L)-min(L,-M,RSI))
RSIden:=((max(L,-M,RSI)-min(L,-M,RSI)))
RSInumT:= RSInumT +Rsinum
RSIdenT:= RSIdenT +Rsiden
next L
RSInumT:= RSInumT +(RSI(0)-min(0,-N+1,RSI))
RSIdenT:= RSIdenT +((max(0,-N+1,RSI)-min(0,-N+1,RSI)))
RSInumY:= RSInumT +(RSI(-Avg)-min(-Avg,-P,RSI))
RSIdenY:= RSIdenT +((max(-Avg,-P,RSI)-min(-Avg,-P,RSI)))
if RSIdenT = 0 then
RSIdenT:=.0001
endif
if RSIdenY = 0 then
RSIdenY:=.0001
endif
StochRSI:= (RSInumT/RSIdenT)*100
PrevStochRSI:=(RSInumY/RSIdenY)*100
if StochRSI > BuyZone and PrevStochRSI < BuyZone then
Println Symbol:-8," StochRSI: ",StochRSI:8:3," PrevStochRsi: ",PrevStochRsi:8:3
endif |
