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 ....
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Colored Volume for Amibroker (AFL)
Copy & Paste Friendly
Back
_SECTION_BEGIN("Simple Volume");
SetChartOptions(0,chartShowArrows|chartShowDates);
GfxSetBkMode(1);
_SECTION_BEGIN ("Объем");
BarsColor = ParamList ("Bars Color", "By Price|Mono|By Volume|By Bull and Bears");
HistWidth = Param("Толщина гистораммы", -30, -60, 0, 10);
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, colorBrightGreen, IIf( BearCond, colorRed, colorLightYellow));
if (BarsColor == "Mono") { BarColors=colorskyBlue; Txt = "Mono"; }
else if (BarsColor == "By Price") { BarColors=IIf(C==O, colorWhite, IIf(C>O, colorBrightGreen, colorRed)); Txt="By Price"; }
else if (BarsColor == "By Volume") { BarColors=IIf(V==Ref(V,-1), colorWhite, IIf(V>Ref(V, -1), colorBrightGreen, colorRed)); Txt="By Volume"; }
else if (BarsColor == "By Bull and Bears") { BarColors=BuBeColor; Txt = "By Bull and Bears";}
SetBarFillColor(BarColors);
Plot(V,"Volume "+ Txt, BarColors, styleHistogram, Null, Null, 0, 1, HistWidth);
VL = LastValue(Volume);
VLCol = LastValue(BarColors);
//Plot(EndValue(Volume), "", VLCol, styleLine|styleNoLabel, Null, Null,0,10);
VAv = MA(V, Param("MA Period", 100, 10, 400, 10));
Plot(VAv, "Average Volume", colorYellow, styleThick);
PlotOHLC(0,VAv,0,VAv, "", colorBlack, styleCloud|styleNoLabel);
_SECTION_END();