RSI - Indicator

[rogier]

Hallo Paul,

Yes, nu werkt 't wel!

Zo zie je: rechtstreeks uit de literatuur overgenomen en dan zitten er dit soort slordigheden in.
En dat er dan mensen zijn die in ??n keer zien waar de schoen wringt...
Hartelijk dank voor je wel heel snelle service!

[rogier]

Hallo Paul,

Kan er toch nog ergens een 'vuiltje' in de formule voor de StochRSI zitten? In een grafiek zonder andere indicatoren kan ik 'm zonder probleem invoegen; maar in een chart waarin al een RSI in de subgrafiek staat krijg ik de melding dat 'het programma een puntkomma verwacht in de module op (6:7) en dat de indicator niet ingevoegd kan worden'.
Hij conflicteert dus kennelijk met de gewone RSI. Heb je enig idee hoe dit op te lossen is? Het is maar een klein schoonheidsfoutje, maar wel jammer.

[bertlamoree]

Misschien kan je proberen de naam te veranderen in bijv RRsi?

[Paul M]

Hallo Rogier,

Dat ligt aan de functie RSI.
Ik heb de naam omgedoopt naar zRSI.

Functie:

value function zRSI (value xSeries[],value xNumberOfbars) begin

?{---- variables used ----}
?value xUp[],xDown[],xUpAvg[],xDownAvg[],xI,xChange[];

?{---- if first time, kick-start the calculation ----}
?if CurrentBar=1 or xUpAvg[1]=_NA or xDownAvg[1]=_NA then begin
? ?for xI := xNumberOfBars-1 downto 0 do begin
? ? ?xChange := xSeries[xI]-xSeries[xI+1];
? ? ?if xChange>0 then xUp[xI] := xChange else xUp[xI] := 0;
? ? ?if xChange<0 then xDown[xI] := -xChange else xDown[xI] := 0;
? ? ?end;
? ?xUpAvg := Average(xUp,xNumberOfBars);
? ?xDownAvg := Average(xDown,xNumberOfBars);
? ?end

?{---- else calculate new up and down value ----}
?else begin
? ?xChange := xSeries-xSeries[1];
? ?if xChange>0 then xUp := xChange else xUp := 0;
? ?if xChange<0 then xDown := -xChange else xDown := 0;
? ?xUpAvg := ((xNumberOfBars-1)*xUpAvg[1]+xUp)/xNumberOfbars;
? ?xDownAvg := ((xNumberOfBars-1)*xDownAvg[1]+xDown)/xNumberOfBars;
? ?end;

?{---- now calculate relative strength up and down ----}
?if xDownAvg=0 and xUpAvg=0 then zRSI := _NA
?else if xDownAvg=0 then zRSI := 100
?else zRSI := 100-100/(xUpAvg/xDownAvg+1);

?end;

Indicator:

Input: ?RSILen(13), LBLen(8), WAvgLen(5),Overbought(70),Oversold(30);

Var: ?RS(0),RSIL(0),RSIH(0),StochRSI(0),xRSI(0);


RS=zRSI(C,RSILen);
RSIL = Lowest(RS,LBLen);
RSIH = Highest(RS,LBLen);

StochRSI = (RS - RSIL)/(RSIH-RSIL);
xRSI=(WAverage(StochRSI,WavgLen))*100;
Plot1(xRSI,"Stoch RSI");
Plot2(OverBought, "OverBought");
Plot3(OverSold, "OverSold");
end;

Paul.

[rogier]

Dag Paul,

Bedankt voor je uitvoerige reactie, mede namens diverse andere 'cursisten'.

[JPR]

En voor de de lief hebbers van dynamische OB OS lijnen: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?value function zRSIDynOBOS (value xSeries[]=Close, value xNumberOfBars=7, value xStdDevUp=2,
value xStdDevDn=2) begin
?value OBline, OSline;

OBline := BollingerBand(RSI(Close, xNumberOfBars), 50, xStdDevUp);
OSline := BollingerBand(RSI(Close, xNumberOfBars), 50, -xStdDevDn);

plot1 (RSI(Close,xNumberOfBars), "RSI");
plot2 (OBline, "OBline");
plot3 (OSline, "OSline");

end; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Paul R

[Paul M]

Paul,

Zie post Handelssystemen +indicatoren-dynamische trendlijnen-27 augustus.

Paul.

[JPR]

Hallo Paul,

Ik had beter effe met een verwijzing kunnen reageren.. maar goed nu staat alles wel zo'n beetje bij elkaar

Groet,

JPaul R