Bonjour à tous,

Pour faire suite au précédent article , je vous propose la code PRT de La moyenne

"Triangulaire" Dema .

Pour le code Tema il suffit de changer Dema Par Tema dans le code (en fait le d par le t).

///////////////

La courbe rouge = la moyenne triangulaire normale (moyenne simple )

La courbe noire = la moyenne "triangulaire" exponentielle (moyenne exponentielle )

La courbe bleu = la moyenne "triangulaire" dema  (double exponential moving average)

La courbe verte = la moyenne "triangulaire" tema (triple exponential moving average)

CODE PRT /////////

/////////////////////////////////////////

//moyenne " triangulaire "DEMA
///BY SOHOCOOL AVRIL 2012
//variable = p

if  p MOD 2  = 1 then
 
 aa= dema[(ROUND(p/2))](dema[(round(p/2))](customclose))
 
else
 aa = dema[(p/2)+1](dema[p/2](customclose))
 
endif

return aa as " moyenne triangulaire dema"

///////////////////FIN///END

Bonjour,

Je vous propose un des codes PRT  possible  pour calculer la moyenne triangulaire.

Code PRT :

//moyenne triangulaire
//variable = p

if  p MOD 2  = 1 then
 
 aa= average[ROUND(p/2)](average[round(p/2)](customclose))
 
else
 aa = average[(p/2)+1](average[p/2](customclose))
 
endif

return aa as " moyenne triangulaire"

///////////////////////////Fin -End

Maintenant que nous avons le détail du code ,on peut facilement changer le calcul de l'alpha.

En changeant l'alpha ,nous obtenons une moyenne exponentielle plus réactive.

Vous pouvez voir sur le graphe ,la différence entre la mmexpo Prt 32 période(en rouge) ,et la mmexpo clean 32 période(en bleu).

Code PRT:

///moyenne exponentielle clean
//variable p = période // entier

price=customclose

once m1=price

alpha=(2/(2+0.5*(max(1,p)-1)))

if barindex > 2 then
 
 m1=alpha*price+(1-alpha)*m1[1]
 
endif

return  m1 as "moyenne exponentielle clean"

Moyennes Multiples avec deux enveloppes.

Explications (regardez ,aussi,la video):

http://www.walmaster.com/mailing/091002/index.asp

http://www.waldata.fr/mailing/091030/index.asp


Code pour Prorealtime :

///////////////MOYENNES MULTIPLES + ENVELOPPES
///by sohocool

{variables:
p = periode moyenne mobile -- 12
t = type moyenne mobile -- simple

co = coefficient enveloppes en pourcent --décimal -- 1

prix = filtre prix -- close

}

prix = customclose

aa=average[p,t](prix)

eh= aa*(1+co*0.01)

eb=aa *(1-co*0.01)

return aa as "moyenne",eh as "enveloppehaute",eb as "enveloppebasses"

///fin de code

Moyenne multiple (vous pouvez choisir le type:simple, exponentielle,wilders, etc..) colorée par le RSI.

c'est a dire : quand le Rsi est supérieur à 50 ,la moyenne est verte ; si le rsi est inferieur à 50 ,la moyenne est rouge.

ci-dessous :
-un graphe avec la vague de Raghee Horner popularisée par Kosta.

http://www.kosta-trade.com/1-categorie-1084421.html

http://www.raghee.com/Home.htm

http://translate.google.be/translate?prev=hp&hl=fr&js=n&u=http%3A%2F%2Fwww.raghee.com%2FHome.htm&sl=en&tl=fr

(3 x moyennes exponentielles de période 34 ,close,high,low)

-un autre graphe avec 5 moyennes exponentielles.(de 30 à 50, pas de 5)

P.S: évidemment ,vous pouvez colorer votre m.mobile avec d’autres indicateurs.


le code :

////////////DEBUT CODE

//variable p longueur mmobile -- défaut =34
// s = matype -- par défaut =1 exponentielle

//variable q= période du rsi -- par défaut 9 où 14
//variable n = nieau du rsi -- par défaut = 50

////////////////////////////////////////////////////////////

prix=customclose  // pour le choix close , high, medianprice  etc..

a1=Average[p,s](prix)

b1=RSI[q](close)

if b1 >= n then
 c=a1
 f=1
else
 
 if b1 < n then
  
  c=a1
  f=-1
 endif
 
endif

return c coloured by f as "moyenne mobile Rsi"

///////////////FIN