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"

x.jpg TSV-Time-Segmented-Volume.itf

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"

Screenshot_2-1.png

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"