{Wave Indicator}

 [citation

="For Total volume interpretations refer David Weiss’s Weiss Wave,WeissonWyckoff.com; for Average Volume interpretations refer Tim Ord, TheSecret Science of Price and Volume, Wiley Trading 2008;  For earlier Swing Volume accumulationindicator refer to Jose Silva’s Volume- Up/Down Swing Average indicator  http://trader-online.tk/MSZ/e-!-v.html "]

[target=Price]

{I have found that most ASX stocks up and downmoves “vibrate” to settings of between 3 to 5, and 7}

Vib:=input("Vibration", 4, .001,100);

z:=Zig(If(Outside() AND Ref(H,-1)>Ref(H,-2),H,If(Outside() AND Ref(L,-1)<Ref(L,-2),L,If((Outside() OR Inside()) AND C>O,H,If((Outside() OR Inside()) AND O>C,L,If(H>Ref(H,-1),H,If(L<Ref(L,-1),L,If(Ref(H,-1)>Ref(H,-2),H,If(Ref(L,-1)<Ref(L,-2),L,C)))))))),Vib,%);

ispeak:= z>hist(z,1) and z>future(z,1);

istrough:= z<hist(z,1) and z<future(z,1);

[linestyle=Solid; color=Red]

z;

[color=Green]

[linestyle=Text; textalign=Above,Center; color=Red]

if(isPeak, " " + z, undefined);

High;

[linestyle=Text; textalign=Below,Center;color=Green]

if(isTrough, "" + z, undefined);

Low;

{This section colours up wave bars green and downwave bars red}

[target=Price; linestyle=PriceColor]

Trendup:=Z>ref(z,-1);

Trendown:=Z<ref(z,-1);

[color=Green; name=Trendup]

Trendup;

[color=Red; name=TrendDown]

Trendown;

[color=white]

{Wave Total or Average Volume Indicator.  Set vibration to same as used in waveindicator}

[citation

="For Total volume interpretations refer David Weiss’s Weiss Wave,WeissonWyckoff.com; for Average Volume interpretations refer Tim Ord, TheSecret Science of Price and Volume, Wiley Trading 2008;  For earlier Swing Volume accumulationindicator refer to Jose Silva’s Volume- Up/Down Swing Average indicator  http://trader-online.tk/MSZ/e-!-v.html "]

Vib:=input("Vibration", 4, .001,100);

z:=Zig(If(Outside() AND Ref(H,-1)>Ref(H,-2),H,If(Outside() AND Ref(L,-1)<Ref(L,-2),L,If((Outside() OR Inside()) AND C>O,H,If((Outside() OR Inside()) AND O>C,L,If(H>Ref(H,-1),H,If(L<Ref(L,-1),L,If(Ref(H,-1)>Ref(H,-2),H,If(Ref(L,-1)<Ref(L,-2),L,C)))))))),Vib,%);

ispeak:= z>hist(z,1) and z>future(z,1);

istrough:= z<hist(z,1) and z<future(z,1);

UpZig:=Z>ref(z,-1);

DownZig:=Z<ref(z,-1);

{The next section shows the total or average volumefor each up or down waves.  (The part ofthe formula can be easily adapted to most other indicators by defining theparameters for the BuyVol and downvol from any other indicator.   For instance if the indicator was acrossover of the close the set up is BuyVol =c>Ma(c,30,s) and DownVol<Ma(c,30,s) or see adaption to HA Volume indicator)}

v1:=input("1=Total volume on waveor 2=Average volume on wave", 2, 1, 2);

[linestyle=Bar; width=4]

[name=Buy Vol;  color=Green]

Buyvol:=Upzig;

BuyVol2:=If(BuyVol,+1*v,0);

TotalBuyVol:=If( BuyVol ,+1*v+prev(BuyVol2),0);

Buybars:=barssince(Buyvol2=0);

if(v1=2,TotalBuyVol,undefined);

if(v1=1,TotalBuyVol/buybars,undefined);

[name=Sell Vol;  color=Red]

Sellvol:=Downzig;

SellVol2:=If(SellVol,+1*v,0);

TotalSellVol:=If( SellVol ,+1*v+prev(SellVol2),0);

Sellbars:=barssince(Sellvol2=0);

if(v1=2,TotalSellVol,undefined);

if(v1=1,TotalSellVol/Sellbars,undefined);

{This section shows horizontal line for comparison purposesfrom latest total or average volume calculation}

[width=1]

[name=Total Sell Vol; Linestyle=Dash; color=Black]

if(v1=2,lastvalue( TotalSellVol),undefined);

if(v1=1,lastvalue( TotalSellVol/Sellbars),undefined);

[name=Total Buy Vol;  Linestyle=Dash; color=Blue]

if(v1=2,lastvalue( TotalBuyVol),undefined);

if(v1=1,lastvalue(TotalBuyVol/Buybars),undefined);