Moyenne mobile à Lissage multiple

• 04/23/2020 at 1:44 PM #127600
  mlouys

  Bonjour Nicolas et tout le monde 🙂

  Est ce que quelqu’un aurait le code de la moyenne mobile à lissage multiple ?

  D’avance merci pour votre retour et bonne journée !

  

  mlouys

  Participant

  Topics: 8

  Replies: 19

  Been thanked: 1 time
  04/23/2020 at 2:12 PM #127614
  Nicolas

  La moyenne mobile à lissage multiple utilise une moyenne mobile lissée par une autre moyenne mobile (lissage double) ou par deux autres moyennes mobiles (lissage triple). Pour chaque moyenne mobile, vous pouvez régler la période et la méthode de calcul (simple, exponentielle, pondérée …).

  Donc ça devrait ressembler à ce code :

  Multiple smoothing moving average

  //Multiple smoothing moving average // MA type (0=SMA,1=EMA,2=WMA,3=Wilder,4=Triangular,5=End point,6=Time series,7 = Hull (PRT v11 only),8 = ZeroLag (PRT v11 only)) period1=14 type1 = 0 period2=10 type2 = 0 period3=9 type3 = 0 src = customclose avg = average[period1,type1](average[period2,type2](average[period3,type3](src))) return avg

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

  //Multiple smoothing moving average   // MA type (0=SMA,1=EMA,2=WMA,3=Wilder,4=Triangular,5=End point,6=Time series,7 = Hull (PRT v11 only),8 = ZeroLag  (PRT v11 only))   period1=14 type1 = 0 period2=10 type2 = 0 period3=9 type3 = 0   src = customclose   avg = average[period1,type1](average[period2,type2](average[period3,type3](src)))   return avg

   

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  04/23/2020 at 2:58 PM #127622
  mlouys

  Au top Nicolas comme d habitude oserais je dire !

  Merci encore et bonne journée !

  

  mlouys

  Participant

  Topics: 8

  Replies: 19

  Been thanked: 1 time
  04/23/2020 at 3:03 PM #127624
  mlouys

  Juste une petite chose  j aurais aimé deux zéro lag mais apparement cela ne m est pas permis j ai la vesion PRT de chez binck, peut être existe t il un moyen de contourner l affaire en changeant le code ou avec un autre numéro ?

  

  mlouys

  Participant

  Topics: 8

  Replies: 19

  Been thanked: 1 time
  04/23/2020 at 3:15 PM #127628
  mlouys

  Genre comme ceci peut être ( je vais tester )

  //Multiple smoothing moving average //Calcul de la moyenne mobile courte sans retard EMA1 = ExponentialAverage[4](close) EMA2 = ExponentialAverage[4](EMA1) diff = EMA1 - EMA2 ind1 = EMA1 + diff //Calcul de la moyenne mobile longue sans retard EMA3 = ExponentialAverage[8](close) EMA4 = ExponentialAverage[8](EMA3) diff1 = EMA3 - EMA4 ind2 = EMA3 + diff1 src = customclose avg = average[ind1](average[ind2](src)) return avg

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

  //Multiple smoothing moving average       //Calcul de la moyenne mobile courte sans retard EMA1 = ExponentialAverage[4](close) EMA2 = ExponentialAverage[4](EMA1) diff = EMA1 - EMA2 ind1 = EMA1 + diff   //Calcul de la moyenne mobile longue sans retard EMA3 = ExponentialAverage[8](close) EMA4 = ExponentialAverage[8](EMA3) diff1 = EMA3 - EMA4 ind2 = EMA3 + diff1   src = customclose avg = average[ind1](average[ind2](src))   return avg

   

  

  mlouys

  Participant

  Topics: 8

  Replies: 19

  Been thanked: 1 time
  04/23/2020 at 3:17 PM #127629
  mlouys

  Non comme cela cela ne fonctionne pas 🙂

  

  mlouys

  Participant

  Topics: 8

  Replies: 19

  Been thanked: 1 time
  04/23/2020 at 3:33 PM #127636
  mlouys

  //Multiple smoothing moving average //ZeroLag MA: PeriodF = 4 DataF = Close lagF = ROUND((PeriodF-1)/2) dF = (DataF+(DataF-DataF[lagF])) MF = exponentialaverage[periodF](dF) //ZeroLag MA: PeriodG = 8 DataG = Close lagG = ROUND((PeriodG-1)/2) dG = (DataG+(DataG-DataG[lagG])) MG = exponentialaverage[periodG](dG) src = customclose avg = average[MF](average[MG](src)) return avg

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

  //Multiple smoothing moving average     //ZeroLag MA: PeriodF = 4 DataF = Close lagF = ROUND((PeriodF-1)/2) dF = (DataF+(DataF-DataF[lagF])) MF = exponentialaverage[periodF](dF)   //ZeroLag MA: PeriodG = 8 DataG = Close lagG = ROUND((PeriodG-1)/2) dG = (DataG+(DataG-DataG[lagG])) MG = exponentialaverage[periodG](dG)   src = customclose avg = average[MF](average[MG](src))   return avg

  Et comme ceci non plus tjs le même message d erreur avec une valeur négative …

  

  mlouys

  Participant

  Topics: 8

  Replies: 19

  Been thanked: 1 time
  04/23/2020 at 3:45 PM #127638
  Nicolas

  Comme ceci ça doit mieux fonctionner :

  //Double smooth Zerolag EMA //ZeroLag MA: PeriodF = 4 DataF = customclose lagF = ROUND((PeriodF-1)/2) dF = (DataF+(DataF-DataF[lagF])) MF = exponentialaverage[periodF](dF) //ZeroLag MA: PeriodG = 8 DataG = MF lagG = ROUND((PeriodG-1)/2) dG = (DataG+(DataG-DataG[lagG])) MG = exponentialaverage[periodG](dG) avg = MG return avg

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

  //Double smooth Zerolag EMA   //ZeroLag MA: PeriodF = 4 DataF = customclose lagF = ROUND((PeriodF-1)/2) dF = (DataF+(DataF-DataF[lagF])) MF = exponentialaverage[periodF](dF)   //ZeroLag MA: PeriodG = 8 DataG = MF lagG = ROUND((PeriodG-1)/2) dG = (DataG+(DataG-DataG[lagG])) MG = exponentialaverage[periodG](dG)   avg = MG   return avg

   

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  04/23/2020 at 4:11 PM #127644
  mlouys

  Ok merci je viens d essayer mais je n ai pas la même courbe que selon le code PRT ( je t embête parce que j aimerais faire un indicateur pour pouvoir en faire un screener mais je n arrive pas a la prendre en cération simpfliée alors j essaie d en écrire le code pour en faire un indicateur

  Tiens en orange celle de PRT en mauve ta version

  une idée ?  D avance merci

  

  mlouys

  Participant

  Topics: 8

  Replies: 19

  Been thanked: 1 time
• Author
  Posts