To All StochRSI fans:
Beta V2 coding for stochRSI. This is very close to SuperCharts
stochRSI indicator. Out of 29 tickers only 4 didn't correlate.
It is set up so any period/smoothing can be used. Just change
the values in the variable section. If you try (89,21) expect
to wait a little while <G>. It is set to a "default" of (8,5)
with a BuyZone=21.
**************Begin Code************************************
// StochRSI(N, Avg) eg.] StochRSI(8,5) N=8 & Avg=5
input = "D:\stocks\quotes~1\lists\input.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:-10, StochRSI:8:3, PrevStochRsi:8:3
endif |
