Indicateur QMA

• 05/07/2017 at 1:12 PM #34761
  laurenzo

  Bonjour,

  J’ai une moyenne mobile que j’ai sous MultiCharts que j’aimerai convertir sous PRT. Il s’avère qu’elle utilise un tableau…

  Est-ce qu’il y’a des astuces pour la convertir ?

  Je vous colle le code ici de la fonction sous MC.

  // Fractional-Bar Quick Moving Average by John D. McCormick Inputs: Series ( numericseries ), Len ( numericsimple ); Vars: j( 0 ), Peak( 0 ), Num ( 0 ), Denom ( 0 ); Array: DataArray[](0); Array_SetMaxIndex(DataArray, Len + 1); Peak = Len / 3; Num = 0; Denom = 0; for j = 1 to floor(Len + 1) begin if j <= Peak then DataArray[j] = j / Peak else DataArray[j] = (Len + 1 - j) / (Len + 1 - Peak); Num = Num + Series[j - 1] * DataArray[j]; Denom = Denom + DataArray[j]; end; if Denom <> 0 then QMA = Num / Denom else QMA = Series;

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

  // Fractional-Bar Quick Moving Average by John D. McCormick   Inputs:         Series ( numericseries ),         Len ( numericsimple );   Vars:         j( 0 ),         Peak( 0 ),         Num ( 0 ),         Denom ( 0 );   Array:         DataArray[](0);   Array_SetMaxIndex(DataArray, Len + 1);   Peak  = Len / 3; Num   = 0; Denom = 0;   for j = 1 to floor(Len + 1) begin         if j <= Peak then                 DataArray[j] = j / Peak         else                 DataArray[j] = (Len + 1 - j) / (Len + 1 - Peak);         Num = Num + Series[j - 1] * DataArray[j];         Denom = Denom + DataArray[j]; end;   if Denom <> 0 then         QMA = Num / Denom else         QMA = Series;

   

  PS: C’est une sacrée limitation l’absence de tableau sous PRT 🙁

  

  laurenzo

  Participant

  Topics: 15

  Replies: 64

  Been thanked: 16 times
  05/08/2017 at 9:04 AM #34801
  Nicolas

  En fait ce sont les tableaux dynamiques pour la création de variables à la volée qui sont absents (puisque la fonction RETURN doit connaître à l’avance les variables retournées), ainsi que les tableaux multi dimensionnels. Dans le cas de ton code ci-dessus, il n’y pas d’utilité d’utiliser des tableaux spécifiquement pour la recréer. Voici le code pour probuilder de la QMA :

   

  Series = customclose Len = 20 Peak = Len / 3 Num = 0 Denom = 0 for j = 1 to (Len + 1) do if j <= Peak then DataArray = j / Peak else DataArray = (Len + 1 - j) / (Len + 1 - Peak) Num = Num + Series[j - 1] * DataArray Denom = Denom + DataArray endif next if Denom <> 0 then QMA = Num / Denom else QMA = Series endif return qma

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

  Series = customclose Len = 20   Peak  = Len / 3 Num   = 0 Denom = 0   for j = 1 to (Len + 1) do if j <= Peak then DataArray = j / Peak else DataArray = (Len + 1 - j) / (Len + 1 - Peak) Num = Num + Series[j - 1] * DataArray Denom = Denom + DataArray endif next   if Denom <> 0 then QMA = Num / Denom else QMA = Series endif   return qma

   

  1 user thanked author for this post.

  laurenzo

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20867

  Been thanked: 4783 times
  05/08/2017 at 2:48 PM #34826
  laurenzo

  Merci pour le code ! Super !

  Effectivement pour les tableaux, il faut que je vois quels codes je peux encore adapter 🙂

  

  laurenzo

  Participant

  Topics: 15

  Replies: 64

  Been thanked: 16 times
• Author
  Posts