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

MACD colored with Volume for Amibroker (AFL)

Copy & Paste Friendly
Hellow,

Volume is added for MACD Colored indicator. It gives further clarity on trend.

1) Buy with Good volume above zero is strong buy.
2) Sell with Good volume below zero is strong sell.

Other buy sell signals are simple buy sell signals.

//===========Start of AFL ==================

_SECTION_BEGIN("MACD"); 
r1 = Param( "Fast avg", 12, 2, 200, 1 ); 
r2 = Param( "Slow avg", 26, 2, 200, 1 ); 
r3 = Param( "Signal avg", 9, 2, 200, 1 ); 

MACDstyle = ParamStyle("MACD style"); 
Signalstyle = ParamStyle("Signal style"); 
Histstyle = ParamStyle("Histogram style", styleHistogram | styleThick | styleNoLabel, maskHistogram ); 

MACDcolor = ParamColor( "Macd One Color", colorRed ); 
Signalcolor = ParamColor( "Signal Color", colorBlue ); 
Histcolor = ParamColor( "Histogram One Color", colorRed ); 

TitleText = StrFormat("MACD " + "(%g,%g)", r1, r2); 
PlotGrid( 0 ); 
_SECTION_END(); _SECTION_END (); 

_SECTION_BEGIN("MACD Color"); 
dyncolorswitch = ParamToggle("Macd Color","On,Off"); 
dynamic_color = IIf( MACD(r1, r2) > Ref(MACD(r1, r2),-1), ParamColor("Macd Up Color", colorGreen ), ParamColor("Macd Down Color", colorRed )); 
Plot( ml = MACD(r1, r2), TitleText, IIf(dyncolorswitch, MACDcolor , dynamic_color), MACDstyle ); 
Plot( sl = Signal(r1,r2,r3), "Signal" + _PARAM_VALUES(), Signalcolor, Signalstyle ); 
_SECTION_END(); _SECTION_END (); 

_SECTION_BEGIN("Histogram Color"); 
Histogramswitch = ParamToggle("Histogram Color","On,Off"); 
Histogram_color = IIf( ml-sl > Ref(ml-sl,-1), ParamColor("Hist Up Color", ColorRGB(0,0,100) ), ParamColor("Hist Down Color", colorDarkRed )); 
//Plot( ml-sl, "MACD Histogram", IIf(Histogramswitch, Histcolor , Histogram_color), styleNoTitle | Histstyle ); 
_SECTION_END(); _SECTION_END (); 

_SECTION_BEGIN("Buy Sell Arrows"); 
shapesSignalswitch = ParamToggle("Cross Signal Arrows","On,Off"); 
UPcolor = ParamColor( "UP Color", colorGreen ); 
DOWNcolor = ParamColor( "Down Color", colorRed ); 
Buy=Cross( MACD(), Signal() ); 
Sell=Cross( Signal(), MACD() ); 
shape = Buy * shapeUpArrow + Sell * shapeDownArrow; 
PlotShapes( IIf(shapesSignalswitch,-1e10,shape), IIf( Buy, UPcolor, DOWNcolor )); 
_SECTION_END(); 

_SECTION_BEGIN("Fill Color"); 
m = MACD(r1, r2); 
s = Signal(r1,r2,r3); 
Cloudswitch = ParamToggle("Fill Color","On,Off"); 
dynamic_color = IIf( m > s, ParamColor("Down Color", ColorRGB(0,0,100) ), ParamColor("Up Color", colorDarkRed )); 
PlotOHLC( IIf(Cloudswitch,-1e10,m),IIf(Cloudswitch,-1e10,m),IIf(Cloudswitch,-1e10,s),IIf(Cloudswitch,-1e10,m), "", dynamic_color, styleNoLabel | styleCloud ); 
_SECTION_END(); _SECTION_END (); 

Buy=Cross( MACD(), Signal() ); 
Sell=Cross( Signal(), MACD() ); 

//PlotShapes( IIf( Buy , shapeSmallCircle, shapeNone ),            colorWhite, 0, Graph1 , 0  );
//PlotShapes( IIf( Sell , shapeSmallCircle, shapeNone ),            colorRed, 0, Graph1 , 0  );

PlotShapes( IIf( Buy , shapeCircle, shapeNone ),            colorWhite, 0, Graph1 , 0  );
PlotShapes( IIf( Sell , shapeCircle, shapeNone ),            colorRed, 0, Graph1 , 0  );

// Volume Controls starts
_SECTION_BEGIN("VOLUME_Hight of Volume Bars Control");
PlotVOL = ParamToggle( "plot Volume?","No| Yes",1);
VolColor = (C>O OR (C==O AND (H-C)<=(C-L) ))*ParamColor( "VUpColor" ,colorGreen) +
(C<O OR (C==O AND
(H-C)>(C-L)) )*ParamColor( "VDnColor" ,colorRed) ;
VolScale = Param("1/Vol. Height (TimeBar chart)(fraction of
window) 5=1/5=20%",2, 1, 100, 1.0) ; // Timebars
if (PlotVOL >0) 
{
Vheight = VolScale;
Plot(Prec(Volume ,0),"V",VolColor,styleNoTitle| styleOwnScale| styleNoLabel|styleThick| ParamStyle( "VStyle", styleHistogram,maskHistogram| styleNoLabel) ,Vheight ); }
_SECTION_END();

// ========== End of AFL ====================

Back