Hat denn auch jemand die Formel für den RMI für mich bzw. gibt es viel

c

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")