Top 25 Volume Explorer for Amibroker (AFL)

no=Param( "Swing", 2, 1, 55 );
tsl_col=ParamColor( "Color", colorCycle );

res=HHV(H,no);
sup=LLV(L,no);
avd=IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0));
avn=ValueWhen(avd!=0,avd,1);
tsl=IIf(avn==1,sup,res);

Plot(tsl, _DEFAULT_NAME(), tsl_col, styleStaircase);

V20=MA(V,20);
V3=MA(V,3);
V320=(V3/V20)>2;
V120=(V/V20)>2;
Buy=Cross(C,tsl);
Sell=Cross(tsl,C);


Filter=Buy OR Sell OR V120 OR V320;


AddColumn(IIf(V120,V120,0),"V120",1.0,colorWhite,IIf(V120,colorDarkGreen,Null));
AddColumn(IIf(V320,V320,0),"V320",1.0,colorWhite,IIf(V320,colorDarkGreen,Null));
AddColumn(IIf(Buy,1,IIf(Sell,-1,0)),"b/s",1.0,colorWhite,IIf(Buy,colorDarkGreen,IIf(Buy,colorRed,Null)));