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 ....
ADX Systems 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 | range = Param("Periods", 8, 2, 200, 1 );Strong = Param("Strong ADX Above", 25, 2, 200, 1 );Weak = Param("Weak ADX Below", 16, 2, 200, 1 ); LongCond = Cross(ADX(range), Strong) OR Buy2 = Cross (ADX(range), Weak) OR Buy3 = Cross(Weak, ADX(range)) ;ShortCond = Cross(Strong,ADX(range)) OR Buy2 = Cross (Weak,ADX(range)) OR Buy3 = Cross(ADX(range), Weak) ;MyColor= WriteIf ( (ADX(range) > Strong) AND (PDI(range) > MDI(range)), EncodeColor(colorBrightGreen), WriteIf ( (ADX(range) > Weak) AND (PDI(range) > MDI(range)), EncodeColor(colorGreen), WriteIf ( (ADX(range) > Strong) AND (MDI(range) > PDI(range)), EncodeColor(colorRed), WriteIf ( (ADX(range) > Weak) AND (MDI(range) > PDI(range)), EncodeColor(colorOrange), EncodeColor(colorWhite) ))));ADXStatus = WriteIf (ADX(range) > Strong, "Strong ADX Trend", WriteIf (ADX(range) > Weak, "Weak ADX Trend", "Relax" ));Trend = WriteIf (PDI(range) > MDI(range), EncodeColor(colorBrightGreen) +"UP Trend", EncodeColor(colorRed)+"DOWN Trend");StrongLong = ( ( Cross(PDI(range), MDI(range)) AND ADX(range) > Strong) OR ( Cross(ADX(range), Strong) AND PDI(range)> MDI(range) ) ) ;StrongShort = ( Cross(MDI(range), PDI(range)) AND ADX(range) > Strong) OR ( Cross(ADX(range), Strong) AND MDI(range)> PDI(range) );Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); PlotShapes(IIf( StrongLong, shapeUpArrow, IIf( StrongShort, shapeDownArrow, shapeNone)), IIf( StrongLong, colorBrightGreen, IIf( StrongShort, colorRed, shapeNone)), IIf( StrongLong, H, IIf( StrongShort, L, Null)), IIf( StrongLong, Offset=L-1.5*ATR(5), IIf( StrongShort, Offet=H+1.5*ATR(5), Null)) ) ;Title = EncodeColor(colorWhite)+ Title = Name () + " | " +EncodeColor(colorYellow) + Date() + " | " +EncodeColor(colorTurquoise)+ "O : "+ EncodeColor(colorLightGrey)+ O + " | " +EncodeColor(colorTurquoise)+ "H : "+ EncodeColor(colorLightGrey)+ H + " | " +EncodeColor(colorTurquoise)+ "L : "+ EncodeColor(colorLightGrey)+ L + " | " +EncodeColor(colorTurquoise)+ "C : "+ WriteIf(C> Ref(C, -1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ C + " | " +EncodeColor(colorTurquoise)+ "Change : ("+ WriteIf(C> Ref(C, -1),EncodeColor(colorBrightGreen),EncodeColor(colorRed)) + WriteVal(C-Ref(C,-1))+" Rs." +EncodeColor(colorTurquoise)+ " /"+ WriteIf(C> Ref(C, -1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal( ROC( C, 1 ))+""+ " % " +EncodeColor(colorTurquoise)+ ") | Volume : " + WriteIf(V> Ref(V, -1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal(V,1) +EncodeColor(colorTurquoise)+ " | OpenInterest : " + WriteIf(OI>= Ref(OI, -1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal(OI,1) +StrFormat("{{VALUES}}", SelectedValue( ROC( C, 1 ))) +"\n"+EncodeColor(colorGrey50)+"--------------------------------------"+ EncodeColor(colorYellow) + "\nADX(" +range +") Value:#" + WriteVal(ADX(range))+ EncodeColor(colorYellow) + "\nADX Status :# " +MyColor + ADXStatus+ EncodeColor(colorYellow) + "\nTrend Status :# " + Trend+"\n"+EncodeColor(colorGrey50)+"--------------------------------------";_SECTION_END(); |