MACD - AFL for Amibroker

tanveer · June 11, 2019, 11:17am

Hi,

Can i get a AFL script for the following

BUY = CROSSOVER(MACD(13, 26, 9, EXPONENTIAL),MACDSignal(12, 26, 9, EXPONENTIAL))
SELL = CROSSOVER(MACDSignal(13, 26, 9, EXPONENTIAL),MACD(12, 26, 9, EXPONENTIAL))

Thanks,
Tanveer

coder_kamal · June 11, 2019, 12:07pm

**Tradescript: **
Moving Average Convergence / Divergence (MACD)
MACD(Short Cycle, Long Cycle, Signal Periods, MA Type)
MACDSignal(Short Cycle, Long Cycle, Signal Periods, MA Type)

AFL is as follows:

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

Plot( ml = MACD(r1, r2), StrFormat(_SECTION_NAME()+"(%g,%g)", r1, r2), ParamColor("MACD color", colorRed ), ParamStyle("MACD style") );
Plot( sl = Signal(r1,r2,r3), "Signal" + _PARAM_VALUES(), ParamColor("Signal color", colorBlue ), ParamStyle("Signal style") );
Plot( ml-sl, "MACD Histogram", ParamColor("Histogram color", colorBlack ), 
styleNoTitle | ParamStyle("Histogram style", styleHistogram | styleNoLabel, maskHistogram ) );

GfxSetBkMode(transparent=1);
GfxSelectPen( colorGreen, 2 ); 
GfxSetBkColor(colorBlack);
GfxSetTextColor( colorGold);
GfxSelectFont("Tahoma", 14, 900, True );
GfxTextOut("MACD", 8 , 17 );
SetChartOptions(0,chartShowArrows|chartShowDates);

 Buy= Cross(ml , sl);
 Sell= Cross( sl, ml);

PlotShapes( Buy * shapeUpArrow + Sell * shapeDownArrow, IIf( Buy, colorGreen, colorRed ) ); 


_SECTION_END();