CSI
Geplaatst: ma 29 dec 2003, 9:22
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
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