[description=VIX bar chart & MA;  author = Bleakley, Des ; target=default;] 

wvf_smooth := input("WVF Smooth Factor " ,10,1,100);
wvf := (hhv(CLOSE,22)-LOW)/(HHV(CLOSE,22))*100;
swvf := ma(wvf,wvf_smooth,E);
[name=wvf;linestyle=bar;color=blue;]wvf;
[name=swvf;linestyle=line;color=black];swvf;