Modified ADX Directional Movement - Amibroker AFL Code

Click Image To Enlarge. Please Rate And Comment.

_SECTION_BEGIN("ADX");
range = Param("Periods", 14, 2, 200, 1 );
Plot( ADX(range), _DEFAULT_NAME(), ParamColor( "ADX color", colorBlue ), ParamStyle("ADX style", styleThick ) );
Plot( PDI(range), "+DI", ParamColor( "+DI color", colorGreen ), ParamStyle("+DI style") );
Plot( MDI(range), "-DI", ParamColor( "-DI color", colorRed ), ParamStyle("-DI style") );
_SECTION_END();



Buy  = Cross( ADX(), 20 );
Sell = Cross( 40, ADX() );
Buy  = Cross( PDI() , MDI() );
Sell = Cross( MDI() , PDI() );

PlotShapes(Buy*shapeUpArrow,colorGreen,0,Graph0);
PlotShapes(Sell*shapeDownArrow,colorRed,0,Graph0);