John, in regard to the ground-breaking StochRSI scan you posted
recently, it looks like there may be a significant disagreement
between SuperCharts and WOW. Or maybe it has something to do with
the primary and smoothing periods. I don't know.
One of my main reduction scans is StochRSI(14,14). I have been doing
it in WOW. Below are comparison data between WOW and the test scan
which follows.
WOW TEST WOW TEST
9-26 9-26 9-25 9-25
AACE 57.0641 44.8043 52.6179 43.6606
ACTM 55.9879 30.6302 52.0644 27.9830
ADIC 56.4257 66.4222 61.3381 64.1372
AFCX 42.9318 49.6837 45.8441 53.6609
AFL 24.3925 18.3146 28.1349 21.7349
// StochRSI(N, Avg) eg.] StochRSI(8,5) N=8 & Avg=5
input="stochyin.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:=14
Avg:=14
BuyZone:=30
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
if StochRSI > 0 then
Println Symbol:-2,",", StochRSI:8:4,",", PrevStochRsi:8:4
endif
What do you think? I am not saying that WOW has the correct calculation.
But it does have a kind of intrinsic consistency.
Also, it is possible that I tampered with something material when preparing
the test script.
-Gary |
