Jeff,
Using Q+ R1.1, tho there's no charting capability for StochRSI, various Q+ scans were developed last April initially by Frank Robert Simms with various adjustments contributed by lots of other helpful and talented people here. Andy Gabor and others worked this formulation out in WOW originally and posted Metastock versions as well. John Sugas has worked on some new ones for R2, but as I don't have that software yet, I haven't saved those scans.
What I find most useful with these indicators is the perspective offered by viewing different time frames of coordinated movements, so simple scanning for StochRSI(8,5) or (14,14) or (13,13) in Andy's case or (34,13), won't really be that helpful unless you have charting software to visually follow the individual oscillations and use them in conjunction with other trend indicators.
To save you some research time in the archives, here are two for (8,5) crossing above 20 level and (14,14) crossing above 30 level triggers. All other values will be lost without charting capability. That's why I think Metastock or WOW is the way to go to really implement them most effectively. Good luck, Craig
//QP Version of StochRSI(8,5)
Integer Period
Float StocRSI, PreviousStocRSI, A1, A2, A3, A4, A5, A6
Period := 8
Set RSI=Period
A1:=(RSI(0)-Min(0,-Period+1,RSI))/(.00001+(Max(0,-Period+1,RSI)-Min(0,-Period+1,RSI)))
A2:=(RSI(-1)-Min(-1,-Period,RSI))/(.00001+(Max(-1,-Period,RSI)-Min(-1,-Period,RSI)))
A3:=(RSI(-2)-Min(-2,-Period-1,RSI))/(.00001+(Max(-2,-Period-1,RSI)-Min(-2,-Period-1,RSI)))
A4:=(RSI(-3)-Min(-3,-Period-2,RSI))/(.00001+(Max(-3,-Period-2,RSI)-Min(-3,-Period-2,RSI)))
A5:=(RSI(-4)-Min(-4,-Period-3,RSI))/(.00001+(Max(-4,-Period-3,RSI)-Min(-4,-Period-3,RSI)))
A6:=(RSI(-5)-Min(-5,-Period-4,RSI))/(.00001+(Max(-5,-Period-4,RSI)-Min(-5,-Period-4,RSI)))
StocRSI:=(5*A1+4*A2+3*A3+2*A4+1*A5 )*100/15
PreviousStocRSI:=(5*A2+4*A3+3*A4+2*A5+1*A6 )*100/15
AllGroup
PreviousStocRSI < 20
StocRSI > 20
Println Symbol:-10, StocRSI:8:2, PreviousStocRSI:8:2
//QP Version of StochRSI(14)
Float A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14, A15
Float A16, A17, A18, A19, A20, A21, A22, A23, A24, A25, A26, A27, A28
Float B1, B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, B13, B14, B15
Float FAC
Set RSI=14
// Calculate Stochastic of RSI
A1:=(RSI(0)-Min(0,-13,RSI))/(0.00001+(Max(0,-13,RSI)-Min(0,-13,RSI)))
A2:=(RSI(-1)-Min(-1,-14,RSI))/(0.00001+(Max(-1,-14,RSI)-Min(-1,-14,RSI)))
A3:=(RSI(-2)-Min(-2,-15,RSI))/(0.00001+(Max(-2,-15,RSI)-Min(-2,-15,RSI)))
A4:=(RSI(-3)-Min(-3,-16,RSI))/(0.00001+(Max(-3,-16,RSI)-Min(-3,-16,RSI)))
A5:=(RSI(-4)-Min(-4,-17,RSI))/(0.00001+(Max(-4,-17,RSI)-Min(-4,-17,RSI)))
A6:=(RSI(-5)-Min(-5,-18,RSI))/(0.00001+(Max(-5,-18,RSI)-Min(-5,-18,RSI)))
A7:=(RSI(-6)-Min(-6,-19,RSI))/(0.00001+(Max(-6,-19,RSI)-Min(-6,-19,RSI)))
A8:=(RSI(-7)-Min(-7,-20,RSI))/(0.00001+(Max(-7,-20,RSI)-Min(-7,-20,RSI)))
A9:=(RSI(-8)-Min(-8,-21,RSI))/(0.00001+(Max(-8,-21,RSI)-Min(-8,-21,RSI)))
A10:=(RSI(-9)-Min(-9,-22,RSI))/(0.00001+(Max(-9,-22,RSI)-Min(-9,-22,RSI)))
A11:=(RSI(-10)-Min(-10,-23,RSI))/(0.00001+(Max(-10,-23,RSI)-Min(-10,-23,RSI)))
A12:=(RSI(-11)-Min(-11,-24,RSI))/(0.00001+(Max(-11,-24,RSI)-Min(-11,-24,RSI)))
A13:=(RSI(-12)-Min(-12,-25,RSI))/(0.00001+(Max(-12,-25,RSI)-Min(-12,-25,RSI)))
A14:=(RSI(-13)-Min(-13,-26,RSI))/(0.00001+(Max(-13,-26,RSI)-Min(-13,-26,RSI)))
A15:=(RSI(-14)-Min(-14,-27,RSI))/(0.00001+(Max(-14,-27,RSI)-Min(-14,-27,RSI)))
A16:=(RSI(-15)-Min(-15,-28,RSI))/(0.00001+(Max(-15,-28,RSI)-Min(-15,-28,RSI)))
A17:=(RSI(-16)-Min(-16,-29,RSI))/(0.00001+(Max(-16,-29,RSI)-Min(-16,-29,RSI)))
A18:=(RSI(-17)-Min(-17,-30,RSI))/(0.00001+(Max(-17,-30,RSI)-Min(-17,-30,RSI)))
A19:=(RSI(-18)-Min(-18,-31,RSI))/(0.00001+(Max(-18,-31,RSI)-Min(-18,-31,RSI)))
A20:=(RSI(-19)-Min(-19,-32,RSI))/(0.00001+(Max(-19,-32,RSI)-Min(-19,-32,RSI)))
A21:=(RSI(-20)-Min(-20,-33,RSI))/(0.00001+(Max(-20,-33,RSI)-Min(-20,-33,RSI)))
A22:=(RSI(-21)-Min(-21,-34,RSI))/(0.00001+(Max(-21,-34,RSI)-Min(-21,-34,RSI)))
A23:=(RSI(-22)-Min(-22,-35,RSI))/(0.00001+(Max(-22,-35,RSI)-Min(-22,-35,RSI)))
A24:=(RSI(-23)-Min(-23,-36,RSI))/(0.00001+(Max(-23,-36,RSI)-Min(-23,-36,RSI)))
A25:=(RSI(-24)-Min(-24,-37,RSI))/(0.00001+(Max(-24,-37,RSI)-Min(-24,-37,RSI)))
A26:=(RSI(-25)-Min(-25,-38,RSI))/(0.00001+(Max(-25,-38,RSI)-Min(-25,-38,RSI)))
A27:=(RSI(-26)-Min(-26,-39,RSI))/(0.00001+(Max(-26,-39,RSI)-Min(-26,-39,RSI)))
A28:=(RSI(-27)-Min(-27,-40,RSI))/(0.00001+(Max(-27,-40,RSI)-Min(-27,-40,RSI)))
//Calculate 14-day Exponential Moving Average
FAC:=2.0/(1.0+14.0)
B15:=(A15+A16+A17+A18+A19+A20+A21+A22+A23+A24+A25+A26+A27+A28)/14*100
B14:=(A14*100-B15)*FAC+B15
B13:=(A13*100-B14)*FAC+B14
B12:=(A12*100-B13)*FAC+B13
B11:=(A11*100-B12)*FAC+B12
B10:=(A10*100-B11)*FAC+B11
B9:=(A9*100-B10)*FAC+B10
B8:=(A8*100-B9)*FAC+B9
B7:=(A7*100-B8)*FAC+B8
B6:=(A6*100-B7)*FAC+B7
B5:=(A5*100-B6)*FAC+B6
B4:=(A4*100-B5)*FAC+B5
B3:=(A3*100-B4)*FAC+B4
B2:=(A2*100-B3)*FAC+B3 // Yesterday StochRSI(14)
B1:=(A1*100-B2)*FAC+B2 // Today StochRSI(14)
AllGroup
B2 < 30
B1 > 30
Println Symbol:-8, B1:8:2, B2:8:2, close(0):8:3 |
