True Volume Strength source

//@version=2
study("True Volume Strength")

pressure_function(Singlevariable, Multivariable)=>
    _length_adjusted = Multivariable < 1 ? 1 : Multivariable
    _sum = 0
    for _i = 0 to (_length_adjusted - 1)
        _sum := _sum + Singlevariable[_i]
    _return = _sum / _length_adjusted

UpperLim =  highest(high,10)
LowerLim =  lowest(low,10)
lowerlim1 = LowerLim[1]
at10dayhi = high == UpperLim
at10daylo = low == LowerLim
loisarisin = LowerLim > lowerlim1
trade = at10dayhi + at10daylo
var21 =  highest(volume,5)
var22 =  lowest(volume,5)
var23 = volume-var22
var24 = var21-var22
var25 = var23/var24

VOLK = var25*100
VOLD = pressure_function(VOLK,5)

var1 =  highest(high,5)
lo5 = lowest(low,5)

var3 = close-lo5
var4 = var1-lo5
var5 = var3/var4

PRICEK = var5*100
PRICED = pressure_function(PRICEK,5)

bear = crossover(VOLD,PRICED)
bull = crossover(PRICED,VOLD)

alertcondition(bull, title='Buyers Overweigh Sellers', message='Bullish Volume!')
alertcondition(bear, title='Sellers Overweigh Buyers', message='Bearish Volume!')

plot(VOLD,color=red,style=histogram,title="Sell Pressure",linewidth=4,transp=0)
plot(PRICED,color=green,style=histogram,title="Buy Pressure",linewidth=4,transp=0)