Geschrieben von _Donald$ am 22.08.2001, 20:10:
RE: die Formel für den RMI für mich bzw. gibt es vielleicht eine Downl
Das müsste sie sein. Bin gerade erst aus dem Urlaub, aber es müsste sie sein:
R M I
Inputs: Price(C),Len(5),Y(10);
Vars: Counter(0),DownAmt(0),UpAmt(0),UpSum(0),
DownSum(0),UpAvg(0),DownAvg(0),MyRange(0),RMI(0);
If CurrentBar < Y Then Begin
MyRange = Len;
UpSum=0;
DownSum=0;
For Counter = 0 to MyRange -1 begin
UpAmt = Price[Counter+Y]; if UpAmt>=0 then
DownAmt = 0
Else Begin
DownAmt = -UpAmt;
UpAmt = 0;
End;
UpSum = UpSum + UpAmt;
DownSum = DownSum + DownAmt;
End;
UpAvg = UpSum/MyRange;
DownAvg = DownSum/MyRange;
End
Else if Currentbar > Y then Begin
UpAmt = Price[0] - Price[y];
if UpAmt >= 0 then Begin
DownAmt = 0;
end
Else Begin
DownAmt = -UpAmt;
UpAmt = 0;
End;
UpAvg=(UpAvg[1]+(MyRange-1)+UpAmt)/MyRange;
DownAvg=(DownAvg[1]*(MyRange-1)+DownAmt)/MyRange;End;
if UpAvg + DownAvg <> 0 then
RMI = 100 * UpAvg/(UpAvg + DownAvg)
Else
RMI = 0;
Plot1(RMI,"RMI")
|
