Hello Alan,
Check this formula...this is what you want :).
Range = Param(" +DI - D range", 10, 5, 30,1 );
Plot(PDI(Range),"",5,1);
Plot(MDI(Range),"",4,1);
Plot(ADX(Range),"",13,1);
Buy = Cross(PDI(Range), MDI(Range));
Sell = Cross(MDI(Range), PDI(Range));
PlotShapes(IIf(Buy,shapeUpArrow,shapeNone),colorGreen,0,20,0);
PlotShapes(IIf(Sell,shapeDownArrow,shapeNone),colorRed,0,20,0);
bars=SelectedValue(Min( BarsSince( Cross(PDI(Range) , MDI(Range) )), BarsSince(
Cross( MDI(Range), PDI(Range))) ));
prevclose=Ref(Close,-bars);
Com=EncodeColor(colorTan)+("\n\nCurrently the +DMI ("+Range+") is "+
WriteIf(PDI(Range) > MDI(Range),"bullish","bearish")+", and it crossed "+
WriteIf(PDI(Range) > MDI(Range),"above","below")+" -DMI ("+Range+")
."+"\n"+EncodeColor(colorAqua)+
WriteVal( Min( BarsSince( Cross( PDI(Range), MDI(Range) )), BarsSince( Cross(
MDI(Range), PDI(Range)))), 0.0)+
" period(s) ago.")+EncodeColor(colorTan)+
Com=("\n\nSince the +DMI crossed -DMI, "+Name()+ "'s price has :
")+EncodeColor(colorGold)+"\n"+
WriteIf(Close>prevclose,"increased %","decreased
%")+WriteVal(100*(Close-prevclose)/prevclose)+
EncodeColor(colorTan)+Com=("\n\nAnd has ranged from a high of "+
WriteVal(HHV(High,bars+1),6.2)+" to a low of "+WriteVal(LLV(Low,bars+1),6.2));
Title = EncodeColor(colorWhite)+ "ABS3" + " - " + Name() +
EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
" - " + Date() +" - "+"\n" +EncodeColor(colorYellow) +"Op-"+O+"
"+"Hi-"+H+" "+"Lo-"+L+" "+
"Cl-"+C+" "+ "Vol= "+ WriteVal(V)+ Com;
Thank you
