Parabolique SAR, une version alternative (ATD)

• 06/30/2024 at 6:43 PM #234606
  Kobudera

  Bonjour,

  ci-dessous, une petite variation autour de Parabolique SAR: renversement quand les cours sont traversés et pas simplement touchés, et uniquement sur la barre suivante. Toute suggestion d’amélioration du code est la bienvenue.

  JCP

  PS: 2 paramètre à ajouter (increment: 0.02 et limite: 0.2)

  if barindex = 0 then tendance = 1 facteur = increment extreme = low resultat = high elsif tendance[1] = 1 then extreme = max(extreme[1], high) if resultat[1] > low then tendance = -1 facteur = increment resultat = max(extreme[1], max(high, high[1])) extreme = low else if extreme > extreme[1] and facteur < limite then facteur = facteur[1] + min(increment, limite - facteur) endif resultat = resultat[1] + facteur * (extreme - resultat[1]) resultat = min(resultat, min(low, low[1])) endif else extreme = min(extreme[1], low) if resultat[1] < high then tendance = 1 facteur = increment resultat = min(extreme[1], min(low, low[1])) extreme = high else if extreme < extreme[1] and facteur < limite then facteur = facteur[1] + min(increment,limite - facteur[1]) endif resultat = resultat[1] + facteur * (extreme - resultat[1]) resultat = max(resultat, max(high, high[ 1 ])) endif endif if barindex = 0 then r = resultat else r = resultat[1] endif if tendance[1] = 1 then cr = 0 cg = 255 cb = 0 else cr = 255 cg = 0 cb = 0 endif return r coloured(cr, cg, cb) style(point) as "ATD 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

  if barindex = 0 then tendance = 1 facteur = increment extreme = low resultat = high elsif tendance[1] = 1 then extreme = max(extreme[1], high) if resultat[1] > low then tendance = -1 facteur = increment resultat = max(extreme[1], max(high, high[1])) extreme = low else if extreme > extreme[1] and facteur < limite then facteur = facteur[1] + min(increment, limite - facteur) endif resultat = resultat[1] + facteur * (extreme - resultat[1]) resultat = min(resultat, min(low, low[1])) endif else extreme = min(extreme[1], low) if resultat[1] < high then tendance = 1 facteur  = increment resultat = min(extreme[1], min(low, low[1])) extreme  = high else if extreme < extreme[1] and facteur < limite then facteur = facteur[1] + min(increment,limite - facteur[1]) endif   resultat = resultat[1] + facteur * (extreme - resultat[1]) resultat = max(resultat, max(high, high[ 1 ])) endif endif   if barindex = 0 then r = resultat else r = resultat[1] endif   if tendance[1] = 1 then   cr = 0 cg = 255 cb = 0 else cr = 255 cg = 0 cb = 0 endif   return r coloured(cr, cg, cb) style(point) as "ATD SAR"

   

  1 user thanked author for this post.

  robertogozzi

  

  Kobudera

  Participant

  Topics: 3

  Replies: 7

  Been thanked: 7 times
  07/01/2024 at 7:56 AM #234626
  Iván

  Merci pour la contribution

  

  Iván

  Moderator

  Topics: 0

  Replies: 903

  Been thanked: 303 times
  07/11/2024 at 9:01 AM #235049
  Kobudera

  Bonjour

  ci-dessous, une version plus “ATDMF” du parabolique SAR (en fait, c’est le SAR originel de J. Welles Wilder – issu de son livre “New concepts in technical trading system”). Les paramètes à déclarer sont:

  • initialValue: Décimal, 0.02
  • accelerationValue: décimal, 0.02
  • limitValue: décimal: 0.2

  Le code:

  once todayTrend = 1 if barindex = 0 then factor = initialValue if todayTrend = 1 then todaySAR = low extremeValue = high else todaySAR = high extremeValue = low endif tomorrowSAR = todaySAR tomorrowTrend = todayTrend else todaySAR = tomorrowSAR todayTrend = tomorrowTrend if todayTrend = 1 then if extremeValue < high then extremeValue = high factor = min(limitValue, factor + accelerationValue) endif if todaySAR > low then tomorrowTrend = -1 factor = initialValue tomorrowSAR = extremeValue extremeValue = low else tomorrowSAR = todaySAR + factor * (extremeValue - todaySAR) tomorrowSAR = min(tomorrowSAR, min(low, low[1])) endif else if extremeValue > low then extremeValue = low factor = min(limitValue, factor + accelerationValue) endif if todaySAR < high then tomorrowTrend = 1 factor = initialValue tomorrowSAR = extremeValue extremeValue = high else tomorrowSAR = todaySAR + factor * (extremeValue - todaySAR) tomorrowSAR = max(tomorrowSAR, max(high, high[1])) endif endif endif colorRed = 0 colorGreen = 0 colorBlue = 0 if todayTrend = 1 then colorGreen = 255 else colorRed = 255 endif return todaySAR coloured(colorRed, colorGreen, colorBlue) style(point) as "ATD 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 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71

  once todayTrend = 1   if barindex = 0 then   factor = initialValue   if todayTrend = 1 then todaySAR = low extremeValue = high else todaySAR = high extremeValue = low endif   tomorrowSAR = todaySAR tomorrowTrend = todayTrend   else   todaySAR = tomorrowSAR todayTrend = tomorrowTrend   if todayTrend = 1 then   if extremeValue < high then extremeValue = high factor = min(limitValue, factor + accelerationValue) endif   if todaySAR > low then tomorrowTrend = -1 factor = initialValue tomorrowSAR = extremeValue extremeValue = low else tomorrowSAR = todaySAR + factor * (extremeValue - todaySAR) tomorrowSAR = min(tomorrowSAR, min(low, low[1])) endif   else   if extremeValue > low then extremeValue = low factor = min(limitValue, factor + accelerationValue) endif   if todaySAR < high then tomorrowTrend = 1 factor = initialValue tomorrowSAR = extremeValue extremeValue = high else tomorrowSAR = todaySAR + factor * (extremeValue - todaySAR) tomorrowSAR = max(tomorrowSAR, max(high, high[1])) endif   endif   endif   colorRed = 0 colorGreen = 0 colorBlue = 0   if todayTrend = 1 then colorGreen = 255 else colorRed = 255 endif   return todaySAR coloured(colorRed, colorGreen, colorBlue) style(point) as "ATD SAR"

  La variable todayTrend, au début, permet de déterminer si on démarre “long” (todayTrend=1) ou “short” (todayTrend=-1). Pour information, les graphiques obtenus sur le CAC 40 sont (visuellement) identiques à ceux fournis pour étalonnage par Philippe Cahen dans son “Grand Livre Bleu” (Analyse Technique et Volatilité), pages 75 à 77 (attention, dans mon exemplaire du GLB, les graphiques hebdomadaire et quotidien sont inversés).

  Amicalement

  2 users thanked author for this post.

  Iván, Nicolas

  

  Kobudera

  Participant

  Topics: 3

  Replies: 7

  Been thanked: 7 times
• Author
  Posts