Configurer une target avec condition

• 06/18/2020 at 9:10 PM #136519
  Sebastien.Slmn

  Bonjour à tous,

  j’essaie de retravailler un code créé par un italien afin d’y apporter ma touche perso.

  Je souhaiterais que le point D (angle du second triangle de ma pattern), soit le résultat d’une target 1 et d’une target 2 qui correspondraient respectivement à un retracement fibo de BC * 1.272 et BC * 1.618

  Une fois ces deux targets trouvées et mon second triangle tracé, je souhaiterais que le code dessine une zone entre ces deux tragets.

  Pensez-vous que celà est possible? J’ai essayé plusieurs choses mais rien ne fonctionne…….

  Merci d’avance ! 🙂

  //LmaxBars = 100 //LMinBars = 5 //Ldistance = 15 //------------------------------------------------------------------------------------ // Bearish Gartley //------------------------------------------------------------------------------------ IF BarIndex = 0 THEN LMaxBars = 100 LMinBars = 5 Ldistance = Ldistance * pipsize LpointA = high LbarA = BarIndex LpointB = low LbarB = BarIndex LpointC = 0 LbarC = 0 LpointD = 0 LbarD = 0 LpointE = 0 LbarE = 0 Lcount = 0 XLpointA = 0 XLbarA = 0 XLpointB = 0 XLbarB = 0 XLpointC = 0 XLbarC = 0 XLpointD = 0 XLbarD = 0 XLpointE = 0 XLbarE = 0 Itarget1 = 0 Itarget2 = 0 Fibo0=11 ENDIF // IF Lcount > LmaxBars THEN XLpointA = LpointA XLbarA = LbarA XLpointB = LpointB XLbarB = LbarB XLpointC = LpointC XLbarC = LbarC XLpointD = LpointD XLbarD = LbarD XLpointE = LpointE XLbarE = LbarE LpointA = high LbarA = BarIndex LpointB = low LbarB = BarIndex LpointC = 0 LbarC = 0 LpointD = 0 LbarD = 0 LpointE = 0 LbarE = 0 Lcount = 0 ENDIF Lcount = Lcount + 1 LpointA = max(LpointA,high) IF LpointA > LpointA[1] THEN LbarA = BarIndex Lcount = 0 LpointB = low LbarB = BarIndex LpointC = 0 LbarC = 0 LpointD = 0 LbarD = 0 LpointE = 0 LbarE = 0 ENDIF IF LpointC = 0 THEN LpointB = min(LpointB,low) IF LpointB < LpointB[1] THEN LbarB = BarIndex ENDIF ENDIF irange = high - fibo0 LdiffAB = LpointA - LpointB LfibC1 = LdiffAB * 0.61 LfibC2 = LdiffAB * 0.62 LfibD1 = LpointC - (LfibC1 * 0.382) LfibD2 = LpointC - (LfibC2 * 0.886) Itarget1 = fibo0+irange * 1.272 Itarget2 = fibo0+irange * 1.618 IF high >= (LpointB + LfibC1) AND high <= (LpointB + LfibC2) THEN LpointC = high LbarC = BarIndex IF LpointC < LpointC[1] THEN LpointC = LpointC[1] LbarC = LbarC[1] ENDIF ELSIF close > (LpointB + LfibC2) THEN // ...altrimenti si riparte daccapo con un nuovo Lpoint A ed un nuovo Lpoint B LpointA = high LbarA = BarIndex LpointB = low LbarB = BarIndex LpointC = 0 LbarC = 0 LbarD = 0 LpointD = 0 LbarE = 0 LpointE = 0 Lcount = 0 ENDIF // // Una volta superato il 161.8 si riparte daccapo // IF close < LfibD2 AND LpointD > 0 THEN XLpointA= LpointA XLbarA = LbarA XLpointB= LpointB XLbarB = LbarB XLpointC= LpointC XLbarC = LbarC XLpointD= LpointD XLbarD = LbarD LpointA = high LbarA = BarIndex LpointB = low LbarB = BarIndex LpointC = 0 LbarC = 0 LpointD = 0 LbarD = 0 LpointE = 0 LbarE = 0 Lcount = 0 ENDIF IF close < LfibE1 AND LpointE > 0 THEN XLpointA= LpointA XLbarA = LbarA XLpointB= LpointB XLbarB = LbarB XLpointC= LpointC XLbarC = LbarC XLpointD= LpointD XLbarD = LbarD LpointA = high LbarA = BarIndex LpointB = low LbarB = BarIndex LpointC = 0 LbarC = 0 LpointD = 0 LbarD = 0 LpointE = 0 LbarE = 0 Lcount = 0 ENDIF IF LpointC > 0 THEN IF LpointD = 0 THEN IF close <= LfibD1 AND close >= LfibD2 THEN LpointD = close LbarD = BarIndex ELSIF close < LfibD2 THEN LpointD = LfibD2 LbarD = BarIndex ENDIF ELSE IF close <= LfibD1 AND close >= LfibD2 THEN LpointD = close IF LpointD < LpointD[1] THEN LbarD = BarIndex ELSE LpointD = LpointD[1] ENDIF IF LpointD > 0 THEN IF LpointE = 0 THEN IF close <= LfibE1 AND close >= LfibE2 THEN LpointE = close LbarE = BarIndex ELSIF close < LfibE2 THEN LpointE = LfibE2 LbarE = BarIndex ENDIF ELSE IF close <= LfibE1 AND close >= LfibE2 THEN LpointE = close IF LpointE < LpointE[1] THEN LbarE = BarIndex ELSE LpointE = LpointE[1] ENDIF ELSE XLpointA= LpointA XLbarA = LbarA XLpointB= LpointB XLbarB = LbarB XLpointC= LpointC XLbarC = LbarC XLpointD= LpointD XLbarD = LbarD XLpointE= LpointE XlbarE = LbarE LpointA = high LbarA = BarIndex Lcount = 0 LpointB = 0 LbarB = 0 LpointC = 0 LbarC = 0 LpointD = 0 LbarD = 0 LpointE = 0 LbarE = 0 ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF // si stampano i punti trovati, ognuno dipendente dal precedente, si stampa A, poi B solo se A è stato stampato, poi C solo se B è stato stampato ed infine D se anche C è stato stampato IF LpointC > 0 THEN IF ((LbarC - LbarA) < LminBars ) THEN LpointC = 0 x = BarIndex - LbarB FOR i = x DOWNTO 0 IF low[i] < LpointB THEN LpointB = low[i] LbarB = BarIndex[i] ENDIF NEXT ENDIF ENDIF IF LpointD > 0 THEN IF((LbarC - LbarA) < LminBars ) OR ((LbarD -LbarC) < LminBars ) THEN LpointD = 0 ENDIF ENDIF IF LpointE > 0 THEN IF((LbarC - LbarA) < LminBars ) OR ((LbarD -LbarC) < LminBars ) THEN LpointE = 0 ENDIF ENDIF //IF LpointD > 0 THEN //IF ((LbarC - LbarA) < LminBars ) OR ((LbarD - LbarC) < LminBars ) THEN //LpointD = 0 //ENDIF //ENDIF IF LpointA > 0 THEN IF LpointB > 0 THEN IF LpointC > 0 THEN IF LpointD > 0 THEN IF LpointE > 0 THEN //IF LpointD[1] = 0 THEN XLpointA = LpointA XLbarA = LbarA XLpointB = LpointB XLbarB = LbarB XLpointC = LpointC XLbarC = LbarC XLpointD = LpointD XLbarD = LbarD XlpointE = LpointE XLbarE = LbarE //ENDIF DRAWTEXT("X",LbarA,LpointA + Ldistance+10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTEXT("A",LbarB,LpointB + Ldistance-10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTEXT("B",LbarC,LpointC - Ldistance+10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTEXT("C",LbarD,LpointD + Ldistance-10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTEXT("D",LbarE,LpointE + Ldistance-10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTRIANGLE(LbarA,LpointA,LbarB,LpointB,LbarC,LpointC)coloured(50,205,50,255) DRAWTRIANGLE(LbarC,LpointC,LbarD,LpointC,LbarD,LpointD)coloured(50,205,50,255) ENDIF ENDIF ENDIF ENDIF ENDIF IF LpointD = 0 AND XLpointD > 0 THEN DRAWTEXT("X",XLbarA,XLpointA - Ldistance+10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTEXT("A",XLbarB,XLpointB + Ldistance-10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTEXT("B",XLbarC,XLpointC - Ldistance+10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTEXT("C",XLbarD,XLpointD + Ldistance-10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTEXT("D",XLbarE,XLpointE + Ldistance+10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTRIANGLE(XLbarA,XLpointA,XLbarB,XLpointB,XLbarC,XLpointC)coloured(50,205,50,255) DRAWTRIANGLE(XLbarC,XLpointC,XLbarD,XLpointC,XLbarD,XLpointD)coloured(50,205,50,255) ENDIF

  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 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284

  //LmaxBars   = 100 //LMinBars  = 5 //Ldistance = 15 //------------------------------------------------------------------------------------ //                               Bearish Gartley //------------------------------------------------------------------------------------ IF BarIndex = 0 THEN LMaxBars  = 100 LMinBars  = 5 Ldistance = Ldistance * pipsize LpointA   = high LbarA     = BarIndex LpointB   = low LbarB     = BarIndex LpointC   = 0 LbarC     = 0 LpointD   = 0 LbarD     = 0 LpointE   = 0 LbarE     = 0 Lcount    = 0 XLpointA  = 0 XLbarA    = 0 XLpointB  = 0 XLbarB    = 0 XLpointC  = 0 XLbarC    = 0 XLpointD  = 0 XLbarD    = 0 XLpointE  = 0 XLbarE    = 0 Itarget1  = 0 Itarget2 =  0 Fibo0=11 ENDIF // IF Lcount > LmaxBars  THEN XLpointA  = LpointA XLbarA    = LbarA XLpointB  = LpointB XLbarB    = LbarB XLpointC  = LpointC XLbarC    = LbarC XLpointD  = LpointD XLbarD    = LbarD XLpointE  = LpointE XLbarE    = LbarE LpointA   = high LbarA     = BarIndex LpointB   = low LbarB     = BarIndex LpointC   = 0 LbarC     = 0 LpointD   = 0 LbarD     = 0 LpointE   = 0 LbarE     = 0 Lcount    = 0 ENDIF Lcount = Lcount + 1   LpointA = max(LpointA,high) IF LpointA > LpointA[1] THEN LbarA   = BarIndex Lcount  = 0 LpointB = low LbarB   = BarIndex LpointC = 0 LbarC   = 0 LpointD = 0 LbarD   = 0 LpointE = 0 LbarE   = 0 ENDIF   IF LpointC = 0 THEN LpointB = min(LpointB,low) IF LpointB < LpointB[1] THEN LbarB = BarIndex ENDIF ENDIF irange = high - fibo0 LdiffAB = LpointA - LpointB LfibC1  = LdiffAB * 0.61 LfibC2  = LdiffAB * 0.62 LfibD1  = LpointC - (LfibC1 * 0.382) LfibD2  = LpointC - (LfibC2 * 0.886) Itarget1  = fibo0+irange * 1.272 Itarget2  = fibo0+irange * 1.618 IF high >= (LpointB + LfibC1) AND high <= (LpointB + LfibC2) THEN LpointC = high LbarC   = BarIndex IF LpointC < LpointC[1] THEN LpointC = LpointC[1] LbarC   = LbarC[1] ENDIF ELSIF close > (LpointB + LfibC2) THEN // ...altrimenti si riparte daccapo con un nuovo Lpoint A ed un nuovo Lpoint B LpointA = high LbarA   = BarIndex LpointB = low LbarB   = BarIndex LpointC = 0 LbarC   = 0 LbarD   = 0 LpointD = 0 LbarE   = 0 LpointE = 0 Lcount  = 0 ENDIF // // Una volta superato il 161.8 si riparte daccapo // IF close < LfibD2 AND LpointD > 0 THEN XLpointA= LpointA XLbarA  = LbarA XLpointB= LpointB XLbarB  = LbarB XLpointC= LpointC XLbarC  = LbarC XLpointD= LpointD XLbarD  = LbarD LpointA = high LbarA   = BarIndex LpointB = low LbarB   = BarIndex LpointC = 0 LbarC   = 0 LpointD = 0 LbarD   = 0 LpointE = 0 LbarE   = 0 Lcount  = 0 ENDIF IF close < LfibE1 AND LpointE > 0 THEN XLpointA= LpointA XLbarA  = LbarA XLpointB= LpointB XLbarB  = LbarB XLpointC= LpointC XLbarC  = LbarC XLpointD= LpointD XLbarD  = LbarD LpointA = high LbarA   = BarIndex LpointB = low LbarB   = BarIndex LpointC = 0 LbarC   = 0 LpointD = 0 LbarD   = 0 LpointE = 0 LbarE   = 0 Lcount  = 0 ENDIF IF LpointC > 0 THEN IF LpointD = 0 THEN IF close <= LfibD1 AND close >= LfibD2 THEN LpointD = close LbarD   = BarIndex ELSIF close < LfibD2 THEN LpointD = LfibD2 LbarD = BarIndex ENDIF ELSE IF close <= LfibD1 AND close >= LfibD2 THEN LpointD = close IF LpointD < LpointD[1] THEN LbarD   = BarIndex ELSE LpointD = LpointD[1] ENDIF   IF LpointD > 0 THEN IF LpointE = 0 THEN IF close <= LfibE1 AND close >= LfibE2 THEN LpointE = close LbarE   = BarIndex ELSIF close < LfibE2 THEN LpointE = LfibE2 LbarE = BarIndex ENDIF ELSE IF close <= LfibE1 AND close >= LfibE2 THEN LpointE = close IF LpointE < LpointE[1] THEN LbarE   = BarIndex ELSE LpointE = LpointE[1] ENDIF   ELSE XLpointA= LpointA XLbarA  = LbarA XLpointB= LpointB XLbarB  = LbarB XLpointC= LpointC XLbarC  = LbarC XLpointD= LpointD XLbarD  = LbarD XLpointE= LpointE XlbarE  = LbarE LpointA = high LbarA   = BarIndex Lcount  = 0 LpointB = 0 LbarB   = 0 LpointC = 0 LbarC   = 0 LpointD = 0 LbarD   = 0 LpointE = 0 LbarE   = 0 ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF // si stampano i punti trovati, ognuno dipendente dal precedente, si stampa A, poi B solo se A è stato stampato, poi C solo se B è stato stampato ed infine D se anche C è stato stampato IF LpointC > 0 THEN IF ((LbarC - LbarA) < LminBars ) THEN LpointC = 0 x = BarIndex - LbarB FOR i = x DOWNTO 0 IF low[i] < LpointB THEN LpointB = low[i] LbarB   = BarIndex[i] ENDIF NEXT ENDIF ENDIF IF LpointD > 0 THEN IF((LbarC - LbarA) < LminBars ) OR ((LbarD -LbarC) < LminBars ) THEN LpointD = 0 ENDIF ENDIF IF LpointE > 0 THEN IF((LbarC - LbarA) < LminBars ) OR ((LbarD -LbarC) < LminBars ) THEN LpointE = 0 ENDIF ENDIF //IF LpointD > 0 THEN //IF ((LbarC - LbarA) < LminBars ) OR ((LbarD - LbarC) < LminBars ) THEN //LpointD = 0 //ENDIF //ENDIF IF LpointA > 0 THEN IF LpointB > 0 THEN IF LpointC > 0 THEN IF LpointD > 0 THEN IF LpointE > 0 THEN //IF LpointD[1] = 0 THEN XLpointA  = LpointA XLbarA    = LbarA XLpointB  = LpointB XLbarB    = LbarB XLpointC  = LpointC XLbarC    = LbarC XLpointD  = LpointD XLbarD    = LbarD XlpointE  = LpointE XLbarE    = LbarE //ENDIF DRAWTEXT("X",LbarA,LpointA + Ldistance+10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTEXT("A",LbarB,LpointB + Ldistance-10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTEXT("B",LbarC,LpointC - Ldistance+10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTEXT("C",LbarD,LpointD + Ldistance-10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTEXT("D",LbarE,LpointE + Ldistance-10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTRIANGLE(LbarA,LpointA,LbarB,LpointB,LbarC,LpointC)coloured(50,205,50,255) DRAWTRIANGLE(LbarC,LpointC,LbarD,LpointC,LbarD,LpointD)coloured(50,205,50,255) ENDIF ENDIF ENDIF ENDIF ENDIF IF LpointD = 0 AND XLpointD > 0 THEN DRAWTEXT("X",XLbarA,XLpointA - Ldistance+10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTEXT("A",XLbarB,XLpointB + Ldistance-10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTEXT("B",XLbarC,XLpointC - Ldistance+10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTEXT("C",XLbarD,XLpointD + Ldistance-10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTEXT("D",XLbarE,XLpointE + Ldistance+10*pointsize,Dialog,Bold,22) coloured(205,0,205,255) DRAWTRIANGLE(XLbarA,XLpointA,XLbarB,XLpointB,XLbarC,XLpointC)coloured(50,205,50,255) DRAWTRIANGLE(XLbarC,XLpointC,XLbarD,XLpointC,XLbarD,XLpointD)coloured(50,205,50,255) ENDIF

   

   

  

  Sebastien.Slmn

  Participant

  Topics: 2

  Replies: 0

  Been thanked: 0 times
  09/25/2020 at 4:10 PM #145416
  Nicolas

  Désolé j’ai du mal à comprendre le principe exact, possible de reprendre la copie d’écran et de le tracer à la main dessus ? Ce sera plus simple et rapide pour t’aider, merci.

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4774 times
• Author
  Posts