/////////////////////////////////////KAMA 150
Period = 150
FastPeriod = 2
SlowPeriod = 30
Fastest = 2 / (FastPeriod + 1)
Slowest = 2 / (SlowPeriod + 1)
if barindex < Period+1 then
Kama=close
else
Num = abs(close-close[Period])
Den = summation[Period](abs(close-close[1]))
ER = Num / Den
Alpha = SQUARE(ER *(Fastest – Slowest )+ Slowest)
KAMA = (Alpha * Close) + ((1 -Alpha)* Kama[1])
endif
/////////////////////////////////////////////////// Intervention Zone
///////////////////////////////////////////////////////////////////: Distance Cours KAMA
xClose = (Open+High+Low+Close)/4
Distance = (xclose- kama)
moy = exponentialaverage[period]((distance))
if Moy<Moy[1] and Moy[1]>Moy[2] and Moy[1]>0 then
RetB5=RetB4
RetB4=RetB3
RetB3=RetB2
RetB2=RetB1
RetB1=Moy[1]
RetBmoy=(RetB1+RetB2+RetB3+RetB4+RetB5)/5
endif
if Moy>Moy[1] and Moy[1]<Moy[2] and Moy[1]<0 then
RetH5=RetH4
RetH4=RetH3
RetH3=RetH2
RetH2=RetH1
RetH1=Moy[1]
RetHmoy=(RetH1+RetH2+RetH3+RetH4+RetH5)/5
endif
if abs(retBmoy-0) > abs(retHmoy-0) then
limitUP = retBmoy
elsif abs(retBmoy-0) < abs(retHmoy-0) then
LimitUp = -RetHmoy
endif
if abs(RetHmoy-0) > abs(RetBmoy-0) then
limitDn = RetHmoy
elsif abs(RetHmoy-0) < abs(RetBmoy-0) then
LimitDn = – RetBmoy
endif
if (xclose – kama > 0) then
distplus = distance
else
distminus =-distance
endif
moyplus = average[150](distplus)*1.28
moyminus = -average[150](distminus)*1.28
Ecart = abs(retBmoy – retHmoy)
if RetBmoy<>0 and RetHmoy<>0 then
once ecartmin=ecart
endif
ecartmin = min(ecart,ecartmin)
Ecartmini = lowest[50](ecartmin)
Return distance as “Distance”, moy as “DM Moy”, RetBmoy as “Moyenne 5 derniers retournements baissiers”, RetHmoy as “Moyenne 5 derniers retournements haussiers”,limitUp as “LimitUp”, limitDn as “LimitDn”,moyplus as “moyenne plus”, moyminus as “moyenne minus”, ecart as “ecart”, ecartmini as “ecartmin”
désolé, impossible d’intégrer le code correctement. Donc est-ce que la fin du code est correcte parce que graphiquement ce n’est pas ce que j’attendais. Merci.