CSI

[JOHAN M]

Waarom geen plot voor deze code ?

Inputs: Mrgn(NumericSimple), Comm(NumericSimple), Length(NumericSimple);
Variables: K(0), ATR14(0), MyRange(14), Counter(0), TR14(0);

If CurrentBar = 1 Then Begin
MyRange = Length;
If MyRange > 0 AND Mrgn > 0 AND Comm >= 0 Then Begin
K = 100 * (BigPointValue / SquareRoot(Mrgn) / (150 + Comm));
For Counter = 0 To MyRange - 1 Begin
TR14 = TR14 + TrueRange[Counter];
End;
ATR14 = TR14 / MyRange;
CSI = K * ADXR(Length) * ATR14;
End
Else
CSI = 0;
End
Else Begin
If MyRange + TrueRange > 0 AND MyRange > 0 Then Begin
TR14 = TR14[1] - TR14 / MyRange + TrueRange;
ATR14 = TR14 / MyRange;
CSI = K * ADXR(Length) * ATR14;
End;

plot1(CSI,'CSI');
end;

Dank

[FM]

Beste Johan,

Heb je al naar je dataseries gekeken of deze kloppen?

met groet,

Frans.

[JOHAN M]

Frans


Bedoel je deze waarden

Inputs: Mgn(.1), Comm(30), Length(14);

Dank

[FM]

Johan,

In een koersgrafiek is er ook een tabblad dataserie te vinden. Hier staan alle waarden van de gedefinieerde series in. Je noet er wel voor zorgen dat de series als tabellen worden aangemaakt (zie manual)
In Vestics is de omschrijving dan bijvoorbeeld
value xEMALong[];
De waarde van xEMALong kan je dan middels de dataserie optie kiezen uit de betreffende functie die links van de series getoond word.
Van iedere bar is dan de xEMALong waarde te zien. Zo kun je kijken of de waardes correct berekend worden of dat er fouten in zitten, nul waardes bijvoorbeeld.

succes,

Frans.

[Paul M]

Functie zzCSI:

Inputs: Mrgn(NumericSimple), Comm(NumericSimple), Length(NumericSimple);
Variables: K(0), ATR14(0), MyRange(14), Counter(0), TR14(0);
value1=truerange;
K = 100 * (BigPointValue / SquareRoot(Mrgn) / (150 + Comm));
if currentbar=30 then begin
TR14=0;
ATR14=0;
end
else begin
For Counter = 0 To MyRange - 1 Begin
TR14 = TR14[1] + value1[Counter];
end;
TR14 = TR14[1] - TR14 / MyRange + value1;
ATR14 = TR14 / MyRange;
zzCSI = K * ADXR(Length) * ATR14;
end;


Indicator zCSI:

Inputs: Mgn(.1), Comm(30), Length(14);

plot1(zzCSI(Mgn,Comm,Length),'CSI');



Paul.

[JOHAN M]

Dank
Paul & Frans voor de begrijpbare uitleg en fraaie werkende code-aanpassing.
Johan M