Heiken Ashi Smoothed pour Prorealtime

Ci –dessous le lien du code de l’Heiken Ashi Smoothed vue dans la bibliothèque codebase Metatrader :

http://codebase.mql4.com/2754

Pour simplifier l’utilisation , je vais programmer deux indicateurs :

Un indicateur histogramme a mettre sous le graphe.

Un indicateur nuage a mettre dans la fenêtre du graphe .

Ainsi il n’y aura pas le fastidieux changement des lignes en points (TTM trend) .

Je ne m’occupe pas des mèches ,qui sont en fait, d’aucune utilité  .


Code Prorealtime de l' histogamme :

///heiken ashi smoothed histogramme

//variable moyenne 1  p  = période  ( par défaut = 6 ) et  t = mm type ( par défaut lissage wilder)

// variable moyenne n°2  p1 = periode (par défaut = 2) et t1 = mm type (par défaut pondérée)

{//et t le type de la moyenne :
t=0 = moyenne simple
t=1 = moyenne exponentielle
t=2 = moyenne pondérée
t=3 = moyenne wilder
t=4 = moyenne triangulaire
t=5 = moyenne end-point
t= 6 = moyenne time serie }

//mettre en histogrammme

if barindex >p then
 mo=average[p,t](open)
 mc=average[p,t](close)
 ml=average[p,t](low)
 mh=average[p,t](high)
endif

once haopen=mo

haclose=(mo+mc+ml+mh)/4
if barindex>p+1 then
 haopen=(haopen[1]+haclose[1])/2
endif

haopen1=average[p1,t1](haopen)
haclose1=average[p1,t1](haclose)

if haclose1 > haopen1 then
 aa=1
else
 aa=-1
endif

return 1 coloured by aa as " Heiken Smoothed Histo"

/////////fin


Code nuage a ouvrir dans le graphe:


///heiken ashi smoothed histogramme

//variable moyenne 1  p  = période  ( par défaut = 6 ) et  t = mm type ( par défaut lissage wilder)

// variable moyenne n°2  p1 = periode (par défaut = 2) et t1 = mm type (par défaut pondérée)
{et t le type de la moyenne :
t=0 = moyenne simple
t=1 = moyenne exponentielle
t=2 = moyenne pondérée
t=3 = moyenne wilder
t=4 = moyenne triandulaire
t=5 = moyenne end-point
t= 6 = moyenne time serie }

if barindex >p then
 mo=average[p,t](open)
 mc=average[p,t](close)
 ml=average[p,t](low)
 mh=average[p,t](high)
endif

once haopen=mo

haclose=(mo+mc+ml+mh)/4
if barindex>p+1 then
 haopen=(haopen[1]+haclose[1])/2
endif

haopen1=average[p1,t1](haopen)
haclose1=average[p1,t1](haclose)

return haopen1 as " Heiken Smoothed Nuageopen" , haclose1 as "Heiken Smoothed nuageclose"

///////fin