Stoch RSI is simply stochastics of RSI rather than price- a simple token could do the trick I would think. Anyway- here are some Q2 R2 versions. It was poplarized by Chande and made famous by Dave Evans of SI fame who uses the 14 day version to his benefit. I came up with a shorter term version based upon an 8 day RSI with a 5 day MA.
Here is a homegrown version of same- I think it was John Sugas who wrote it:
input = "spweekly.lst"
output = "spwksr85.lst"
Integer Avg,BuyZone,L,M,N,P
Float StochRSI, PrvStRSI, 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
PrvStRSI:=(RSInumY/RSIdenY)*100
if StochRSI > PrvStRSI and PrvStRSI< BuyZone and wmovavg(0,21,cl)> wmovavg(0,55,cl) then
Println Symbol:-10,",", StochRSI:8:3,",", Close(0):8:3,",", Description,","
endif |
