MERHABA IYI CALISMALAR
MEHMET BEY E AIT OLAN ASAGIDAKI INDIKATOR FORMULUNU TARAMAA FORMULUNE CEVIREBILIRMIYIZ
SL:=input("SLOW LIMIT",0,10,0.05);
FL:=input("FAST LIMIT",0,10,0.5);
price:=(H+L)/2;
Smooth:=(4*Price + 3*REF(Price,-1) + 2*REF(Price,-2) + REF(Price,-3)) / 10;
Detrender:= (.0962*Smooth + .5769*REF(Smooth,-2) - .5769*REF(Smooth,-4) - .0962*REF(Smooth,-6))*(.075*if(cum(1)=1,p=0,ref(p,-1))+ .54);
Q1:= (.0962*Detrender + .5769*REF(Detrender,-2) - .5769*REF(Detrender,-4) - .0962*REF(Detrender,-6))*(.075*if(cum(1)=1,p=0,ref(p,-1)) + .54);
jQ:= (.0962*Q1 + .5769*REF(Q1,-2) - .5769*REF(Q1,-4) - .0962*REF(Q1,-6))*(.075*if(cum(1)=1,p=0,ref(p,-1)) + .54);
I21:= I1 - jQ;
Q21:= Q1 + jI;
I2:= .2*I21 + .8*PREV;
Q2:= .2*Q21 + .8*PREV;
Re1:= I2*REF(I2,-1) + Q2*REF(Q2,-1);
Im1:= I2*REF(Q2,-1) - Q2*REF(I2,-1);
Re:= .2*Re1 + .8*PREV;
Im:= .2*Im1 + .8*PREV;
P1:=If(Im<>0 and Re<>0, 2*(4*atn(1))/ATN(Im/Re),PREV);
P2:=If(P1>1.5*REF(P1,-1), 1.5*REF(P1,-1),If(P1 < .67*REF(P1,-1),.67*REF(P1,-1),P1));
P3:=If(P2 < 6,6,If(P2 >50,50,P2));
P:= .2*P3 + .8*REF(P3,-1);
SmoothPeriod:= .33*P + .67*PREV;
PHASE:=If(I1<>0,180/(4*atn(1))*ATN(Q1 / I1),PREV);
DeltaPhase1:= REF(Phase,-1) - Phase;
DeltaPhase:=If(DeltaPhase1<1,1,DeltaPhase1);
alpha1:=FL/ DeltaPhase;
alpha:=If(alpha1< SL,SL,IF(FL<alpha1,FL,alpha1));
MAMA:= alpha*PRICE + (1 - alpha)*PREV;
FAMA:= .5*alpha*MAMA + (1 - .5*alpha)*PREV;
MAMA;
FAMA
TESEKKURLER
