// Downloaded From https://www.WiseStockTrader.com
_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();