// Chaos3D Created on 08-Mar-2016 By PolarSolar
// Edited by ShowerTheGod

study(title="Chaos 4D VWMA", shorttitle="C4DV", overlay=true)
src = input(hl2,title="VWMA Source")
sVWMAl = input(8,title="Fast VWMA length")
mVWMAl = input(21,title="Middle VWMA length")
bVWMAl = input(34,title="Slow VWMA length")
bbVWMAl = input(200, title="Slowest VWMA length")

// moving averages
sVWMA = vwma(src,sVWMAl)
mVWMA = vwma(src,mVWMAl)
bVWMA = vwma(src,bVWMAl)
bbVWMA = vwma(src,bbVWMAl)

sVWMAplot = plot(sVWMA,"Fast VWMA",#FFD700,2,solid,transp=0)
mVWMAplot = plot(mVWMA,"Middle VWMA", #29b6f6 ,2,solid,transp=0)
bVWMAplot = plot(bVWMA,"Slow VWMA", #d32f2f ,2,solid,transp=0)
bbVWMAplot = plot(bbVWMA,"Slowest VWMA", #d32f2f ,2,solid,transp=0)

//biggest pair visualisation
fill(bVWMAplot,bbVWMAplot,mVWMA>bbVWMA and bVWMA>bbVWMA?#ADFF2F:bbVWMA>bVWMA and bVWMA>mVWMA?red:#1E90FF,transp=75, title="Biggest Pair")
// big pair visualisation
fill(mVWMAplot,bVWMAplot,sVWMA>mVWMA and mVWMA>bVWMA?#ADFF2F:bVWMA>mVWMA and mVWMA>sVWMA?red:#1E90FF,transp=75, title="Big Pair")
// mid pair visualisation
fill(sVWMAplot,mVWMAplot,low>sVWMA and sVWMA>mVWMA?#ADFF2F:mVWMA>sVWMA and sVWMA>high?red:#1E90FF,transp=70,title="Mid Pair")
// small pair visualisation
barcolor(low>sVWMA?#33CC00:high<sVWMA?red:na,title="Small Pair")