Divergence and Trend line automatic tradingBacktesting Error – Need Help Please!

• 04/30/2021 at 11:01 AM #168458
  LuckyClover18

  Hello guys! Just like to get your help with the backtesting codes I have created recently. It is based from the MACD/RSI divergence that I’ve read months before on one of the threads here (by Nicholas I believe). I slowly coded an indicator that would show the price divergence versus the MACD indicator based on my own conditions.

  I am now very satisfied with the indicator I created and also uses it for screening stocks with divergences. I placed my entry conditions and added trend lines in my codes to provide exit signals. I tried running it in Probacktest but it is giving me parse error. I saw a post on how to workaround it by changing platform timezones but I have no luck.

  I have here my program for everyone to check and give a feedback on. I am new in trading and automatic trading. This is the strategy that makes sense to me at the moment and I hope that you all could help me bring this to work to see how profitable it would be to use in realtime.

  Much thanks and appreciation to those who would be so kind to check this post and help! <3

  MACD RSI divergence with trendlines

  //BACKTESTING DiverLineBull Part3// ###################################################################################################### //Variable Declarations obLevel = 65 //20210308 oslevel = 40 //20210308 //Indicator Declarations indMACDLn = MACDline[12,26,9](close) indMACDSign = MACDSignal[12,26,9](close) indMACDHis = MACD[12,26,9](close) indRSI = RSI[14](close) indRSI30 = RSI[30](close) //Conditions to Reset ob = indRSI>obLevel //20210308 oS = indRSI<osLevel //20210308 osTL = indRSI < 30 condMACDLnOver0 = indMACDLn crosses over 0 condMACDLnUnder0 = indMACDLn crosses under 0 //BULLISH MACD RSI DIVERGENCE //################################################### //Conditions to Start if barindex = 11 then InterPriceMin=100000 InterMACDLnMin =100000 oldPriceMin = 100000 oldMACDLnMin=100000 InterBIMin = 0 endif If condMACDLnUnder0 then PriceMin=100000 MACDLnMin =100000 BIStartBull = barindex EntrySignalBull =0 SCANBull = 1 ospassed =0 SCANBULLTL =1 endif if SCANBull = 1 and barindex >= BIStartBull and os then //Get min PriceMin, MACDLn PriceMin = min(PriceMin, Low) if PriceMin <> PriceMin[1] then PriceMinBI = barindex PriceMinMACDLn = indMACDLn endif MACDLnMin =min(MACDLnMin,indMACDLn) if MACDLnMin <> MACDLnMin[1] then BIMin = barindex endif if MACDLnMin < PriceMinMACDLn then BIMin = PriceMinBI endif ospassed = 1 endif // Check for bullish crossover and divergences If SCANBull=1 and condMACDLnOver0 and ospassed = 1 then oldPriceMin = InterPriceMin InterPriceMin =PriceMin oldMACDLnMin = InterMACDLnMin InterMACDLnMin =MACDLnMin oldBIMin = InterBImin InterBImin = BIMin If BullPosition = 0 then //declare divergence condition BullishDivMACD = (InterPriceMin < oldPriceMin ) AND (InterMACDLnMin > oldMACDLnMin)AND (BIMin > BIStartBull) if BullishDivMACD then BIDivBull = barindex //drawsegment(oldBIMin,oldMACDLnMin,BIMin,MACDLnMin) coloured(0,100,0)//green //drawarrowup(BIMin,MACDLnMin) coloured(0,100,0)//green SCANBull=0 x1orig = InterBImin y1orig = InterPriceMin y1MACDorig = InterMACDLnMin //drawarrowdown(x1orig,y1MACDorig) coloured(0,255,255)//aquamarine TrendlineStart = 1 InterPriceMin=100000 InterMACDLnMin =100000 oldPriceMin = 100000 oldMACDLnMin=100000 mslopeorig = 1000000 mslopeorig1 = 1000000 mslopeorig2 = 1000000 mslopeimmediate= 1000000 mslopeimmediateold= 1000000 VerifyEntryPoint =1 EnterAPosition =1 ScanExitBull =0 ValidTP = 0 TPcounter =0 endif ospassed = 0 endif endif //############################################################################################# //Trendline tracking start here If condMACDLnUnder0 AND BullPosition = 1 AND barindex >= EntrySignalBIBull then PriceMin=100000 MACDLnMin =100000 BIStartBull = barindex osTLpassed =0 SCANBULLTL =1 endif IF SCANBULLTL =1 AND TrendlineStart = 1 AND BIStartBull >= BIDivBull AND osTL then //Get min PriceMin, MACDLn PriceMin = min(PriceMin, Low) if PriceMin <> PriceMin[1] then PriceMinBI = barindex PriceMinMACDLn = indMACDLn endif MACDLnMin =min(MACDLnMin,indMACDLn) if MACDLnMin <> MACDLnMin[1] then BIMin = barindex endif if MACDLnMin < PriceMinMACDLn then BIMin = PriceMinBI endif osTLpassed =1 ENDIF //counting bearish divergences and X2 plotting If barindex >= EntrySignalBIBull AND BullPosition = 1 AND condMACDLnOver0 AND osTLpassed =1 then oldPriceMin = InterPriceMin InterPriceMin =PriceMin oldMACDLnMin = InterMACDLnMin InterMACDLnMin =MACDLnMin oldBIMin = InterBImin InterBImin = BIMin if (oldPriceMin > InterPriceMin) AND (InterMACDLnMin > OldMACDLnMin) then //drawarrowdown(OldBIMin,OldMACDLnMin) coloured(0,255,255)//aquamarine checkTP = 1 endif IF CountBearDiver <1 then mslopeorigold= mslopeorig x1diver =x1orig y1diver = y1orig y1MACDLndiver =y1MACDorig oldx2 =oldBIMin //previous scan under macdln oldy2= oldPriceMin oldy2MACDLn = oldMACDLnMin newx2=InterBImin newy2=InterPriceMin newy2MACDLn=InterMACDLnMin mslopeorig1 = (oldy2-y1diver) / (oldx2-x1diver) mslopeorig2 = (newy2-y1diver) / (newx2-x1diver) mslopeorigold = mslopeorig if mslopeorig2 < mslopeorig1 AND mslopeorig1 > 0 then //if new diver slope is less than the original mslopeorig =mslopeorig2 x2orig = newx2 y2orig = newy2 y2MACDLnorig=newy2MACDLn //TrendlineEnd = 0 mslope =mslopeorig TrendlineEnd = 0 runningBI = barindex else //if new diver slope is less than the original slope then calculate the immediate slope, choose the lowest slope mslopeorig =min(mslopeorig2,mslopeorigold) x1imm =x2orig //previous scan under macdln with os y1imm = y2orig y1MACDLnimm =y2MACDLnorig x2imm= InterBImin y2imm=InterPriceMin y2MACDLnimm =InterMACDLnMin mslopeimmediate =(y2imm-y1imm) / (x2imm-x1imm) //to check orientation of slope (neg or pos) mslope =MIN(mslopeimmediate,mslopeorig) checkTP = 1 if TPcounter > 1 then checkTP = 1 ValidTP = 1 endif if barindex > TPProjectioncheckBI and TPProjectioncheck = 1 then //drawarrowdown(barindex,indMACDLn) coloured(210, 105, 30) //chocolate for TP TPProjectioncheck = 0 TPcounter = TPcounter + 1 endif endif x1anchor = x1imm y1anchor = y1imm y1MACDLnanchor =y1MACDLnimm //TrendlineEnd = 0 endif //If barindex >= EntrySignalBIBull AND BullPosition = 1 AND CountBearDiver =1 AND condMACDLnOver0 AND osTLpassed =1 then IF CountBearDiver >=1 then If TrendlineEnd = 0 then //getting the immediate slope, mslopeimmediate mslopeimmediateold = mslope x1imm =x1anchor //previous scan under macdln with os y1imm = y1anchor y1MACDLnimm =y1MACDLnanchor x2imm= InterBImin y2imm=InterPriceMin y2MACDLnimm =InterMACDLnMin mslopeimmediate =(y2imm-y1imm) / (x2imm-x1imm) //to check orientation of slope (neg or pos) //drawtext ("mslopeimmediateold = #mslopeimmediateold#",x2imm,y2MACDLnimm) // //drawtext ("mslopeimmediate = #mslopeimmediate#",x2imm,y2MACDLnimm) // //drawarrowdown(x1,y1MACDLn) coloured(0,255,255)//aquamarine //drawarrowdown(x2imm,y2MACDLnimm) coloured(250,235,215)//antiquewhite mslope = min(mslopeimmediate,mslopeimmediateold) //drawtext ("mslopeimmediateold = #mslopeimmediateold#",x2imm,y2MACDLnimm) // x1 = x1anchor y1= y1anchor y1MACDLn= y1MACDLnanchor TrendlineEnd = 1 TrendlineEndBI = barindex //drawarrowdown(x1,y1MACDLn) coloured(0,255,255)//aquamarine //drawtext ("mslopeimmediate = #mslopeimmediate#",x1,y1MACDLn) //-0.0012 //drawsegment(x1,y1MACDLn,x2,y2MACDLn) coloured(0,255,255)// aquamarine endif//end of first CountBearDiver =1 //start of CountBearDiver =1 with trendlineend=1 condition IF TrendlineEnd = 1 AND barindex >= TrendlineEndBI then mslopeimmediateold = mslopeimmediate //getting the immediate slope, mslopeimmediate x1 = x1anchor y1= y1anchor y1MACDLn= y1MACDLnanchor x2 = InterBImin y2 = InterPriceMin y2MACDLn = InterMACDLnMin mslopeimmediate = (y2-y1)/(x2-x1) //drawarrowdown(x1anchor,y1MACDLnanchor) coloured(250,235,215)//antiquewhite //drawtext ("mslopeimmediateold = #mslopeimmediateold#",x1,y1MACDLn) //mslopetransferold = mslopetransfer if mslopeimmediate < mslopeimmediateold AND mslopeimmediateold > 0 then // mslope = mslopeimmediate mslopetransferBI = barindex //drawarrowdown(x2,y2MACDLn) coloured(0,255,255)//aquamarine x1transfer = x1imm y1transfer = y1imm y1MACDLntransfer =y1MACDLnimm x2transfer = x2imm y2transfer = y2imm y2MACDLntransfer=y2MACDLnimm //drawtext ("mslopetransfer = #mslopetransfer#",x2,y2MACDLn) //drawsegment(x1transfer,y1MACDLntransfer,x2transfer,y2MACDLntransfer) coloured(0,255,255)// aquamarine checkTP = 1 else if mslopeimmediate > mslopeimmediateold AND barindex >=TPProjectioncheckBI then checkTP = 1 ValidTP = 1 mslope = mslopeimmediateold endif endif //checkTP = 1 endif endif TPIntercept = HighestDetected - mslope*(BIHighestDetected) TPProjection = mslope*(barindex) + TPIntercept //tryBI = barindex //drawtext ("TPIntercept = #TPIntercept#",BIHighestDetected,y2MACDLnimm) //drawtext ("TPProjection = #TPProjection#",x2imm,y2MACDLnimm) //drawarrowdown(BIHighestDetected,y2MACDLnimm) coloured(0,255,255)//aquamarine endif //#########################################################################################3 //conditions to enter LONG POSITION //verify entry point If (barindex >= BIDivBull) and VerifyEntryPoint=1 then if LOW < y1orig then VerifyEntryPoint = 0 SCANBULLTL =0 endif endif //endif //If (barindex >= BIDivBull) and (VerifyEntryPoint =1 AND TrendlineStart = 1) AND (indRSI crosses over 50 AND indRSI < 56) AND EnterAPosition =1 Then If (barindex >= BIDivBull) and (VerifyEntryPoint =1 AND TrendlineStart = 1) AND ScanExitBull =0 AND (indRSI crosses over 50 AND indRSI < 56) AND EnterAPosition =1 Then // Conditions to enter long positions IF NOT LongOnMarket THEN BUY 2 CONTRACTS AT MARKET ENDIF EntrySignalBull= ABS(indMACDLn) EntrySignalBIBull = barindex //drawarrowup(EntrySignalBIBull,EntrySignalBull) coloured(255,192,203)//flesh colour BullPosition = 1 BullishDivMACD =0 RemoveSignalBull = 1 ScanExitBull = 1 ENDIF if barindex > EntrySignalBIBull and RemoveSignalBull = 1 then EntrySignalBull = 0 RemoveSignalBull = 0 EnterAPosition =0 endif //###################################################### //#################################################################################### //Conditions to Start Bearish if barindex = 11 then InterPriceMax=0 InterMACDLnMax =0 oldPriceMax = 0 oldMACDLnMax=0 InterBIMax = 0 HighestDetected =0 endif If condMACDLnOver0 then PriceMax=0 MACDLnMax =0 BIStartBear = barindex EntrySignalBear =0 SCANBear = 1 obpassed =0 endif if SCANBear = 1 and barindex >BIStartBear and ob then //Get max of Price PriceMax = max(PriceMax, High) if PriceMax <> PriceMax[1] then PriceMaxBI = barindex PriceMaxMACDLn = indMACDLn endif //Get max MACDLn MACDLnMax =max(MACDLnMax,indMACDLn) if MACDLnMax <> MACDLnMax[1] then BIMax = barindex endif if MACDLnMax > PriceMaxMACDLn then BIMax = PriceMaxBI endif obpassed = 1 if TrendlineStart = 1 then HighestDetected = max(HighestDetected, High) if HighestDetected <> HighestDetected[1] then BIHighestDetected = barindex endif endif endif // Check for bearish crossover and divergences If SCANBear=1 and condMACDLnUnder0 and obpassed = 1 then oldPriceMax = InterPriceMax InterPriceMax =PriceMax oldMACDLnMax = InterMACDLnMax InterMACDLnMax =MACDLnMax oldBIMax = InterBImax InterBImax = BIMax if barindex >= BIHighestDetected and InterPriceMax >= HighestDetected then BearishDivMACD = (InterPriceMax >= oldPriceMax) AND (InterMACDLnMax < oldMACDLnMax) AND (BIMax > BIStartBear) endif if BearishDivMACD then BIDivBear = BImax SCANBear=0 InterPriceMax=0 InterMACDLnMax =0 oldPriceMax = 0 oldMACDLnMax=0 endif obpassed = 0 endif If (barindex >= BIDivBear) and BearishDivMACD THEN EntrySignalBear = ABS(indMACDLn) EntrySignalBIBear = barindex if barindex >= EntrySignalBIBear and BullPosition = 1 then CountBearDiver = CountBearDiver +1 //drawtext ("C = #CountBearDiver#" , barindex, indMACDLn) endif ExecutedBearishDivMACD = 1 ExecutedBearishBI = barindex BearishDivMACD =0 RemoveSignalBear = 1 ENDIF if barindex > EntrySignalBIBear and RemoveSignalBear = 1 then EntrySignalBear = 0 RemoveSignalBear = 0 endif //############################################################################# //TRENDLINE SCAN FOR BREAK //If barindex > BIDivBear AND TrendlineEnd = 1 AND TrendlineStart = 1 AND VerifyEntryPoint = 1 AND BullPosition = 1 then If barindex > TrendlineEndBI AND TrendlineEnd=1 AND TrendlineStart = 1 AND VerifyEntryPoint = 1 AND BullPosition = 1 then yintercept = (y1 - (mslope*x1)) ybreak = (mslope*barindex) + yintercept if CLOSE crosses under ybreak OR CLOSE < ybreak Then // Conditions to exit long positions If LongOnMarket THEN SELL AT MARKET ENDIF ScanTrendline = 0 TrendlineEnd = 0 TrendlineStart = 0 ScanExitBull=0 ScanEndPoint =0 CountBearDiver =0 BullPosition = 0 HighestDetected =0 SCANBULLTL =0 checkTP = 0 endif endif If barindex > TrendlineEndBI AND TrendlineStart = 1 AND VerifyEntryPoint = 1 AND BullPosition = 1 AND checkTP = 1 AND ValidTP = 1 then if CLOSE crosses over TPProjection or CLOSE > TPProjection Then // Conditions to exit long positions If LongOnMarket THEN SELL AT MARKET ENDIF ScanTrendline = 0 TrendlineEnd = 0 TrendlineStart = 0 ScanExitBull=0 ScanEndPoint =0 CountBearDiver =0 BullPosition = 0 HighestDetected =0 SCANBULLTL =0 checkTP = 0 ValidTP =0 endif endif ///TPProjection status if CLOSE crosses over TPProjection or CLOSE > TPProjection Then TPProjectioncheck = 1 TPProjectioncheckBI = barindex endif //if barindex > TPProjectioncheckBI and TPProjectioncheck = 1 then ////drawarrowdown(barindex,indMACDLn) coloured(210, 105, 30) //chocolate for TP //TPProjectioncheck = 0 //TPcounter = TPcounter + 1 //endif if barindex > EntrySignalBIBull and ScanExitBull=1 then if VerifyEntryPoint=0 then ExitBullBI = barindex ExitSignalBull = ABS(indMACDLn) // Conditions to exit long positions If LongOnMarket THEN SELL AT MARKET ENDIF IF VerifyEntryPoint=0 THEN x1 = x1orig //from bullish diver y1 = y1orig y1MACDLn = y1MACDorig x2 =ExitBullBI //y2 = InterPricemin y2MACD = indMACDLn ENDIF ScanTrendline = 0 TrendlineEnd = 0 TrendlineStart = 0 ScanExitBull=0 ScanEndPoint =0 CountBearDiver =0 BullPosition = 0 ScanExitBull =0 HighestDetected =0 SCANBULLTL =0 checkTP = 0 ValidTP = 0 //endif endif endif // // //return indMACDLn as "MACDLine",indMACDSign as "MACDSign",indMACDHis as "MACDHistogram", 0 coloured(168,168,168) style(line,2) as"0 level"//,EntrySignalBull coloured(255,192,203) style (histogram) as "Enter here bullish",EntrySignalBear coloured(160,75,180) style (histogram) as "Enter here bearish"

  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 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550

  //BACKTESTING DiverLineBull Part3// ######################################################################################################     //Variable Declarations   obLevel = 65 //20210308 oslevel = 40 //20210308   //Indicator Declarations   indMACDLn = MACDline[12,26,9](close) indMACDSign = MACDSignal[12,26,9](close) indMACDHis = MACD[12,26,9](close) indRSI = RSI[14](close) indRSI30 = RSI[30](close)   //Conditions to Reset   ob = indRSI>obLevel //20210308 oS = indRSI<osLevel //20210308 osTL = indRSI < 30 condMACDLnOver0 = indMACDLn crosses over 0 condMACDLnUnder0 = indMACDLn crosses under 0     //BULLISH MACD RSI DIVERGENCE //###################################################   //Conditions to Start   if barindex = 11 then InterPriceMin=100000 InterMACDLnMin =100000 oldPriceMin = 100000 oldMACDLnMin=100000 InterBIMin = 0 endif   If condMACDLnUnder0 then   PriceMin=100000 MACDLnMin =100000 BIStartBull = barindex EntrySignalBull =0 SCANBull = 1 ospassed =0 SCANBULLTL =1   endif   if SCANBull = 1  and barindex >= BIStartBull  and os then   //Get min PriceMin, MACDLn PriceMin = min(PriceMin, Low) if PriceMin <> PriceMin[1] then PriceMinBI = barindex PriceMinMACDLn = indMACDLn endif   MACDLnMin =min(MACDLnMin,indMACDLn) if MACDLnMin <> MACDLnMin[1] then BIMin = barindex endif   if MACDLnMin < PriceMinMACDLn then BIMin = PriceMinBI endif   ospassed = 1   endif       // Check for bullish crossover and divergences If SCANBull=1 and condMACDLnOver0  and ospassed = 1  then   oldPriceMin = InterPriceMin InterPriceMin =PriceMin   oldMACDLnMin = InterMACDLnMin InterMACDLnMin =MACDLnMin oldBIMin = InterBImin InterBImin = BIMin   If BullPosition = 0 then //declare divergence condition BullishDivMACD = (InterPriceMin < oldPriceMin ) AND (InterMACDLnMin > oldMACDLnMin)AND (BIMin > BIStartBull)   if BullishDivMACD then BIDivBull = barindex //drawsegment(oldBIMin,oldMACDLnMin,BIMin,MACDLnMin) coloured(0,100,0)//green //drawarrowup(BIMin,MACDLnMin) coloured(0,100,0)//green SCANBull=0   x1orig = InterBImin y1orig = InterPriceMin y1MACDorig = InterMACDLnMin //drawarrowdown(x1orig,y1MACDorig) coloured(0,255,255)//aquamarine TrendlineStart = 1   InterPriceMin=100000 InterMACDLnMin =100000 oldPriceMin = 100000 oldMACDLnMin=100000 mslopeorig = 1000000 mslopeorig1 = 1000000 mslopeorig2 = 1000000 mslopeimmediate= 1000000 mslopeimmediateold= 1000000     VerifyEntryPoint =1 EnterAPosition =1 ScanExitBull =0 ValidTP = 0 TPcounter =0 endif   ospassed = 0 endif endif   //############################################################################################# //Trendline tracking start here   If condMACDLnUnder0 AND BullPosition = 1 AND barindex >= EntrySignalBIBull then   PriceMin=100000 MACDLnMin =100000 BIStartBull = barindex osTLpassed =0 SCANBULLTL =1   endif   IF SCANBULLTL =1 AND TrendlineStart = 1  AND BIStartBull >= BIDivBull  AND osTL then //Get min PriceMin, MACDLn PriceMin = min(PriceMin, Low) if PriceMin <> PriceMin[1] then PriceMinBI = barindex PriceMinMACDLn = indMACDLn endif   MACDLnMin =min(MACDLnMin,indMACDLn) if MACDLnMin <> MACDLnMin[1] then BIMin = barindex endif   if MACDLnMin < PriceMinMACDLn then BIMin = PriceMinBI endif osTLpassed =1 ENDIF   //counting bearish divergences and X2 plotting If barindex >= EntrySignalBIBull AND BullPosition = 1  AND condMACDLnOver0 AND osTLpassed =1 then oldPriceMin = InterPriceMin InterPriceMin =PriceMin   oldMACDLnMin = InterMACDLnMin InterMACDLnMin =MACDLnMin oldBIMin = InterBImin InterBImin = BIMin if (oldPriceMin > InterPriceMin) AND (InterMACDLnMin > OldMACDLnMin) then //drawarrowdown(OldBIMin,OldMACDLnMin) coloured(0,255,255)//aquamarine checkTP = 1 endif IF CountBearDiver <1 then mslopeorigold= mslopeorig x1diver =x1orig y1diver = y1orig y1MACDLndiver =y1MACDorig oldx2 =oldBIMin //previous scan under macdln oldy2= oldPriceMin oldy2MACDLn = oldMACDLnMin newx2=InterBImin newy2=InterPriceMin newy2MACDLn=InterMACDLnMin mslopeorig1 = (oldy2-y1diver) / (oldx2-x1diver) mslopeorig2 = (newy2-y1diver) / (newx2-x1diver) mslopeorigold = mslopeorig   if mslopeorig2 < mslopeorig1 AND mslopeorig1 > 0 then  //if new diver slope is less than the original mslopeorig =mslopeorig2 x2orig = newx2 y2orig = newy2 y2MACDLnorig=newy2MACDLn //TrendlineEnd = 0 mslope =mslopeorig TrendlineEnd = 0 runningBI = barindex   else //if new diver slope is less than the original slope then calculate the immediate slope, choose the lowest slope mslopeorig =min(mslopeorig2,mslopeorigold)   x1imm =x2orig //previous scan under macdln with os y1imm = y2orig y1MACDLnimm =y2MACDLnorig x2imm= InterBImin y2imm=InterPriceMin y2MACDLnimm =InterMACDLnMin mslopeimmediate =(y2imm-y1imm) / (x2imm-x1imm) //to check orientation of slope (neg or pos) mslope =MIN(mslopeimmediate,mslopeorig) checkTP = 1     if TPcounter > 1 then checkTP = 1 ValidTP = 1 endif   if barindex > TPProjectioncheckBI and TPProjectioncheck = 1 then //drawarrowdown(barindex,indMACDLn) coloured(210, 105, 30) //chocolate for TP TPProjectioncheck = 0 TPcounter = TPcounter + 1 endif   endif   x1anchor = x1imm y1anchor = y1imm y1MACDLnanchor =y1MACDLnimm //TrendlineEnd = 0     endif   //If barindex >= EntrySignalBIBull AND BullPosition = 1 AND CountBearDiver =1  AND condMACDLnOver0 AND osTLpassed =1 then IF CountBearDiver >=1 then   If TrendlineEnd = 0 then //getting the immediate slope, mslopeimmediate mslopeimmediateold = mslope x1imm =x1anchor //previous scan under macdln with os y1imm = y1anchor y1MACDLnimm =y1MACDLnanchor x2imm= InterBImin y2imm=InterPriceMin y2MACDLnimm =InterMACDLnMin mslopeimmediate =(y2imm-y1imm) / (x2imm-x1imm) //to check orientation of slope (neg or pos) //drawtext ("mslopeimmediateold = #mslopeimmediateold#",x2imm,y2MACDLnimm) // //drawtext ("mslopeimmediate = #mslopeimmediate#",x2imm,y2MACDLnimm) // //drawarrowdown(x1,y1MACDLn) coloured(0,255,255)//aquamarine //drawarrowdown(x2imm,y2MACDLnimm) coloured(250,235,215)//antiquewhite mslope = min(mslopeimmediate,mslopeimmediateold) //drawtext ("mslopeimmediateold = #mslopeimmediateold#",x2imm,y2MACDLnimm) // x1 = x1anchor y1= y1anchor y1MACDLn= y1MACDLnanchor   TrendlineEnd = 1 TrendlineEndBI = barindex //drawarrowdown(x1,y1MACDLn) coloured(0,255,255)//aquamarine //drawtext ("mslopeimmediate = #mslopeimmediate#",x1,y1MACDLn) //-0.0012 //drawsegment(x1,y1MACDLn,x2,y2MACDLn) coloured(0,255,255)// aquamarine   endif//end of first CountBearDiver =1   //start of CountBearDiver =1 with trendlineend=1 condition IF TrendlineEnd = 1 AND barindex >= TrendlineEndBI then mslopeimmediateold = mslopeimmediate //getting the immediate slope, mslopeimmediate x1 = x1anchor y1= y1anchor y1MACDLn= y1MACDLnanchor   x2 = InterBImin y2 = InterPriceMin y2MACDLn = InterMACDLnMin   mslopeimmediate = (y2-y1)/(x2-x1) //drawarrowdown(x1anchor,y1MACDLnanchor) coloured(250,235,215)//antiquewhite //drawtext ("mslopeimmediateold = #mslopeimmediateold#",x1,y1MACDLn) //mslopetransferold = mslopetransfer if mslopeimmediate < mslopeimmediateold AND mslopeimmediateold > 0 then // mslope = mslopeimmediate mslopetransferBI = barindex //drawarrowdown(x2,y2MACDLn) coloured(0,255,255)//aquamarine x1transfer = x1imm y1transfer = y1imm y1MACDLntransfer =y1MACDLnimm x2transfer = x2imm y2transfer = y2imm y2MACDLntransfer=y2MACDLnimm //drawtext ("mslopetransfer = #mslopetransfer#",x2,y2MACDLn) //drawsegment(x1transfer,y1MACDLntransfer,x2transfer,y2MACDLntransfer) coloured(0,255,255)// aquamarine checkTP = 1 else if mslopeimmediate > mslopeimmediateold AND barindex >=TPProjectioncheckBI then checkTP = 1 ValidTP = 1 mslope = mslopeimmediateold endif endif //checkTP = 1 endif   endif TPIntercept = HighestDetected - mslope*(BIHighestDetected) TPProjection = mslope*(barindex) + TPIntercept //tryBI = barindex //drawtext ("TPIntercept = #TPIntercept#",BIHighestDetected,y2MACDLnimm) //drawtext ("TPProjection = #TPProjection#",x2imm,y2MACDLnimm) //drawarrowdown(BIHighestDetected,y2MACDLnimm) coloured(0,255,255)//aquamarine endif   //#########################################################################################3 //conditions to enter LONG POSITION   //verify entry point If (barindex >= BIDivBull) and VerifyEntryPoint=1 then if LOW < y1orig then VerifyEntryPoint = 0 SCANBULLTL =0 endif endif //endif   //If (barindex >= BIDivBull) and (VerifyEntryPoint =1 AND TrendlineStart = 1)  AND (indRSI crosses over 50 AND indRSI < 56) AND EnterAPosition =1 Then If (barindex >= BIDivBull) and (VerifyEntryPoint =1 AND TrendlineStart = 1) AND ScanExitBull =0 AND (indRSI crosses over 50 AND indRSI < 56) AND EnterAPosition =1 Then   // Conditions to enter long positions IF NOT LongOnMarket THEN BUY 2 CONTRACTS AT MARKET ENDIF   EntrySignalBull= ABS(indMACDLn) EntrySignalBIBull  = barindex //drawarrowup(EntrySignalBIBull,EntrySignalBull) coloured(255,192,203)//flesh colour BullPosition = 1 BullishDivMACD =0 RemoveSignalBull = 1 ScanExitBull = 1     ENDIF   if barindex > EntrySignalBIBull and  RemoveSignalBull = 1 then EntrySignalBull = 0 RemoveSignalBull = 0 EnterAPosition =0 endif   //######################################################       //#################################################################################### //Conditions to Start Bearish    if barindex = 11 then InterPriceMax=0 InterMACDLnMax =0 oldPriceMax = 0 oldMACDLnMax=0 InterBIMax = 0 HighestDetected =0 endif   If condMACDLnOver0 then   PriceMax=0 MACDLnMax =0 BIStartBear = barindex EntrySignalBear =0 SCANBear = 1 obpassed =0   endif   if SCANBear = 1  and barindex >BIStartBear and ob then //Get max of Price PriceMax = max(PriceMax, High) if PriceMax <> PriceMax[1] then PriceMaxBI = barindex PriceMaxMACDLn = indMACDLn endif //Get max MACDLn MACDLnMax =max(MACDLnMax,indMACDLn) if MACDLnMax <> MACDLnMax[1] then BIMax = barindex endif   if MACDLnMax > PriceMaxMACDLn then BIMax = PriceMaxBI endif   obpassed = 1   if TrendlineStart = 1 then HighestDetected = max(HighestDetected, High) if HighestDetected <> HighestDetected[1] then BIHighestDetected = barindex endif endif   endif   // Check for bearish crossover and divergences If SCANBear=1 and condMACDLnUnder0 and obpassed = 1 then   oldPriceMax = InterPriceMax InterPriceMax =PriceMax oldMACDLnMax = InterMACDLnMax InterMACDLnMax =MACDLnMax oldBIMax = InterBImax InterBImax = BIMax   if barindex >= BIHighestDetected and InterPriceMax >= HighestDetected then BearishDivMACD = (InterPriceMax >= oldPriceMax) AND (InterMACDLnMax < oldMACDLnMax) AND (BIMax > BIStartBear) endif if BearishDivMACD then BIDivBear = BImax SCANBear=0 InterPriceMax=0 InterMACDLnMax =0 oldPriceMax = 0 oldMACDLnMax=0 endif   obpassed = 0   endif   If (barindex >= BIDivBear) and BearishDivMACD THEN EntrySignalBear = ABS(indMACDLn) EntrySignalBIBear = barindex   if barindex >= EntrySignalBIBear and BullPosition = 1 then CountBearDiver = CountBearDiver +1 //drawtext ("C = #CountBearDiver#" , barindex, indMACDLn) endif   ExecutedBearishDivMACD = 1 ExecutedBearishBI = barindex BearishDivMACD =0 RemoveSignalBear = 1 ENDIF     if barindex > EntrySignalBIBear and  RemoveSignalBear = 1 then EntrySignalBear = 0 RemoveSignalBear = 0 endif   //#############################################################################   //TRENDLINE SCAN FOR BREAK //If barindex > BIDivBear AND TrendlineEnd = 1 AND TrendlineStart = 1 AND VerifyEntryPoint = 1 AND BullPosition = 1 then If barindex > TrendlineEndBI AND TrendlineEnd=1 AND TrendlineStart = 1 AND VerifyEntryPoint = 1 AND BullPosition = 1 then yintercept = (y1 - (mslope*x1)) ybreak = (mslope*barindex) + yintercept if CLOSE crosses under ybreak OR CLOSE < ybreak  Then // Conditions to exit long positions If LongOnMarket THEN SELL AT MARKET ENDIF   ScanTrendline = 0 TrendlineEnd = 0 TrendlineStart = 0 ScanExitBull=0 ScanEndPoint =0 CountBearDiver =0 BullPosition = 0 HighestDetected =0 SCANBULLTL =0 checkTP = 0 endif     endif   If barindex > TrendlineEndBI AND  TrendlineStart = 1 AND VerifyEntryPoint = 1 AND BullPosition = 1 AND checkTP = 1 AND ValidTP = 1 then if CLOSE crosses over TPProjection  or CLOSE > TPProjection Then   // Conditions to exit long positions If LongOnMarket THEN SELL AT MARKET ENDIF   ScanTrendline = 0 TrendlineEnd = 0 TrendlineStart = 0 ScanExitBull=0 ScanEndPoint =0 CountBearDiver =0 BullPosition = 0 HighestDetected =0 SCANBULLTL =0 checkTP = 0 ValidTP =0 endif endif   ///TPProjection status if CLOSE crosses over TPProjection  or CLOSE > TPProjection Then TPProjectioncheck = 1 TPProjectioncheckBI = barindex endif   //if barindex > TPProjectioncheckBI and TPProjectioncheck = 1 then ////drawarrowdown(barindex,indMACDLn) coloured(210, 105, 30) //chocolate for TP //TPProjectioncheck = 0 //TPcounter = TPcounter + 1 //endif       if barindex > EntrySignalBIBull and ScanExitBull=1  then   if VerifyEntryPoint=0  then ExitBullBI = barindex ExitSignalBull = ABS(indMACDLn)   // Conditions to exit long positions If LongOnMarket THEN SELL AT MARKET ENDIF   IF VerifyEntryPoint=0 THEN x1 = x1orig //from bullish diver y1 = y1orig y1MACDLn = y1MACDorig x2 =ExitBullBI //y2 = InterPricemin y2MACD = indMACDLn   ENDIF   ScanTrendline = 0 TrendlineEnd = 0 TrendlineStart = 0 ScanExitBull=0 ScanEndPoint =0 CountBearDiver =0 BullPosition = 0 ScanExitBull =0 HighestDetected =0 SCANBULLTL =0 checkTP = 0 ValidTP = 0 //endif endif endif //   // //return indMACDLn as "MACDLine",indMACDSign as "MACDSign",indMACDHis as "MACDHistogram", 0 coloured(168,168,168) style(line,2) as"0 level"//,EntrySignalBull coloured(255,192,203) style (histogram) as "Enter here bullish",EntrySignalBear coloured(160,75,180) style (histogram) as "Enter here bearish"

   

   

   

  

  LuckyClover18

  Participant

  Topics: 2

  Replies: 4

  Been thanked: 1 time
  04/30/2021 at 11:55 AM #168460
  GraHal

  If it’s any consolation, I get the same Parsing Error!  I tried a few things, but as yet no fix.

  You have put a lot of work into the strategy / code … I hope others add their pearls of wisdom and experience and we can get a fix for you!

  In the meantime send a Technical Report via Help > Help Center > I’m having a Technical Problem.   Please let us know any fix you get.

  You could try reading and trying some of the suggestions on the link below …

  https://www.google.com/search?q=prorealcode+parsing+error&oq=prorealcode+parsing+error&aqs=chrome..69i57.8743j0j1&sourceid=chrome&ie=UTF-8

  2 users thanked author for this post.

  Nicolas, LuckyClover18

  

  GraHal

  Participant

  Topics: 203

  Replies: 8375

  Been thanked: 2024 times
  04/30/2021 at 1:02 PM #168465
  LuckyClover18

  Hi @Grahal! Thanks so much for the advise. I will send a technical report for this ^^.

  

  LuckyClover18

  Participant

  Topics: 2

  Replies: 4

  Been thanked: 1 time
  08/14/2021 at 8:25 AM #175277
  LuckyClover18

  Hi,

   

  I just like to update this query of mine.

  The prorealtime help team got back to me and found the bug in my program.

  They said that the variables starting with “REM” are making the parsing error. This “REM” is a reserved word in prorealtime as I understood from their reply.

  Hope this helps everyone who are encountering the same issue. ^^

   

  Regards!

  1 user thanked author for this post.

  GraHal

  

  LuckyClover18

  Participant

  Topics: 2

  Replies: 4

  Been thanked: 1 time
  08/15/2021 at 7:24 AM #175376
  murre87

  Pls post code that works. Thanks

  

  murre87

  Participant

  Topics: 17

  Replies: 162

  Been thanked: 21 times
  08/15/2021 at 2:54 PM #175391
  LuckyClover18

  As requested:

   

  Working Code

  //BACKTESTING DiverLineBull Part3// ###################################################################################################### //Variable Declarations obLevel = 65 //20210308 oslevel = 40 //20210308 //Indicator Declarations indMACDLn = MACDline[12,26,9](close) indMACDSign = MACDSignal[12,26,9](close) indMACDHis = MACD[12,26,9](close) indRSI = RSI[14](close) indRSI30 = RSI[30](close) //Conditions to Reset ob = indRSI>obLevel //20210308 oS = indRSI<osLevel //20210308 osTL = indRSI < 30 condMACDLnOver0 = indMACDLn crosses over 0 condMACDLnUnder0 = indMACDLn crosses under 0 //BULLISH MACD RSI DIVERGENCE //################################################### //Conditions to Start if barindex = 11 then InterPriceMin=100000 InterMACDLnMin =100000 oldPriceMin = 100000 oldMACDLnMin=100000 InterBIMin = 0 endif If condMACDLnUnder0 then PriceMin=100000 MACDLnMin =100000 BIStartBull = barindex EntrySignalBull =0 SCANBull = 1 ospassed =0 SCANBULLTL =1 endif if SCANBull = 1 and barindex >= BIStartBull and os then //Get min PriceMin, MACDLn PriceMin = min(PriceMin, Low) if PriceMin <> PriceMin[1] then PriceMinBI = barindex PriceMinMACDLn = indMACDLn endif MACDLnMin =min(MACDLnMin,indMACDLn) if MACDLnMin <> MACDLnMin[1] then BIMin = barindex endif if MACDLnMin < PriceMinMACDLn then BIMin = PriceMinBI endif ospassed = 1 endif // Check for bullish crossover and divergences If SCANBull=1 and condMACDLnOver0 and ospassed = 1 then oldPriceMin = InterPriceMin InterPriceMin =PriceMin oldMACDLnMin = InterMACDLnMin InterMACDLnMin =MACDLnMin oldBIMin = InterBImin InterBImin = BIMin If BullPosition = 0 then //declare divergence condition BullishDivMACD = (InterPriceMin < oldPriceMin ) AND (InterMACDLnMin > oldMACDLnMin)AND (BIMin > BIStartBull) if BullishDivMACD then BIDivBull = barindex //drawsegment(oldBIMin,oldMACDLnMin,BIMin,MACDLnMin) coloured(0,100,0)//green //drawarrowup(BIMin,MACDLnMin) coloured(0,100,0)//green SCANBull=0 x1orig = InterBImin y1orig = InterPriceMin y1MACDorig = InterMACDLnMin //drawarrowdown(x1orig,y1MACDorig) coloured(0,255,255)//aquamarine TrendlineStart = 1 InterPriceMin=100000 InterMACDLnMin =100000 oldPriceMin = 100000 oldMACDLnMin=100000 mslopeorig = 1000000 mslopeorig1 = 1000000 mslopeorig2 = 1000000 mslopeimmediate= 1000000 mslopeimmediateold= 1000000 VerifyEntryPoint =1 EnterAPosition =1 ScanExitBull =0 ValidTP = 0 TPcounter =0 endif ospassed = 0 endif endif //############################################################################################# //Trendline tracking start here If condMACDLnUnder0 AND BullPosition = 1 AND barindex >= EntrySignalBIBull then PriceMin=100000 MACDLnMin =100000 BIStartBull = barindex osTLpassed =0 SCANBULLTL =1 endif IF SCANBULLTL =1 AND TrendlineStart = 1 AND BIStartBull >= BIDivBull AND osTL then //Get min PriceMin, MACDLn PriceMin = min(PriceMin, Low) if PriceMin <> PriceMin[1] then PriceMinBI = barindex PriceMinMACDLn = indMACDLn endif MACDLnMin =min(MACDLnMin,indMACDLn) if MACDLnMin <> MACDLnMin[1] then BIMin = barindex endif if MACDLnMin < PriceMinMACDLn then BIMin = PriceMinBI endif osTLpassed =1 ENDIF //counting bearish divergences and X2 plotting If barindex >= EntrySignalBIBull AND BullPosition = 1 AND condMACDLnOver0 AND osTLpassed =1 then oldPriceMin = InterPriceMin InterPriceMin =PriceMin oldMACDLnMin = InterMACDLnMin InterMACDLnMin =MACDLnMin oldBIMin = InterBImin InterBImin = BIMin if (oldPriceMin > InterPriceMin) AND (InterMACDLnMin > OldMACDLnMin) then //drawarrowdown(OldBIMin,OldMACDLnMin) coloured(0,255,255)//aquamarine checkTP = 1 endif IF CountBearDiver <1 then mslopeorigold= mslopeorig x1diver =x1orig y1diver = y1orig y1MACDLndiver =y1MACDorig oldx2 =oldBIMin //previous scan under macdln oldy2= oldPriceMin oldy2MACDLn = oldMACDLnMin newx2=InterBImin newy2=InterPriceMin newy2MACDLn=InterMACDLnMin mslopeorig1 = (oldy2-y1diver) / (oldx2-x1diver) mslopeorig2 = (newy2-y1diver) / (newx2-x1diver) mslopeorigold = mslopeorig if mslopeorig2 < mslopeorig1 AND mslopeorig1 > 0 then //if new diver slope is less than the original mslopeorig =mslopeorig2 x2orig = newx2 y2orig = newy2 y2MACDLnorig=newy2MACDLn //TrendlineEnd = 0 mslope =mslopeorig TrendlineEnd = 0 runningBI = barindex else //if new diver slope is less than the original slope then calculate the immediate slope, choose the lowest slope mslopeorig =min(mslopeorig2,mslopeorigold) x1imm =x2orig //previous scan under macdln with os y1imm = y2orig y1MACDLnimm =y2MACDLnorig x2imm= InterBImin y2imm=InterPriceMin y2MACDLnimm =InterMACDLnMin mslopeimmediate =(y2imm-y1imm) / (x2imm-x1imm) //to check orientation of slope (neg or pos) mslope =MIN(mslopeimmediate,mslopeorig) checkTP = 1 if TPcounter > 1 then checkTP = 1 ValidTP = 1 endif if barindex > TPProjectioncheckBI and TPProjectioncheck = 1 then //drawarrowdown(barindex,indMACDLn) coloured(210, 105, 30) //chocolate for TP TPProjectioncheck = 0 TPcounter = TPcounter + 1 endif endif x1anchor = x1imm y1anchor = y1imm y1MACDLnanchor =y1MACDLnimm //TrendlineEnd = 0 endif //If barindex >= EntrySignalBIBull AND BullPosition = 1 AND CountBearDiver =1 AND condMACDLnOver0 AND osTLpassed =1 then IF CountBearDiver >=1 then If TrendlineEnd = 0 then //getting the immediate slope, mslopeimmediate mslopeimmediateold = mslope x1imm =x1anchor //previous scan under macdln with os y1imm = y1anchor y1MACDLnimm =y1MACDLnanchor x2imm= InterBImin y2imm=InterPriceMin y2MACDLnimm =InterMACDLnMin mslopeimmediate =(y2imm-y1imm) / (x2imm-x1imm) //to check orientation of slope (neg or pos) //drawtext ("mslopeimmediateold = #mslopeimmediateold#",x2imm,y2MACDLnimm) // //drawtext ("mslopeimmediate = #mslopeimmediate#",x2imm,y2MACDLnimm) // //drawarrowdown(x1,y1MACDLn) coloured(0,255,255)//aquamarine //drawarrowdown(x2imm,y2MACDLnimm) coloured(250,235,215)//antiquewhite mslope = min(mslopeimmediate,mslopeimmediateold) //drawtext ("mslopeimmediateold = #mslopeimmediateold#",x2imm,y2MACDLnimm) // x1 = x1anchor y1= y1anchor y1MACDLn= y1MACDLnanchor TrendlineEnd = 1 TrendlineEndBI = barindex //drawarrowdown(x1,y1MACDLn) coloured(0,255,255)//aquamarine //drawtext ("mslopeimmediate = #mslopeimmediate#",x1,y1MACDLn) //-0.0012 //drawsegment(x1,y1MACDLn,x2,y2MACDLn) coloured(0,255,255)// aquamarine endif//end of first CountBearDiver =1 //start of CountBearDiver =1 with trendlineend=1 condition IF TrendlineEnd = 1 AND barindex >= TrendlineEndBI then mslopeimmediateold = mslopeimmediate //getting the immediate slope, mslopeimmediate x1 = x1anchor y1= y1anchor y1MACDLn= y1MACDLnanchor x2 = InterBImin y2 = InterPriceMin y2MACDLn = InterMACDLnMin mslopeimmediate = (y2-y1)/(x2-x1) //drawarrowdown(x1anchor,y1MACDLnanchor) coloured(250,235,215)//antiquewhite //drawtext ("mslopeimmediateold = #mslopeimmediateold#",x1,y1MACDLn) //mslopetransferold = mslopetransfer if mslopeimmediate < mslopeimmediateold AND mslopeimmediateold > 0 then // mslope = mslopeimmediate mslopetransferBI = barindex //drawarrowdown(x2,y2MACDLn) coloured(0,255,255)//aquamarine x1transfer = x1imm y1transfer = y1imm y1MACDLntransfer =y1MACDLnimm x2transfer = x2imm y2transfer = y2imm y2MACDLntransfer=y2MACDLnimm //drawtext ("mslopetransfer = #mslopetransfer#",x2,y2MACDLn) //drawsegment(x1transfer,y1MACDLntransfer,x2transfer,y2MACDLntransfer) coloured(0,255,255)// aquamarine checkTP = 1 else if mslopeimmediate > mslopeimmediateold AND barindex >=TPProjectioncheckBI then checkTP = 1 ValidTP = 1 mslope = mslopeimmediateold endif endif //checkTP = 1 endif endif TPIntercept = HighestDetected - mslope*(BIHighestDetected) TPProjection = mslope*(barindex) + TPIntercept //tryBI = barindex //drawtext ("TPIntercept = #TPIntercept#",BIHighestDetected,y2MACDLnimm) //drawtext ("TPProjection = #TPProjection#",x2imm,y2MACDLnimm) //drawarrowdown(BIHighestDetected,y2MACDLnimm) coloured(0,255,255)//aquamarine endif //#########################################################################################3 //conditions to enter LONG POSITION //verify entry point If (barindex >= BIDivBull) and VerifyEntryPoint=1 then if LOW < y1orig then VerifyEntryPoint = 0 SCANBULLTL =0 endif endif //endif //If (barindex >= BIDivBull) and (VerifyEntryPoint =1 AND TrendlineStart = 1) AND (indRSI crosses over 50 AND indRSI < 56) AND EnterAPosition =1 Then If (barindex >= BIDivBull) and (VerifyEntryPoint =1 AND TrendlineStart = 1) AND ScanExitBull =0 AND (indRSI crosses over 50 AND indRSI < 56) AND EnterAPosition =1 Then // Conditions to enter long positions IF NOT LongOnMarket THEN BUY 2 CONTRACTS AT MARKET ENDIF EntrySignalBull= ABS(indMACDLn) EntrySignalBIBull = barindex //drawarrowup(EntrySignalBIBull,EntrySignalBull) coloured(255,192,203)//flesh colour BullPosition = 1 BullishDivMACD =0 SignalBullRemove = 1 ScanExitBull = 1 ENDIF if barindex > EntrySignalBIBull and SignalBullRemove = 1 then EntrySignalBull = 0 SignalBullRemove = 0 EnterAPosition =0 endif //###################################################### //#################################################################################### //Conditions to Start Bearish if barindex = 11 then InterPriceMax=0 InterMACDLnMax =0 oldPriceMax = 0 oldMACDLnMax=0 InterBIMax = 0 HighestDetected =0 endif If condMACDLnOver0 then PriceMax=0 MACDLnMax =0 BIStartBear = barindex EntrySignalBear =0 SCANBear = 1 obpassed =0 endif if SCANBear = 1 and barindex >BIStartBear and ob then //Get max of Price PriceMax = max(PriceMax, High) if PriceMax <> PriceMax[1] then PriceMaxBI = barindex PriceMaxMACDLn = indMACDLn endif //Get max MACDLn MACDLnMax =max(MACDLnMax,indMACDLn) if MACDLnMax <> MACDLnMax[1] then BIMax = barindex endif if MACDLnMax > PriceMaxMACDLn then BIMax = PriceMaxBI endif obpassed = 1 if TrendlineStart = 1 then HighestDetected = max(HighestDetected, High) if HighestDetected <> HighestDetected[1] then BIHighestDetected = barindex endif endif endif // Check for bearish crossover and divergences If SCANBear=1 and condMACDLnUnder0 and obpassed = 1 then oldPriceMax = InterPriceMax InterPriceMax =PriceMax oldMACDLnMax = InterMACDLnMax InterMACDLnMax =MACDLnMax oldBIMax = InterBImax InterBImax = BIMax if barindex >= BIHighestDetected and InterPriceMax >= HighestDetected then BearishDivMACD = (InterPriceMax >= oldPriceMax) AND (InterMACDLnMax < oldMACDLnMax) AND (BIMax > BIStartBear) endif if BearishDivMACD then BIDivBear = BImax SCANBear=0 InterPriceMax=0 InterMACDLnMax =0 oldPriceMax = 0 oldMACDLnMax=0 endif obpassed = 0 endif If (barindex >= BIDivBear) and BearishDivMACD THEN EntrySignalBear = ABS(indMACDLn) EntrySignalBIBear = barindex if barindex >= EntrySignalBIBear and BullPosition = 1 then CountBearDiver = CountBearDiver +1 //drawtext ("C = #CountBearDiver#" , barindex, indMACDLn) endif ExecutedBearishDivMACD = 1 ExecutedBearishBI = barindex BearishDivMACD =0 SignalBearRemove = 1 ENDIF if barindex > EntrySignalBIBear and SignalBearRemove = 1 then EntrySignalBear = 0 SignalBearRemove = 0 endif //############################################################################# //TRENDLINE SCAN FOR BREAK //If barindex > BIDivBear AND TrendlineEnd = 1 AND TrendlineStart = 1 AND VerifyEntryPoint = 1 AND BullPosition = 1 then If barindex > TrendlineEndBI AND TrendlineEnd=1 AND TrendlineStart = 1 AND VerifyEntryPoint = 1 AND BullPosition = 1 then yintercept = (y1 - (mslope*x1)) ybreak = (mslope*barindex) + yintercept if CLOSE crosses under ybreak OR CLOSE < ybreak Then // Conditions to exit long positions If LongOnMarket THEN SELL AT MARKET ENDIF ScanTrendline = 0 TrendlineEnd = 0 TrendlineStart = 0 ScanExitBull=0 ScanEndPoint =0 CountBearDiver =0 BullPosition = 0 HighestDetected =0 SCANBULLTL =0 checkTP = 0 endif endif If barindex > TrendlineEndBI AND TrendlineStart = 1 AND VerifyEntryPoint = 1 AND BullPosition = 1 AND checkTP = 1 AND ValidTP = 1 then if CLOSE crosses over TPProjection or CLOSE > TPProjection Then // Conditions to exit long positions If LongOnMarket THEN SELL AT MARKET ENDIF ScanTrendline = 0 TrendlineEnd = 0 TrendlineStart = 0 ScanExitBull=0 ScanEndPoint =0 CountBearDiver =0 BullPosition = 0 HighestDetected =0 SCANBULLTL =0 checkTP = 0 ValidTP =0 endif endif ///TPProjection status if CLOSE crosses over TPProjection or CLOSE > TPProjection Then TPProjectioncheck = 1 TPProjectioncheckBI = barindex endif //if barindex > TPProjectioncheckBI and TPProjectioncheck = 1 then ////drawarrowdown(barindex,indMACDLn) coloured(210, 105, 30) //chocolate for TP //TPProjectioncheck = 0 //TPcounter = TPcounter + 1 //endif if barindex > EntrySignalBIBull and ScanExitBull=1 then if VerifyEntryPoint=0 then ExitBullBI = barindex ExitSignalBull = ABS(indMACDLn) // Conditions to exit long positions If LongOnMarket THEN SELL AT MARKET ENDIF IF VerifyEntryPoint=0 THEN x1 = x1orig //from bullish diver y1 = y1orig y1MACDLn = y1MACDorig x2 =ExitBullBI //y2 = InterPricemin y2MACD = indMACDLn ENDIF ScanTrendline = 0 TrendlineEnd = 0 TrendlineStart = 0 ScanExitBull=0 ScanEndPoint =0 CountBearDiver =0 BullPosition = 0 ScanExitBull =0 HighestDetected =0 SCANBULLTL =0 checkTP = 0 ValidTP = 0 //endif endif endif // // //return indMACDLn as "MACDLine",indMACDSign as "MACDSign",indMACDHis as "MACDHistogram", 0 coloured(168,168,168) style(line,2) as"0 level"//,EntrySignalBull coloured(255,192,203) style (histogram) as "Enter here bullish",EntrySignalBear coloured(160,75,180) style (histogram) as "Enter here bearish"

  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 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550

  //BACKTESTING DiverLineBull Part3// ######################################################################################################     //Variable Declarations   obLevel = 65 //20210308 oslevel = 40 //20210308   //Indicator Declarations   indMACDLn = MACDline[12,26,9](close) indMACDSign = MACDSignal[12,26,9](close) indMACDHis = MACD[12,26,9](close) indRSI = RSI[14](close) indRSI30 = RSI[30](close)   //Conditions to Reset   ob = indRSI>obLevel //20210308 oS = indRSI<osLevel //20210308 osTL = indRSI < 30 condMACDLnOver0 = indMACDLn crosses over 0 condMACDLnUnder0 = indMACDLn crosses under 0     //BULLISH MACD RSI DIVERGENCE //###################################################   //Conditions to Start   if barindex = 11 then InterPriceMin=100000 InterMACDLnMin =100000 oldPriceMin = 100000 oldMACDLnMin=100000 InterBIMin = 0 endif   If condMACDLnUnder0 then   PriceMin=100000 MACDLnMin =100000 BIStartBull = barindex EntrySignalBull =0 SCANBull = 1 ospassed =0 SCANBULLTL =1   endif   if SCANBull = 1  and barindex >= BIStartBull  and os then   //Get min PriceMin, MACDLn PriceMin = min(PriceMin, Low) if PriceMin <> PriceMin[1] then PriceMinBI = barindex PriceMinMACDLn = indMACDLn endif   MACDLnMin =min(MACDLnMin,indMACDLn) if MACDLnMin <> MACDLnMin[1] then BIMin = barindex endif   if MACDLnMin < PriceMinMACDLn then BIMin = PriceMinBI endif   ospassed = 1   endif       // Check for bullish crossover and divergences If SCANBull=1 and condMACDLnOver0  and ospassed = 1  then   oldPriceMin = InterPriceMin InterPriceMin =PriceMin   oldMACDLnMin = InterMACDLnMin InterMACDLnMin =MACDLnMin oldBIMin = InterBImin InterBImin = BIMin   If BullPosition = 0 then //declare divergence condition BullishDivMACD = (InterPriceMin < oldPriceMin ) AND (InterMACDLnMin > oldMACDLnMin)AND (BIMin > BIStartBull)   if BullishDivMACD then BIDivBull = barindex //drawsegment(oldBIMin,oldMACDLnMin,BIMin,MACDLnMin) coloured(0,100,0)//green //drawarrowup(BIMin,MACDLnMin) coloured(0,100,0)//green SCANBull=0   x1orig = InterBImin y1orig = InterPriceMin y1MACDorig = InterMACDLnMin //drawarrowdown(x1orig,y1MACDorig) coloured(0,255,255)//aquamarine TrendlineStart = 1   InterPriceMin=100000 InterMACDLnMin =100000 oldPriceMin = 100000 oldMACDLnMin=100000 mslopeorig = 1000000 mslopeorig1 = 1000000 mslopeorig2 = 1000000 mslopeimmediate= 1000000 mslopeimmediateold= 1000000     VerifyEntryPoint =1 EnterAPosition =1 ScanExitBull =0 ValidTP = 0 TPcounter =0 endif   ospassed = 0 endif endif   //############################################################################################# //Trendline tracking start here   If condMACDLnUnder0 AND BullPosition = 1 AND barindex >= EntrySignalBIBull then   PriceMin=100000 MACDLnMin =100000 BIStartBull = barindex osTLpassed =0 SCANBULLTL =1   endif   IF SCANBULLTL =1 AND TrendlineStart = 1  AND BIStartBull >= BIDivBull  AND osTL then //Get min PriceMin, MACDLn PriceMin = min(PriceMin, Low) if PriceMin <> PriceMin[1] then PriceMinBI = barindex PriceMinMACDLn = indMACDLn endif   MACDLnMin =min(MACDLnMin,indMACDLn) if MACDLnMin <> MACDLnMin[1] then BIMin = barindex endif   if MACDLnMin < PriceMinMACDLn then BIMin = PriceMinBI endif osTLpassed =1 ENDIF   //counting bearish divergences and X2 plotting If barindex >= EntrySignalBIBull AND BullPosition = 1  AND condMACDLnOver0 AND osTLpassed =1 then oldPriceMin = InterPriceMin InterPriceMin =PriceMin   oldMACDLnMin = InterMACDLnMin InterMACDLnMin =MACDLnMin oldBIMin = InterBImin InterBImin = BIMin if (oldPriceMin > InterPriceMin) AND (InterMACDLnMin > OldMACDLnMin) then //drawarrowdown(OldBIMin,OldMACDLnMin) coloured(0,255,255)//aquamarine checkTP = 1 endif IF CountBearDiver <1 then mslopeorigold= mslopeorig x1diver =x1orig y1diver = y1orig y1MACDLndiver =y1MACDorig oldx2 =oldBIMin //previous scan under macdln oldy2= oldPriceMin oldy2MACDLn = oldMACDLnMin newx2=InterBImin newy2=InterPriceMin newy2MACDLn=InterMACDLnMin mslopeorig1 = (oldy2-y1diver) / (oldx2-x1diver) mslopeorig2 = (newy2-y1diver) / (newx2-x1diver) mslopeorigold = mslopeorig   if mslopeorig2 < mslopeorig1 AND mslopeorig1 > 0 then  //if new diver slope is less than the original mslopeorig =mslopeorig2 x2orig = newx2 y2orig = newy2 y2MACDLnorig=newy2MACDLn //TrendlineEnd = 0 mslope =mslopeorig TrendlineEnd = 0 runningBI = barindex   else //if new diver slope is less than the original slope then calculate the immediate slope, choose the lowest slope mslopeorig =min(mslopeorig2,mslopeorigold)   x1imm =x2orig //previous scan under macdln with os y1imm = y2orig y1MACDLnimm =y2MACDLnorig x2imm= InterBImin y2imm=InterPriceMin y2MACDLnimm =InterMACDLnMin mslopeimmediate =(y2imm-y1imm) / (x2imm-x1imm) //to check orientation of slope (neg or pos) mslope =MIN(mslopeimmediate,mslopeorig) checkTP = 1     if TPcounter > 1 then checkTP = 1 ValidTP = 1 endif   if barindex > TPProjectioncheckBI and TPProjectioncheck = 1 then //drawarrowdown(barindex,indMACDLn) coloured(210, 105, 30) //chocolate for TP TPProjectioncheck = 0 TPcounter = TPcounter + 1 endif   endif   x1anchor = x1imm y1anchor = y1imm y1MACDLnanchor =y1MACDLnimm //TrendlineEnd = 0     endif   //If barindex >= EntrySignalBIBull AND BullPosition = 1 AND CountBearDiver =1  AND condMACDLnOver0 AND osTLpassed =1 then IF CountBearDiver >=1 then   If TrendlineEnd = 0 then //getting the immediate slope, mslopeimmediate mslopeimmediateold = mslope x1imm =x1anchor //previous scan under macdln with os y1imm = y1anchor y1MACDLnimm =y1MACDLnanchor x2imm= InterBImin y2imm=InterPriceMin y2MACDLnimm =InterMACDLnMin mslopeimmediate =(y2imm-y1imm) / (x2imm-x1imm) //to check orientation of slope (neg or pos) //drawtext ("mslopeimmediateold = #mslopeimmediateold#",x2imm,y2MACDLnimm) // //drawtext ("mslopeimmediate = #mslopeimmediate#",x2imm,y2MACDLnimm) // //drawarrowdown(x1,y1MACDLn) coloured(0,255,255)//aquamarine //drawarrowdown(x2imm,y2MACDLnimm) coloured(250,235,215)//antiquewhite mslope = min(mslopeimmediate,mslopeimmediateold) //drawtext ("mslopeimmediateold = #mslopeimmediateold#",x2imm,y2MACDLnimm) // x1 = x1anchor y1= y1anchor y1MACDLn= y1MACDLnanchor   TrendlineEnd = 1 TrendlineEndBI = barindex //drawarrowdown(x1,y1MACDLn) coloured(0,255,255)//aquamarine //drawtext ("mslopeimmediate = #mslopeimmediate#",x1,y1MACDLn) //-0.0012 //drawsegment(x1,y1MACDLn,x2,y2MACDLn) coloured(0,255,255)// aquamarine   endif//end of first CountBearDiver =1   //start of CountBearDiver =1 with trendlineend=1 condition IF TrendlineEnd = 1 AND barindex >= TrendlineEndBI then mslopeimmediateold = mslopeimmediate //getting the immediate slope, mslopeimmediate x1 = x1anchor y1= y1anchor y1MACDLn= y1MACDLnanchor   x2 = InterBImin y2 = InterPriceMin y2MACDLn = InterMACDLnMin   mslopeimmediate = (y2-y1)/(x2-x1) //drawarrowdown(x1anchor,y1MACDLnanchor) coloured(250,235,215)//antiquewhite //drawtext ("mslopeimmediateold = #mslopeimmediateold#",x1,y1MACDLn) //mslopetransferold = mslopetransfer if mslopeimmediate < mslopeimmediateold AND mslopeimmediateold > 0 then // mslope = mslopeimmediate mslopetransferBI = barindex //drawarrowdown(x2,y2MACDLn) coloured(0,255,255)//aquamarine x1transfer = x1imm y1transfer = y1imm y1MACDLntransfer =y1MACDLnimm x2transfer = x2imm y2transfer = y2imm y2MACDLntransfer=y2MACDLnimm //drawtext ("mslopetransfer = #mslopetransfer#",x2,y2MACDLn) //drawsegment(x1transfer,y1MACDLntransfer,x2transfer,y2MACDLntransfer) coloured(0,255,255)// aquamarine checkTP = 1 else if mslopeimmediate > mslopeimmediateold AND barindex >=TPProjectioncheckBI then checkTP = 1 ValidTP = 1 mslope = mslopeimmediateold endif endif //checkTP = 1 endif   endif TPIntercept = HighestDetected - mslope*(BIHighestDetected) TPProjection = mslope*(barindex) + TPIntercept //tryBI = barindex //drawtext ("TPIntercept = #TPIntercept#",BIHighestDetected,y2MACDLnimm) //drawtext ("TPProjection = #TPProjection#",x2imm,y2MACDLnimm) //drawarrowdown(BIHighestDetected,y2MACDLnimm) coloured(0,255,255)//aquamarine endif   //#########################################################################################3 //conditions to enter LONG POSITION   //verify entry point If (barindex >= BIDivBull) and VerifyEntryPoint=1 then if LOW < y1orig then VerifyEntryPoint = 0 SCANBULLTL =0 endif endif //endif   //If (barindex >= BIDivBull) and (VerifyEntryPoint =1 AND TrendlineStart = 1)  AND (indRSI crosses over 50 AND indRSI < 56) AND EnterAPosition =1 Then If (barindex >= BIDivBull) and (VerifyEntryPoint =1 AND TrendlineStart = 1) AND ScanExitBull =0 AND (indRSI crosses over 50 AND indRSI < 56) AND EnterAPosition =1 Then   // Conditions to enter long positions IF NOT LongOnMarket THEN BUY 2 CONTRACTS AT MARKET ENDIF   EntrySignalBull= ABS(indMACDLn) EntrySignalBIBull  = barindex //drawarrowup(EntrySignalBIBull,EntrySignalBull) coloured(255,192,203)//flesh colour BullPosition = 1 BullishDivMACD =0 SignalBullRemove = 1 ScanExitBull = 1     ENDIF   if barindex > EntrySignalBIBull and  SignalBullRemove = 1 then EntrySignalBull = 0 SignalBullRemove = 0 EnterAPosition =0 endif   //######################################################       //#################################################################################### //Conditions to Start Bearish    if barindex = 11 then InterPriceMax=0 InterMACDLnMax =0 oldPriceMax = 0 oldMACDLnMax=0 InterBIMax = 0 HighestDetected =0 endif   If condMACDLnOver0 then   PriceMax=0 MACDLnMax =0 BIStartBear = barindex EntrySignalBear =0 SCANBear = 1 obpassed =0   endif   if SCANBear = 1  and barindex >BIStartBear and ob then //Get max of Price PriceMax = max(PriceMax, High) if PriceMax <> PriceMax[1] then PriceMaxBI = barindex PriceMaxMACDLn = indMACDLn endif //Get max MACDLn MACDLnMax =max(MACDLnMax,indMACDLn) if MACDLnMax <> MACDLnMax[1] then BIMax = barindex endif   if MACDLnMax > PriceMaxMACDLn then BIMax = PriceMaxBI endif   obpassed = 1   if TrendlineStart = 1 then HighestDetected = max(HighestDetected, High) if HighestDetected <> HighestDetected[1] then BIHighestDetected = barindex endif endif   endif   // Check for bearish crossover and divergences If SCANBear=1 and condMACDLnUnder0 and obpassed = 1 then   oldPriceMax = InterPriceMax InterPriceMax =PriceMax oldMACDLnMax = InterMACDLnMax InterMACDLnMax =MACDLnMax oldBIMax = InterBImax InterBImax = BIMax   if barindex >= BIHighestDetected and InterPriceMax >= HighestDetected then BearishDivMACD = (InterPriceMax >= oldPriceMax) AND (InterMACDLnMax < oldMACDLnMax) AND (BIMax > BIStartBear) endif if BearishDivMACD then BIDivBear = BImax SCANBear=0 InterPriceMax=0 InterMACDLnMax =0 oldPriceMax = 0 oldMACDLnMax=0 endif   obpassed = 0   endif   If (barindex >= BIDivBear) and BearishDivMACD THEN EntrySignalBear = ABS(indMACDLn) EntrySignalBIBear = barindex   if barindex >= EntrySignalBIBear and BullPosition = 1 then CountBearDiver = CountBearDiver +1 //drawtext ("C = #CountBearDiver#" , barindex, indMACDLn) endif   ExecutedBearishDivMACD = 1 ExecutedBearishBI = barindex BearishDivMACD =0 SignalBearRemove = 1 ENDIF     if barindex > EntrySignalBIBear and  SignalBearRemove = 1 then EntrySignalBear = 0 SignalBearRemove = 0 endif   //#############################################################################   //TRENDLINE SCAN FOR BREAK //If barindex > BIDivBear AND TrendlineEnd = 1 AND TrendlineStart = 1 AND VerifyEntryPoint = 1 AND BullPosition = 1 then If barindex > TrendlineEndBI AND TrendlineEnd=1 AND TrendlineStart = 1 AND VerifyEntryPoint = 1 AND BullPosition = 1 then yintercept = (y1 - (mslope*x1)) ybreak = (mslope*barindex) + yintercept if CLOSE crosses under ybreak OR CLOSE < ybreak  Then // Conditions to exit long positions If LongOnMarket THEN SELL AT MARKET ENDIF   ScanTrendline = 0 TrendlineEnd = 0 TrendlineStart = 0 ScanExitBull=0 ScanEndPoint =0 CountBearDiver =0 BullPosition = 0 HighestDetected =0 SCANBULLTL =0 checkTP = 0 endif     endif   If barindex > TrendlineEndBI AND  TrendlineStart = 1 AND VerifyEntryPoint = 1 AND BullPosition = 1 AND checkTP = 1 AND ValidTP = 1 then if CLOSE crosses over TPProjection  or CLOSE > TPProjection Then   // Conditions to exit long positions If LongOnMarket THEN SELL AT MARKET ENDIF   ScanTrendline = 0 TrendlineEnd = 0 TrendlineStart = 0 ScanExitBull=0 ScanEndPoint =0 CountBearDiver =0 BullPosition = 0 HighestDetected =0 SCANBULLTL =0 checkTP = 0 ValidTP =0 endif endif   ///TPProjection status if CLOSE crosses over TPProjection  or CLOSE > TPProjection Then TPProjectioncheck = 1 TPProjectioncheckBI = barindex endif   //if barindex > TPProjectioncheckBI and TPProjectioncheck = 1 then ////drawarrowdown(barindex,indMACDLn) coloured(210, 105, 30) //chocolate for TP //TPProjectioncheck = 0 //TPcounter = TPcounter + 1 //endif       if barindex > EntrySignalBIBull and ScanExitBull=1  then   if VerifyEntryPoint=0  then ExitBullBI = barindex ExitSignalBull = ABS(indMACDLn)   // Conditions to exit long positions If LongOnMarket THEN SELL AT MARKET ENDIF   IF VerifyEntryPoint=0 THEN x1 = x1orig //from bullish diver y1 = y1orig y1MACDLn = y1MACDorig x2 =ExitBullBI //y2 = InterPricemin y2MACD = indMACDLn   ENDIF   ScanTrendline = 0 TrendlineEnd = 0 TrendlineStart = 0 ScanExitBull=0 ScanEndPoint =0 CountBearDiver =0 BullPosition = 0 ScanExitBull =0 HighestDetected =0 SCANBULLTL =0 checkTP = 0 ValidTP = 0 //endif endif endif //   // //return indMACDLn as "MACDLine",indMACDSign as "MACDSign",indMACDHis as "MACDHistogram", 0 coloured(168,168,168) style(line,2) as"0 level"//,EntrySignalBull coloured(255,192,203) style (histogram) as "Enter here bullish",EntrySignalBear coloured(160,75,180) style (histogram) as "Enter here bearish"

   

  

  LuckyClover18

  Participant

  Topics: 2

  Replies: 4

  Been thanked: 1 time
  08/16/2021 at 5:51 AM #175422
  murre87

  Thanks alot for sharing.
  I did a BT last 3 years. Seems good but very few trades

  

  murre87

  Participant

  Topics: 17

  Replies: 162

  Been thanked: 21 times
• Author
  Posts