//@version=3
study("Effeciency")
// MADE BY MVPMC // DISCORD CMYK
// Effeciency is the Movement divided by the force required.
// Bullish means, it moves up easier than down
// Bearish means, it moves down easier than up
// But also the amount of force (volume) and if it increases/decreases matters
transp          =   #00000000
xgreen          =   #00FFCC66
xred            =   #FF222266
xblack          =   #000000FF

x               =   input(1)
y               =   input(50)
z               =   input(minval=1,defval=1.10, step=0.1,title='threshold')

PRICEMOVEMENT   =   close[x] - close
VOLMOVEMENT     =   sma(volume,x)
EFFMOVEMENT     =   PRICEMOVEMENT / VOLMOVEMENT

UPP             =   EFFMOVEMENT > 0 ? EFFMOVEMENT : 0
DOW             =   EFFMOVEMENT < 0 ? EFFMOVEMENT : 0

SMAUPP          =   sma(UPP,y)
SMADOW          =   sma(DOW,y)
SMABASE         =   SMAUPP > -SMADOW  ? -SMADOW : SMAUPP < -SMADOW ? SMAUPP : SMAUPP

BGCOLOR         =   SMAUPP > (z * -SMADOW) ? xred :  ( z * SMAUPP ) <  -SMADOW ? xgreen : transp

bgcolor(BGCOLOR)

plot(SMAUPP, color=xred,style=histogram)
plot(-SMADOW, color=xgreen,style=histogram)
plot(SMABASE, color=xblack,style=histogram)