Si vous trouvez  l'indicateur Heiken Ashi Smoothed Double Dema trop réactif ,

voici un nouveau code :avec comme lissage (à la place du lissage Dema) ,

une moyenne mobile  que vous pouvez choisir,suivant vos objectifs..


Code histogramme a mettre sous le graphe prix:


///heiken ashi smoothed DEMA+lissage multi averages histogramme by sohocool

//variable moyennen° 1   p  = période  ( par défaut = 8)

// variable moyenne n°2   p1 = periode (par défaut = 2)
{ variable 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 }

//mettre en histogrammme

if barindex >p*2 then
 mo= dema[p](open)
 mc= dema[p](close)
 ml=dema[p](low)
 mh=dema[p](high)
endif

once haopen=mo

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

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

c1=(haopen1<haclose1)
if c1 then
 c=1
else
 c=-1
endif

return 1 coloured by c

//////////////fin du code HAS Dema -multi average Histogramme


Code "nuage " a mettre dans le graphe prix:

///heiken ashi smoothed DEMA-Multi averages "nuage"  by sohocool

//variable moyenne 1  p  = période  ( par défaut = 8)

// variable moyenne n°2  p1 = periode (par défaut = 2)

{ 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 }

//mettre dans le graphe prix

if barindex >p*2 then
 mo= dema[p](open)
 mc= dema[p](close)
 ml=dema[p](low)
 mh=dema[p](high)
endif

once haopen=mo

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

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

return haopen1,haclose1

  ///////////////////fin du code nuage

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