// Downloaded From https://www.WiseStockTrader.com
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();