Stock Portfolio Organizer

The ultimate porfolio management solution.

Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
For Portfolio Manager Click Here

WiseTrader Toolbox

#1 Selling Amibroker Plugin featuring:

Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Find Out More Here

Volume + Info for Amibroker (AFL)
BrockQAW
about 10 years ago
Amibroker (AFL)

Rating:
3 / 5 (Votes 2)
Tags:
amibroker

This Chart Plot any styles of realtime volume and somу Info.

Screenshots

Indicator / Formula

Copy & Paste Friendly
GraphXSpace = 8;

_SECTION_BEGIN("Volume");
BarsColor = ParamList ("Chart Color", "Mono|Price|Volume|Bull+Bear");
HistThick = Param("Histogram Thickness", -30, -60, 0, 5);

BullCond  = V>Ref(V,-1) AND C>Ref(C,-1) OR V<Ref(V,-1) AND C<Ref(C,-1);
BearCond  = V>Ref(V,-1) AND C<Ref(C,-1) OR V<Ref(V,-1) AND C>Ref(C,-1);
BuBeColor = IIf(BullCond, colorseaGreen, IIf(BearCond, colorOrange, colorLightBlue));

if      (BarsColor == "Mono")		{ BarColors=colorLightBlue; Msg = "Mono"; } 
else if (BarsColor == "Price")		{ BarColors=IIf(C>O, colorseaGreen, colorOrange); Msg = "Price UpDn"; }
else if (BarsColor == "Volume")		{ BarColors=IIf(V>Ref(V, -1), colorseaGreen, colorOrange);  Msg = "Volume UpDn"; }
else if (BarsColor == "Bull+Bear")	{ BarColors=BuBeColor; Msg = "Bull or Bear";  }

SetBarFillColor(BarColors);
Plot(V,"Volume", BarColors, styleHistogram, Null, Null, 0, 1, HistThick);
//VL     = LastValue(Volume);
VLCol  = LastValue(BarColors);
VAvCol = colorBlue;

VAv = (round(EMA(V,Param("Average Period", 4, 1, 100, 1)) )/10)*10;
Plot(VAv, "Volume Average", VAvCol, styleThick, Null, Null, 0, 0, width = -15);

// INFO
// If last Volume bar > Volume average, then rectangle color is infCol
// If last Volume bar < Volume average, then rectangle color is VAvCol
diffVol = V - VAv;
infCol    = LastValue( IIf(diffVol >= 0, VLCol, VAvCol) );
FillColor = LastValue(BarColors);
GfxSetTextColor(colorBlack);
GfxSelectPen(colorBlack, 1);
GfxSelectSolidBrush(infCol);	
X0 = Status("pxwidth") - 110; Y0 = 10;
GfxRoundRect(X0,Y0,X0+24,Y0+24,6,6);
GfxSelectFont("Consolas", 12, 400);
GfxSetTextColor(infCol);
GfxTextOut(Msg, X0 - 140, Y0);
_SECTION_END();	

4 comments

1. vputcha

Hi,
The AFL is giving the following errors which may kindly be corrected and posted back please.

LN: 17, Col: 72: Error 16. Too many arguments
LN 23, Col: 76: Error 16. Too many arguments

Best regards,
Vishnu Vandana

2. BrockQAW

Hi! Thanks for your reply.
This is an original AFL 1.8 Help string for Plot operator:

Plot(array, name, color/barcolor, style = styleLine, minvalue = {empty}, maxvalue = {empty}, XShift = 0, Zorder = 0, width = 1 )

This is my adaptation to Volume script of line 17:
Plot(V,“Volume”, BarColors, styleHistogram, Null, Null, 0, 1, HistThick);

All is correct. You can modify script for previous AFL version as:
line 17:
Plot(V,“Volume”, BarColors, styleHistogram);

line 23:
Plot(VAv, “Volume Average”, VAvCol, styleThick);

Reply if you want.

3. abhijeet_f

still not working same error

4. BrockQAW

You can replace codes as:

Line 17:
Plot(V,“Volume”, BarColors, styleHistogram); //, Null, Null, 0, 1, HistThick);

Line23:
Plot(VAv, “Volume Average”, VAvCol, styleThick); //, Null, Null, 0, 0, width = -15);

Leave Comment

Please login here to leave a comment.

Back