StochRSI

[lonew0lf 10]

Does anyone have a working StochRSI indicator for MultiCharts or a working code?

 

I've been looking with little success, thanks.

[statsign 10]

http://www.traderslaboratory.com/forums/110/best-price-oscillator-7323-2.html

[statsign 10]

don't have multicharts and just thought - it may not have fastkcustomeasy function

 

if not post back and I will write it out for you

[lonew0lf 10]

Here's the code that I was able to find:

 

input:

 

RSILength(9),

StochLength(18),

KLength(6),

DLength(3),

oversold(20),

overbought(80),

overscolor(white),

overbcolor(white);

 

Vars:

DToscK(0),

DToscD(0);

 

value1 = FastKCustomEasy(RSI(C, RSILength),StochLength);

DToscK = average(value1,KLength);

DToscD = average(DToscK,DLength);

 

plot1(DToscK,"%K" );

plot2(DToscD,"%D" );

plot3( overbought, "OverBot" ) ;

plot4( oversold, "OverSld" ) ;

 

condition1 = value1 crosses over OverSold ;

if condition1 then

Alert( "Indicator exiting oversold zone" )

else

begin

condition1 = value1 crosses under OverBought ;

if condition1 then

Alert( "Indicator exiting overbought zone" ) ;

end;

[statsign 10]

input:
RSILength(9),
StochLength(18),
KLength(6),
DLength(3),
oversold(20),
overbought(80),
overscolor(white),
overbcolor(white);

Vars:
DToscK(0),
DToscD(0);

value1 = RSI(C, RSILength);
value2 = highest(value1,StochLength);
value3 = lowest(value1,StochLength);
value4 = iff(C - value3 <> 0 and value2 - value3 <> 0,(C - value3)/(value2 - value3) * 100,0);
DToscK = average(value4,KLength);
DToscD = average(DToscK,DLength);

plot1(DToscK,"%K" );
plot2(DToscD,"%D" );
plot3( overbought, "OverBot" ) ;
plot4( oversold, "OverSld" ) ;

condition1 = value4 crosses over OverSold ;
if condition1 then
Alert( "Indicator exiting oversold zone" )
else
begin
condition1 = value4 crosses under OverBought ;
if condition1 then
Alert( "Indicator exiting overbought zone" ) ;
end;

[lonew0lf 10]

Statsign:

 

Is your code smoothing the indicator to get rid of noise?

[statsign 10]

no I made a mistake

 

input:
RSILength(9),
StochLength(18),
KLength(6),
DLength(3),
oversold(20),
overbought(80),
overscolor(white),
overbcolor(white);

Vars:
DToscK(0),
DToscD(0);

value1 = RSI(C, RSILength);
value2 = highest(value1,StochLength);
value3 = lowest(value1,StochLength);
value4 = iff(value1 - value3 <> 0 and value2 - value3 <> 0,(C - value3)/(value2 - value3) * 100,0);
DToscK = average(value4,KLength);
DToscD = average(DToscK,DLength);

plot1(DToscK,"%K" );
plot2(DToscD,"%D" );
plot3( overbought, "OverBot" ) ;
plot4( oversold, "OverSld" ) ;

condition1 = value4 crosses over OverSold ;
if condition1 then
Alert( "Indicator exiting oversold zone" )
else
begin
condition1 = value4 crosses under OverBought ;
if condition1 then
Alert( "Indicator exiting overbought zone" ) ;
end;

 

I put in close instead of RSI in the stochastic calc - fixed above

 

When you posted I thought you needed new code

[lonew0lf 10]

Awesome, thanks for the follow-up code.