Time Segmented Volume by Worden Brothers code

• 11/05/2020 at 7:06 PM #149577
  al_craig

  Evening All,

  Amazing work on creating this site! Absolutely love it. I was wondering if anyone has the code for Time Segmented Volume that Worden Brothers produced?

  any help gratefully received 🙂

  

  al_craig

  Participant

  Topics: 3

  Replies: 6

  Been thanked: 0 times
  11/05/2020 at 9:11 PM #149591
  robertogozzi

  There you go:

  // TSV Time Segmented Volume indicator // // -------------------------------------------------------------------------------------- // 13 = number of daily HALF HOURS // 7 = ???? // -------------------------------------------------------------------------------------- // Example Settings: // Short Term Trading : TSV period between 9 and 12 // Intermediate Term Trading: TSV period between 18 and 25 // Long Term Trading : TSV period between 35 and 45 // // -------------------------------------------------------------------------------------- //ONCE p1 = 13 //ONCE p2 = 7 //ONCE Mtype = 0 p1 = max(1,min(999,p1)) p2 = max(1,min(999,p2)) Mtype = max(0,min(6,Mtype)) MyVol = 0 IF close > close[1] THEN MyVol = volume * (close - close[1]) ELSIF close < close[1] THEN MyVol = -volume * (close - close[1]) ENDIF TSV = summation[p1](MyVol) Signal = average[p2,Mtype](TSV) RETURN TSV AS "Tsv",Signal AS "Signal"

  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

  // TSV Time Segmented Volume indicator // // -------------------------------------------------------------------------------------- // 13 = number of daily HALF HOURS //  7 = ???? // -------------------------------------------------------------------------------------- //      Example Settings: // Short Term Trading       :  TSV period between  9 and 12 // Intermediate Term Trading:  TSV period between 18 and 25 // Long Term Trading        :  TSV period between 35 and 45 // // -------------------------------------------------------------------------------------- //ONCE p1    = 13 //ONCE p2    = 7 //ONCE Mtype = 0 p1           = max(1,min(999,p1)) p2           = max(1,min(999,p2)) Mtype        = max(0,min(6,Mtype)) MyVol = 0 IF close > close[1] THEN    MyVol = volume * (close - close[1]) ELSIF close < close[1] THEN    MyVol = -volume * (close - close[1]) ENDIF TSV    = summation[p1](MyVol) Signal = average[p2,Mtype](TSV) RETURN TSV AS "Tsv",Signal AS "Signal"

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16450

  Been thanked: 3634 times
  11/05/2020 at 9:26 PM #149595
  al_craig

  Thank you very much Roberto.

  Much appreciated

  

  al_craig

  Participant

  Topics: 3

  Replies: 6

  Been thanked: 0 times
  11/05/2020 at 10:13 PM #149597
  al_craig

  I am currently using balance of power which would work really well hand in hand with TSV. I can run them side by side but I would love to be build TSV onto my balance of power indicator.

  Do you think this could be done?

  thanks again for your support.

  Regards

  Alastair

  

  al_craig

  Participant

  Topics: 3

  Replies: 6

  Been thanked: 0 times
  11/05/2020 at 10:25 PM #149599
  robertogozzi

  What code do you use as balance of power ?

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16450

  Been thanked: 3634 times
  11/05/2020 at 10:43 PM #149600
  al_craig

  It is the BOP from Nicholas I believe.

  please see attached picture.

  

  al_craig

  Participant

  Topics: 3

  Replies: 6

  Been thanked: 0 times
  11/06/2020 at 1:27 AM #149614
  robertogozzi

  As you can see they don’t share the scale, values are so much different!

  Try to better explain what you mean by “I would love to be build TSV onto my balance of power indicator“.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16450

  Been thanked: 3634 times
  11/06/2020 at 6:57 AM #149624
  al_craig

  Good Morning,

  Sorry, I am not doing a very good job of explaining this. Perhaps it is easiest if I show you what I am hoping to reproduce.

  Please see attached picture 🙂 this combines BOP : TSV : MA

  Many thanks

  

  al_craig

  Participant

  Topics: 3

  Replies: 6

  Been thanked: 0 times
  11/06/2020 at 8:20 AM #149626
  Vonasi

  al_craig – Please always use the ‘Insert PRT Code’ button when posting code rather than expect the person helping you to type it all out from a screen shot.

  Like this:

  //PRC_True Balance of Power | indicator //11.10.2017 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge //converted from Pinescript version //---settings //per=30 //periods for Emoline //---end of settings trhi = max(high, close[1]) //true high trlo = min(low, close[1]) //true low trop = close[1] //true open bop = 100*(close-trop)/(trhi-trlo) //True Balance of Power as percent lin= 1.5*linearregression[per](bop) //linear regression as emoline r=0 g=255 if bop<0 then r=255 g=140 endif return bop coloured(r,g,0) style(histogram) as "BOP", lin style(line,3) as "Emoline"

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

  //PRC_True Balance of Power | indicator //11.10.2017 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge //converted from Pinescript version   //---settings //per=30 //periods for Emoline //---end of settings   trhi = max(high, close[1]) //true high trlo = min(low, close[1]) //true low trop = close[1] //true open bop = 100*(close-trop)/(trhi-trlo) //True Balance of Power as percent lin= 1.5*linearregression[per](bop) //linear regression as emoline   r=0 g=255 if bop<0 then r=255 g=140 endif   return bop coloured(r,g,0) style(histogram) as "BOP", lin style(line,3) as "Emoline"

  Alternatively provide a link to where the code can be found:

  https://www.prorealcode.com/prorealtime-indicators/balance-of-power/

   

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1810 times
  11/06/2020 at 9:34 AM #149633
  al_craig

  Good Morning Vonasi,

  Yes, not a problem. Sorry for not doing this originally. I will ensure this is done in the future.

  Many Thanks

  

  al_craig

  Participant

  Topics: 3

  Replies: 6

  Been thanked: 0 times
  11/06/2020 at 12:22 PM #149666
  robertogozzi

  You explained yourself very well, but it’s impossible, since:

  • TSV cannot drop below 0
  • TSV has a different scale than BOP.

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16450

  Been thanked: 3634 times
  11/06/2020 at 12:28 PM #149667
  Vonasi

  In your image TSV has been somehow normalised to only return between -100 and +100. We would need to know how this normalisation has been calculated. In this example I have normalised it by comparing the current TSV to the highest and lowest TSV values in the last P1 bars.

  //PRC_True Balance of Power | indicator //11.10.2017 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge //converted from Pinescript version //---settings per=30 //periods for Emoline //---end of settings trhi = max(high, close[1]) //true high trlo = min(low, close[1]) //true low trop = close[1] //true open bop = 100*(close-trop)/(trhi-trlo) //True Balance of Power as percent lin= 1.5*linearregression[per](bop) //linear regression as emoline r=0 g=255 if bop<0 then r=255 g=140 endif // TSV Time Segmented Volume indicator // // -------------------------------------------------------------------------------------- // 13 = number of daily HALF HOURS // 7 = ???? // -------------------------------------------------------------------------------------- // Example Settings: // Short Term Trading : TSV period between 9 and 12 // Intermediate Term Trading: TSV period between 18 and 25 // Long Term Trading : TSV period between 35 and 45 // // -------------------------------------------------------------------------------------- ONCE p1 = 13 ONCE p2 = 7 ONCE Mtype = 0 p1 = max(1,min(999,p1)) p2 = max(1,min(999,p2)) Mtype = max(0,min(6,Mtype)) once lookback = p1 MyVol = 0 IF close > close[1] THEN MyVol = volume * (close - close[1]) ELSIF close < close[1] THEN MyVol = -volume * (close - close[1]) ENDIF TSV = summation[lookback](MyVol) maxtsv = highest[lookback](tsv) mintsv = lowest[lookback](tsv) tsvresult = (((tsv-mintsv)/(maxtsv - mintsv))*200)-100 Signal = average[p2,Mtype](TSVresult) RETURN bop coloured(r,g,0) style(histogram) as "BOP", lin style(line,3) as "Emoline", TSVresult AS "Tsv",Signal AS "Signal"

  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

  //PRC_True Balance of Power | indicator //11.10.2017 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge //converted from Pinescript version   //---settings per=30 //periods for Emoline //---end of settings   trhi = max(high, close[1]) //true high trlo = min(low, close[1]) //true low trop = close[1] //true open bop = 100*(close-trop)/(trhi-trlo) //True Balance of Power as percent lin= 1.5*linearregression[per](bop) //linear regression as emoline   r=0 g=255 if bop<0 then r=255 g=140 endif   // TSV Time Segmented Volume indicator // // -------------------------------------------------------------------------------------- // 13 = number of daily HALF HOURS //  7 = ???? // -------------------------------------------------------------------------------------- //      Example Settings: // Short Term Trading       :  TSV period between  9 and 12 // Intermediate Term Trading:  TSV period between 18 and 25 // Long Term Trading        :  TSV period between 35 and 45 // // --------------------------------------------------------------------------------------   ONCE p1    = 13 ONCE p2    = 7 ONCE Mtype = 0   p1           = max(1,min(999,p1)) p2           = max(1,min(999,p2)) Mtype        = max(0,min(6,Mtype)) once lookback = p1   MyVol = 0 IF close > close[1] THEN MyVol = volume * (close - close[1]) ELSIF close < close[1] THEN MyVol = -volume * (close - close[1]) ENDIF TSV    = summation[lookback](MyVol)   maxtsv = highest[lookback](tsv) mintsv = lowest[lookback](tsv) tsvresult = (((tsv-mintsv)/(maxtsv - mintsv))*200)-100 Signal = average[p2,Mtype](TSVresult)   RETURN  bop coloured(r,g,0) style(histogram) as "BOP", lin style(line,3) as "Emoline", TSVresult AS "Tsv",Signal AS "Signal"

   

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1810 times
  11/06/2020 at 1:40 PM #149678
  al_craig

  Thank you both very much for your efforts. It is very much appreciated.

  I will go away and do some more homework to see what I can find out.

  Thanks again

  

  al_craig

  Participant

  Topics: 3

  Replies: 6

  Been thanked: 0 times
  11/14/2020 at 2:36 AM #150441
  Barrabas15

  I think the correct code should be like the one attached,

  I don’t know if this is correct since I don’t know much about programming but it makes much more sense.

  IF close > close[1] THEN MyVol = volume * (close - close[1]) ELSIF close < close[1] THEN MyVol1 = volume * (close[1] - close) ENDIF Vol = MyVol-MyVol1 TSV = summation[per](Vol) Signal = average[sign](TSV) if TSV >= TSV[1] then color =1 else color =-1 endif RETURN TSV coloured by color AS "Tsv",Signal AS "Signal"

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

  IF close > close[1] THEN MyVol = volume * (close - close[1]) ELSIF close < close[1] THEN MyVol1 = volume * (close[1] - close) ENDIF   Vol = MyVol-MyVol1   TSV = summation[per](Vol) Signal = average[sign](TSV)   if TSV >= TSV[1] then color =1 else color =-1 endif   RETURN TSV coloured by color AS "Tsv",Signal AS "Signal"

   

  

  Barrabas15

  Participant

  Topics: 1

  Replies: 6

  Been thanked: 0 times
  11/14/2020 at 2:45 AM #150443
  robertogozzi

  It’s the same, but since the formula I could find is TSV=(Sum( IIf( C > Ref(C,-1), V * ( C-Ref(C,-1) ), IIf( C < Ref(C,-1),-V * ( C-Ref(C,-1) ), 0 ) ) ,18)); I wrote as I did.

  Multiplying 10*-1000 is the same as multiplying -10*1000.

  There should be no difference on your chart.

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16450

  Been thanked: 3634 times
• Author
  Posts