gartley patern

• 10/08/2025 at 5:28 PM #252359
  LucasBest

  gartley patern Detection

  //---Initialisation Once init = 1 Once marge = 0.2 // 2% de marge d'erreur If init = 1 then For wl = 0 to 30 do $Newlow[wl] = 0 $Newhigh[wl] = 0 $LastTurningPoint[wl] = 0 $Top1x[wl] = 0 $Top2x[wl] = 0 $Top3x[wl] = 0 $Bot1x[wl] = 0 $Bot2x[wl] = 0 $Bot3x[wl] = 0 Next init = 0 Endif //---Zigzag points detection For wl = 5 to 21 do //If wl = 14 then //wl = 7 or ATR = averagetruerange[wl](close) IF barindex >= 2*wl+1 then if high[wl] >= highest[2*wl+1](high) and $LastTurningPoint[wl]<=0 and $Newlow[wl]=0 then $NewHigh[wl] = 1 If $Top2x[wl] <> 0 then $Top1x[wl] = $Top2x[wl] Endif If $Top3x[wl] <> 0 then $Top2x[wl] = $Top3x[wl] Endif $Top3x[wl] = barindex[wl] $LastTurningPoint[wl]= 1 else $NewHigh[wl] = 0 endif if low[wl] <= lowest[2*wl+1](low) and $LastTurningPoint[wl]>=0 and $NewHigh[wl]=0 then $NewLow[wl] = 1 If $Bot2x[wl] <> 0 then $Bot1x[wl] = $Bot2x[wl] Endif If $Bot3x[wl] <> 0 then $Bot2x[wl] = $Bot3x[wl] Endif $Bot3x[wl] = barindex[wl] $LastTurningPoint[wl]= -1 else $NewLow[wl] = 0 endif Endif //endif Next //--- Gartley aka 222 pattern detection For wl = 2 to 56 do //If wl = 14 then //wl = 7 or // A-t'on 4 points ? If $Top2x[wl] <> 0 and $Bot2x[wl] <> 0 and (barindex-Max($Top3x[wl],$Bot3x[wl])) >= wl then Delta = Close / 500 // Delta à 0.20% If $Top2x[wl] > $Bot2x[wl] then // Possible Gartley pattern haussier ? PtxX = $Bot2x[wl] PtyX = low[barindex-PtxX] PtxA = $Top2x[wl] PtyA = High[barindex-PtxA] PtxB = $Bot3x[wl] PtyB = low[barindex-PtxB] PtxC = $Top3x[wl] PtyC = High[barindex-PtxC] XA = PtyA - PtyX AB = PtyA - PtyB BC = PtyC - PtyB CD = PtyC - Low If (AB >= XA*0.618*(1-marge) and AB <= XA*0.618*(1+marge)) and ((BC >= AB*0.382*(1-marge) and BC <= AB*0.382*(1+marge) and CD >= BC*1.272*(1-marge) and CD <= BC*1.272*(1+marge)) or (BC >= AB*0.886*(1-marge) and BC <= AB*0.886*(1+marge) and CD >= BC*1.618*(1-marge) and CD <= BC*1.618*(1+marge))) and (CD >= XA*0.786*(1-marge) and CD <= XA*0.786*(1+marge)) and PtyX = Lowest[PtxB-PtxX+1](Low[barindex-PtxB]) and Low = Lowest[Barindex-PtxB+1](Low) then // 5ème point potentiel trouvé = Barindex PtxD = Barindex PtyD = Low drawtriangle(PtxX,PtyX,PtxA,PtyA,PtxB,PtyB) coloured("deepskyblue",75) bordercolor("deepskyblue",200) drawtriangle(PtxB,PtyB,PtxC,PtyC,PtxD,PtyD) coloured("deepskyblue",150) bordercolor("deepskyblue",200) Endif Endif If $Top2x[wl] < $Bot2x[wl] then // Possible Gartley pattern baissier ? PtxX = $Top2x[wl] PtyX = High[barindex-PtxX] PtxA = $Bot2x[wl] PtyA = Low[barindex-PtxA] PtxB = $Top3x[wl] PtyB = High[barindex-PtxB] PtxC = $Bot3x[wl] PtyC = Low[barindex-PtxC] XA = PtyX - PtyA AB = PtyB - PtyA BC = PtyB - PtyC CD = High - PtyC If (AB >= XA*0.618*(1-marge) and AB <= XA*0.618*(1+marge)) and ((BC >= AB*0.382*(1-marge) and BC <= AB*0.382*(1+marge) and CD >= BC*1.272*(1-marge) and CD <= BC*1.272*(1+marge)) or (BC >= AB*0.886*(1-marge) and BC <= AB*0.886*(1+marge) and CD >= BC*1.618*(1-marge) and CD <= BC*1.618*(1+marge))) and (CD >= XA*0.786*(1-marge) and CD <= XA*0.786*(1+marge)) and PtyX = Highest[PtxB-PtxX+1](High[barindex-PtxB]) and High = Highest[Barindex-PtxB+1](High) then // 5ème point potentiel trouvé = Barindex PtxD = Barindex PtyD = High drawtriangle(PtxX,PtyX,PtxA,PtyA,PtxB,PtyB) coloured("Red",75) bordercolor("Red",200) drawtriangle(PtxB,PtyB,PtxC,PtyC,PtxD,PtyD) coloured("Red",150) bordercolor("Red",200) Endif Endif Endif //Endif Next Return

  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 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151

  //---Initialisation   Once init = 1 Once marge = 0.2  // 2% de marge d'erreur     If init = 1 then For wl = 0 to 30 do $Newlow[wl] = 0 $Newhigh[wl] = 0 $LastTurningPoint[wl] = 0 $Top1x[wl] = 0 $Top2x[wl] = 0 $Top3x[wl] = 0 $Bot1x[wl] = 0 $Bot2x[wl] = 0 $Bot3x[wl] = 0 Next init = 0 Endif   //---Zigzag points detection   For wl = 5 to 21 do //If wl = 14 then //wl = 7 or ATR = averagetruerange[wl](close) IF barindex >= 2*wl+1 then   if high[wl] >= highest[2*wl+1](high) and $LastTurningPoint[wl]<=0 and $Newlow[wl]=0 then   $NewHigh[wl] = 1   If $Top2x[wl] <> 0 then $Top1x[wl] = $Top2x[wl] Endif   If $Top3x[wl] <> 0 then $Top2x[wl] = $Top3x[wl] Endif   $Top3x[wl] = barindex[wl] $LastTurningPoint[wl]= 1   else $NewHigh[wl] = 0 endif     if low[wl] <= lowest[2*wl+1](low) and $LastTurningPoint[wl]>=0 and $NewHigh[wl]=0 then   $NewLow[wl] = 1   If $Bot2x[wl] <> 0 then $Bot1x[wl] = $Bot2x[wl] Endif   If $Bot3x[wl] <> 0 then $Bot2x[wl] = $Bot3x[wl] Endif   $Bot3x[wl] = barindex[wl] $LastTurningPoint[wl]= -1   else $NewLow[wl] = 0 endif   Endif //endif Next     //--- Gartley aka 222 pattern detection   For wl = 2 to 56 do   //If wl = 14 then //wl = 7 or   // A-t'on 4 points ?   If $Top2x[wl] <> 0 and $Bot2x[wl] <> 0 and (barindex-Max($Top3x[wl],$Bot3x[wl])) >= wl then   Delta = Close / 500 // Delta à 0.20%   If $Top2x[wl] > $Bot2x[wl] then   // Possible Gartley pattern haussier ?   PtxX = $Bot2x[wl] PtyX = low[barindex-PtxX] PtxA = $Top2x[wl] PtyA = High[barindex-PtxA] PtxB = $Bot3x[wl] PtyB = low[barindex-PtxB] PtxC = $Top3x[wl] PtyC = High[barindex-PtxC]   XA = PtyA - PtyX AB = PtyA - PtyB BC = PtyC - PtyB CD = PtyC - Low If (AB >= XA*0.618*(1-marge) and AB <= XA*0.618*(1+marge)) and ((BC >= AB*0.382*(1-marge) and BC <= AB*0.382*(1+marge) and CD >= BC*1.272*(1-marge) and CD <= BC*1.272*(1+marge)) or (BC >= AB*0.886*(1-marge) and BC <= AB*0.886*(1+marge) and CD >= BC*1.618*(1-marge) and CD <= BC*1.618*(1+marge))) and (CD >= XA*0.786*(1-marge) and CD <= XA*0.786*(1+marge)) and PtyX = Lowest[PtxB-PtxX+1](Low[barindex-PtxB]) and Low = Lowest[Barindex-PtxB+1](Low) then   // 5ème point potentiel trouvé = Barindex   PtxD = Barindex PtyD = Low   drawtriangle(PtxX,PtyX,PtxA,PtyA,PtxB,PtyB) coloured("deepskyblue",75) bordercolor("deepskyblue",200) drawtriangle(PtxB,PtyB,PtxC,PtyC,PtxD,PtyD) coloured("deepskyblue",150) bordercolor("deepskyblue",200)   Endif Endif   If $Top2x[wl] < $Bot2x[wl] then   // Possible Gartley pattern baissier ?   PtxX = $Top2x[wl] PtyX = High[barindex-PtxX] PtxA = $Bot2x[wl] PtyA = Low[barindex-PtxA] PtxB = $Top3x[wl] PtyB = High[barindex-PtxB] PtxC = $Bot3x[wl] PtyC = Low[barindex-PtxC]   XA = PtyX - PtyA AB = PtyB - PtyA BC = PtyB - PtyC CD = High - PtyC If (AB >= XA*0.618*(1-marge) and AB <= XA*0.618*(1+marge)) and ((BC >= AB*0.382*(1-marge) and BC <= AB*0.382*(1+marge) and CD >= BC*1.272*(1-marge) and CD <= BC*1.272*(1+marge)) or (BC >= AB*0.886*(1-marge) and BC <= AB*0.886*(1+marge) and CD >= BC*1.618*(1-marge) and CD <= BC*1.618*(1+marge))) and (CD >= XA*0.786*(1-marge) and CD <= XA*0.786*(1+marge)) and PtyX = Highest[PtxB-PtxX+1](High[barindex-PtxB]) and High = Highest[Barindex-PtxB+1](High) then   // 5ème point potentiel trouvé = Barindex   PtxD = Barindex PtyD = High   drawtriangle(PtxX,PtyX,PtxA,PtyA,PtxB,PtyB) coloured("Red",75) bordercolor("Red",200) drawtriangle(PtxB,PtyB,PtxC,PtyC,PtxD,PtyD) coloured("Red",150) bordercolor("Red",200)   Endif Endif   Endif //Endif Next   Return

  2 users thanked author for this post.

  Iván, robertogozzi

  

  LucasBest

  Participant

  Topics: 23

  Replies: 389

  Been thanked: 142 times
• Author
  Posts