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 ....
Macd With Volume for Amibroker (AFL)
Copy & Paste Friendly
Back
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 | 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 ==================== |