SAR de Wilder programmé

• 07/02/2020 at 2:00 PM #138088
  ATS_Eric

  Bonjour tout le monde 🙂

  Je viens vers vous car j’ai un problème avec mon SAR de Wilder programmé. Je ne comprends pas pourquoi j’ai 2 points verts dans les points rouges, le 22 juin et le 24 juin !?… Je vous insère le code ci-dessous, si vous avez une idée de ce qui cloche je suis preneur. Merci par avance.

  SAR de Wilder

  // Indicateur SAR de Wilder AT.S. v11 // Mis à jour part J.M. once facteur=0.02 once increment=0.02 once maxfacteur=0.2 extreme1=extreme[1] tendance1=tendance[1] tmpsar1=tmpSAR[1] high1=high[1] low1=low[1] if tendance1 = 1 then extreme = max(extreme1, high) if tmpsar1 > low then tendance = -1 facteur = 0.02 tmpSAR = extreme extreme = low else if extreme > extreme1 and facteur <maxfacteur then facteur = min( maxfacteur, facteur + increment) endif tmpSAR =tmpsar1+facteur*(extreme-tmpsar1) tmpSAR = min(tmpSAR,min(low,low1)) endif elsif tendance1 = -1 then extreme = min(extreme1, low ) if tmpsar1 <high then tendance = 1 facteur = 0.02 tmpSAR = extreme extreme = high else if extreme < extreme1 and facteur <maxfacteur then facteur = min( maxfacteur, facteur + increment ) endif tmpSAR = tmpsar1+facteur*(extreme-tmpsar1) tmpSAR = max(tmpSAR,max(high,high1)) endif else facteur = 0.02 tmpSAR = low extreme = high tendance = 1 endif // couleur du SAR if tmpSAR>=tmpSAR[1] then col=1 else col=-1 endif return tmpSAR[1] coloured by col as "SAR"

  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 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

  // Indicateur SAR de Wilder AT.S. v11 // Mis à jour part J.M.   once facteur=0.02 once increment=0.02 once maxfacteur=0.2 extreme1=extreme[1] tendance1=tendance[1] tmpsar1=tmpSAR[1] high1=high[1] low1=low[1]   if tendance1 = 1 then extreme = max(extreme1, high) if tmpsar1 > low then tendance = -1 facteur = 0.02 tmpSAR = extreme extreme = low else if extreme > extreme1 and facteur <maxfacteur then facteur = min( maxfacteur, facteur + increment) endif tmpSAR =tmpsar1+facteur*(extreme-tmpsar1) tmpSAR = min(tmpSAR,min(low,low1)) endif elsif tendance1 = -1 then extreme = min(extreme1, low ) if tmpsar1 <high then tendance = 1 facteur = 0.02 tmpSAR = extreme extreme = high else if extreme < extreme1 and facteur <maxfacteur then facteur = min( maxfacteur, facteur + increment ) endif tmpSAR = tmpsar1+facteur*(extreme-tmpsar1) tmpSAR = max(tmpSAR,max(high,high1)) endif else facteur = 0.02 tmpSAR = low extreme = high tendance = 1 endif // couleur du SAR if tmpSAR>=tmpSAR[1] then col=1 else col=-1 endif return tmpSAR[1] coloured by col as "SAR"

   

  

  ATS_Eric

  Participant

  Topics: 1

  Replies: 2

  Been thanked: 0 times
  07/02/2020 at 2:31 PM #138093
  ATS_Eric

  Je vous insère ci-dessous la version précédente pour ProRealTime 10, qui fonctionnait bien. Cela pourrait vous éclairer.

  SAR de Wilder v.10

  // Indicateur SAR de Wilder AT.S. v.10 once facteur=0.02 once increment=0.02 once maxfacteur=0.2 extreme1=extreme[1] tendance1=tendance[1] tmpsar1=tmpSAR[1] high1=high[1] low1=low[1] if tendance1 = 1 then extreme = max(extreme1, high) if tmpsar1 > low then tendance = -1 facteur = 0.02 tmpSAR = extreme extreme = low else if extreme > extreme1 and facteur <maxfacteur then facteur = min( maxfacteur, facteur + increment) endif tmpSAR =tmpsar1+facteur*(extreme-tmpsar1) tmpSAR = min(tmpSAR,min(low,low1)) endif elsif tendance1 = -1 then extreme = min(extreme1, low ) if tmpsar1 <high then tendance = 1 facteur = 0.02 tmpSAR = extreme extreme = high else if extreme < extreme1 and facteur <maxfacteur then facteur = min( maxfacteur, facteur + increment ) endif tmpSAR = tmpsar1+facteur*(extreme-tmpsar1) tmpSAR = max(tmpSAR,max(high,high1)) endif else facteur = 0.02 tmpSAR = low extreme = high tendance = 1 endif return tmpsar1 coloured by tendance[1]

  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 36 37 38 39 40 41 42 43 44 45 46

  // Indicateur SAR de Wilder AT.S. v.10   once facteur=0.02 once increment=0.02 once maxfacteur=0.2 extreme1=extreme[1] tendance1=tendance[1] tmpsar1=tmpSAR[1] high1=high[1] low1=low[1]   if tendance1 = 1 then extreme = max(extreme1, high) if tmpsar1 > low then tendance = -1 facteur = 0.02 tmpSAR = extreme extreme = low else if extreme > extreme1 and facteur <maxfacteur then facteur = min( maxfacteur, facteur + increment) endif tmpSAR =tmpsar1+facteur*(extreme-tmpsar1) tmpSAR = min(tmpSAR,min(low,low1)) endif elsif tendance1 = -1 then extreme = min(extreme1, low ) if tmpsar1 <high then tendance = 1 facteur = 0.02 tmpSAR = extreme extreme = high else if extreme < extreme1 and facteur <maxfacteur then facteur = min( maxfacteur, facteur + increment ) endif tmpSAR = tmpsar1+facteur*(extreme-tmpsar1) tmpSAR = max(tmpSAR,max(high,high1)) endif else facteur = 0.02 tmpSAR = low extreme = high tendance = 1 endif return tmpsar1 coloured by tendance[1]

   

  

  ATS_Eric

  Participant

  Topics: 1

  Replies: 2

  Been thanked: 0 times
  07/14/2020 at 5:34 PM #139273
  Nicolas

  Ces points rouges sont en vert car la variable “col” est égale à 1 sur ces chandeliers. Tu demandes la couleur verte quand le SAR est identique à sa valeur précédente et c’est bien le cas sur ces bougies.

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20828

  Been thanked: 4741 times
  07/16/2020 at 8:37 PM #139448
  ATS_Eric

  Nicolas wrote:

  Ces points rouges sont en vert car la variable “col” est égale à 1 sur ces chandeliers. Tu demandes la couleur verte quand le SAR est identique à sa valeur précédente et c’est bien le cas sur ces bougies.

  Merci pour la réponse ! La solution m’a été donnée par ailleurs sur Twitter. Il fallait faire :

  If tendance[1]= 1 then Col=1 Else col=-1 Endif

  1 2 3 4 5

  If tendance[1]= 1 then Col=1 Else col=-1 Endif

  Au lieu de :

  if tmpSAR>=tmpSAR[1] then col=1 else col=-1 endif

  1 2 3 4 5

  if tmpSAR>=tmpSAR[1] then col=1 else col=-1 endif

   

  

  ATS_Eric

  Participant

  Topics: 1

  Replies: 2

  Been thanked: 0 times
• Author
  Posts