Please – Translation of Order Blocks from TV

• 09/08/2022 at 9:58 AM #200347
  Khaled

  Thanks a million Nicols. I hope it will be helpful for a max of people here.

  

  Khaled

  Participant

  Topics: 59

  Replies: 314

  Been thanked: 65 times
  09/08/2022 at 11:01 AM #200353
  Nicolas

  Would be great to post the final code with both sides! 😉

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  09/08/2022 at 11:20 AM #200355
  Khaled

  Absolutely. I’ll do hopefully this weekend. And again thank you Nicolas!

  

  Khaled

  Participant

  Topics: 59

  Replies: 314

  Been thanked: 65 times
  09/10/2022 at 11:27 AM #200472
  Khaled

  Dear Nicols,

  Thanks to you, we are very close to the original version of TradingView. I made the following modifications:

  1. added the bullish part
  2. Line 6 OBXXXMitigation changed from close to close[1] as per original code
  3. Line 50 cleanup, I changed “j = 0 to plot–1″ with “plot-1 downto 0”
  4. Line 54 changed “2” with “1”
  5. Line 64 drawing, I changed “j = 0 to plot–1 ” with “plot-1 downto 0”

  The new code as follows:

  Order Blocks v3.1

  // Sonarlabs - Order Block Finder // converted from TradingView // Lower the sensitivity to show more order blocks. A higher sensitivity will show less order blocks defparam drawonlastbaronly=true sens = 28 once obcreatedbear = 0 once obcreatedbull = 0 once crossindexbear = 0 once crossindexbull = 0 // Custom Rate of Change (ROC) calculation. This is to calculate high momentum moves in the market. pc = ((open - open[4]) / open[4]) * 100 // ----------------- sens = sens/100 //ExponentialAverage[8](pc) //sens/100 OBBullMitigation = close[1] OBBearMitigation = close[1] // If the ROC crossover our Sensitivty input - Then create a Bearish Order Block // Sensitivty is negative as this is a Bearish OB if pc crosses under -sens then obcreatedbear = 1 crossindexbear = barindex endif // If the ROC crossover our Sensitivty input - Then create a Bullish Order Block if pc crosses over sens then obcreatedbull = 1 crossindexbull = barindex endif //////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Calculation //////////////////////////////////////////////////////////////////////////////////////////////////////////////// // ------------------------------- // Bearish OB Creation // ------------------------------- // Check if we should create a OB. Also check if we haven't created an OB in the last 5 candles. if obcreatedbear and (crossindexbear - crossindexbear[1]) > 5 then lastgreen = 0 hhighest = 0 // Loop through the most recent candles and find the first GREEN (Bullish) candle. We will place our OB here. for i = 4 to 15 if close[i] > open[i] then lastgreen = i //populate the arrays of order block to draw them later $left[plot]= barindex[lastgreen] $top[plot]=high[lastgreen] $bottom[plot]=low[lastgreen] $right[plot]=barindex[lastgreen] plot=plot+1 //increase the array column for next data break endif next endif // ------------------------------- // Bullish OB Creation // ------------------------------- // Check if we should create a OB, Also check if we haven't created an OB in the last 5 candles. if obcreatedbull and (crossindexbull - crossindexbull[1]) > 5 then lastred = 0 hhighest = 0 // Loop through the most recent candles and find the first RED (Beaarish) candle. We will place our OB here. for ibull = 4 to 15 if close[ibull] < open[ibull] then lastred = ibull //populate the arrays of order block to draw them later $leftbull[plotbull]= barindex[lastred] $topbull[plotbull]=high[lastred] $bottombull[plotbull]=low[lastred] $rightbull[plotbull]=barindex[lastred] plotbull=plotbull+1 //increase the array column for next data break endif next endif //////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Cleanup //////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Clean up Bearish OB boxes if plot>0 then for j = plot-1 downto 0 //0 to plot-1 // If the two last closes are above the high of the bearish OB - Remove the OB if $left[j]>0 then //check if the zone still exist itop = $top[j] breakout = summation[max(1,barindex-$left[j])](OBBearMitigation>itop)>=1 //2 if breakout then $left[j]=0 endif endif next endif // Clean up Bullish OB boxes if plotbull>0 then for jbull = plotbull-1 downto 0 //0 to plotbull-1 // If the two last closes are below the low of the bullish OB - Remove the OB if $leftbull[jbull]>0 then //check if the zone still exist ibot = $bottombull[jbull] breakoutbull = summation[max(1,barindex-$leftbull[jbull])](OBBullMitigation<ibot)>=1 //2 if breakoutbull then $leftbull[jbull]=0 endif endif next endif //////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Drawing //////////////////////////////////////////////////////////////////////////////////////////////////////////////// if islastbarupdate then //plot the Bearish boxes if plot>0 then //islastbarupdate and for j = plot-1 downto 0 //0 to plot-1 if $left[j]>0 then drawrectangle($left[j],$top[j],barindex,$bottom[j]) coloured("red",30)bordercolor("red",30) //bordercolor("green",85) //coloured(80,108,211,50) bordercolor(80,108,211,50) endif next endif //plot the Bullish boxes if plotbull>0 then //islastbarupdate and for jbull = plotbull-1 downto 0 //0 to plotbull-1 if $leftbull[jbull]>0 then drawrectangle($leftbull[jbull],$bottombull[jbull],barindex,$topbull[jbull]) coloured("green",30)bordercolor("green",30)//bordercolor("red",85) //coloured(100,196,172,50) bordercolor(100,196,172,50) //drawrectangle(barindex, $bottombull[jbull],$leftbull[jbull],$topbull[jbull]) coloured("red",85)//bordercolor("red",85) //coloured(100,196,172,50) bordercolor(100,196,172,50) endif next endif endif 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

  // Sonarlabs - Order Block Finder // converted from TradingView // Lower the sensitivity to show more order blocks. A higher sensitivity will show less order blocks   defparam drawonlastbaronly=true   sens = 28 once obcreatedbear = 0 once obcreatedbull = 0 once crossindexbear = 0 once crossindexbull = 0     // Custom Rate of Change (ROC) calculation. This is to calculate high momentum moves in the market. pc = ((open - open[4]) / open[4]) * 100     // ----------------- sens = sens/100 //ExponentialAverage[8](pc) //sens/100 OBBullMitigation = close[1] OBBearMitigation = close[1]     // If the ROC crossover our Sensitivty input - Then create a Bearish Order Block // Sensitivty is negative as this is a Bearish OB if pc crosses under -sens then obcreatedbear = 1 crossindexbear = barindex endif     // If the ROC crossover our Sensitivty input - Then create a Bullish Order Block if pc crosses over sens then obcreatedbull = 1 crossindexbull = barindex endif     //////////////////////////////////////////////////////////////////////////////////////////////////////////////// //      Calculation ////////////////////////////////////////////////////////////////////////////////////////////////////////////////   // ------------------------------- // Bearish OB Creation // ------------------------------- // Check if we should create a OB. Also check if we haven't created an OB in the last 5 candles. if obcreatedbear and (crossindexbear - crossindexbear[1]) > 5 then lastgreen = 0 hhighest = 0 // Loop through the most recent candles and find the first GREEN (Bullish) candle. We will place our OB here. for i = 4 to 15 if close[i] > open[i] then lastgreen = i //populate the arrays of order block to draw them later $left[plot]= barindex[lastgreen] $top[plot]=high[lastgreen] $bottom[plot]=low[lastgreen] $right[plot]=barindex[lastgreen] plot=plot+1 //increase the array column for next data break endif next endif     // ------------------------------- // Bullish OB Creation // ------------------------------- // Check if we should create a OB, Also check if we haven't created an OB in the last 5 candles. if obcreatedbull and (crossindexbull - crossindexbull[1]) > 5 then lastred = 0 hhighest = 0 // Loop through the most recent candles and find the first RED (Beaarish) candle. We will place our OB here. for ibull = 4 to 15 if close[ibull] < open[ibull] then lastred = ibull //populate the arrays of order block to draw them later $leftbull[plotbull]= barindex[lastred] $topbull[plotbull]=high[lastred] $bottombull[plotbull]=low[lastred] $rightbull[plotbull]=barindex[lastred] plotbull=plotbull+1 //increase the array column for next data break endif next endif     //////////////////////////////////////////////////////////////////////////////////////////////////////////////// //      Cleanup ////////////////////////////////////////////////////////////////////////////////////////////////////////////////   // Clean up Bearish OB boxes if plot>0 then for j = plot-1 downto 0 //0 to plot-1 // If the two last closes are above the high of the bearish OB - Remove the OB if $left[j]>0 then //check if the zone still exist itop = $top[j] breakout = summation[max(1,barindex-$left[j])](OBBearMitigation>itop)>=1 //2 if breakout then $left[j]=0 endif endif next endif   // Clean up Bullish OB boxes if plotbull>0 then for jbull = plotbull-1 downto 0 //0 to plotbull-1 // If the two last closes are below the low of the bullish OB - Remove the OB if $leftbull[jbull]>0 then //check if the zone still exist ibot = $bottombull[jbull] breakoutbull = summation[max(1,barindex-$leftbull[jbull])](OBBullMitigation<ibot)>=1 //2 if breakoutbull then $leftbull[jbull]=0 endif endif next endif   //////////////////////////////////////////////////////////////////////////////////////////////////////////////// //     Drawing ////////////////////////////////////////////////////////////////////////////////////////////////////////////////   if islastbarupdate then //plot the Bearish boxes if  plot>0 then //islastbarupdate and for j = plot-1 downto 0 //0 to plot-1 if $left[j]>0 then drawrectangle($left[j],$top[j],barindex,$bottom[j]) coloured("red",30)bordercolor("red",30) //bordercolor("green",85) //coloured(80,108,211,50) bordercolor(80,108,211,50) endif next endif //plot the Bullish boxes if  plotbull>0 then //islastbarupdate and for jbull = plotbull-1 downto 0 //0 to plotbull-1 if $leftbull[jbull]>0 then drawrectangle($leftbull[jbull],$bottombull[jbull],barindex,$topbull[jbull]) coloured("green",30)bordercolor("green",30)//bordercolor("red",85) //coloured(100,196,172,50) bordercolor(100,196,172,50) //drawrectangle(barindex, $bottombull[jbull],$leftbull[jbull],$topbull[jbull]) coloured("red",85)//bordercolor("red",85) //coloured(100,196,172,50) bordercolor(100,196,172,50) endif next endif endif   return

  Below the test on PRT (IB) and TV  on S&P500 Cash Daily and S&P500 Futures 09 H4. We have the same recent order blocks, but some of them have not been deleted on PRT.

  Thank you very much for your valuable help.

  Do you want to publish it in the library or do you want me to do it?

   

  3 users thanked author for this post.

  PLermite, fifi743, denmar

  

  Khaled

  Participant

  Topics: 59

  Replies: 314

  Been thanked: 65 times
  09/12/2022 at 9:28 AM #200598
  Nicolas

  Thanks for your effort completing the code. Yes, you can push it into the scripts library, many thanks. Let me do once you have done so please 🙂

  Some zones are not erased because price has not breached them right? In the original code there was a switch to check Highs/Lows or just Closes, the differences might be located in this particular condition?

  1 user thanked author for this post.

  Khaled

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  09/12/2022 at 2:55 PM #200625
  Khaled

  Thank you Nicolas. I posted it on the Liberary. However, I couldn’t add the itf file. The “Add Attachments” button doesn’t work.

  For the Block Orders which are not deleted, I think they are minimal in number and don’t prevent the user to see the big picture: Zones where he needs to pay attention. I’m personnaly happy with the end result.

  I hope we will have time and energy to convert the Polynomial Regression code that I shared in a seperate post https://www.prorealcode.com/topic/polynomial-regression-indicator/#post-199892 with multiple loops and Arrays, which by the way I’m using on TradingView as my main entry filter. This would really be a plus for the PRC/PRT Community and avoid the back and forth PRT – TradingView.

  A Big Thank you Nicolas.

  

  Khaled

  Participant

  Topics: 59

  Replies: 314

  Been thanked: 65 times
  10/24/2022 at 7:45 PM #202991
  foxxcrypto

  Hi Nicolas,

  i tried to run the code but it does not draw anything, do you have any ideas, i have version v11.1 – 1.8.0_202

  thank you

  

  foxxcrypto

  Participant

  Topics: 0

  Replies: 1

  Been thanked: 0 times
• Author
  Posts