// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("TI");

parmTILUpColor = ParamColor("TI Line UpColor", colorGreen);
parmTILDwnColor = ParamColor("TI Line DownColor", colorRed);
parmHistUpColor = ParamColor("TI Histogram UpColor", colorLime);
parmHistDwnColor = ParamColor("TI Histogram DownColor", colorOrange);

r1=Param("PDI Period",14,1,100,1);
r2=Param("MDI Period",14,1,100,1);
r3=PDI(r1);
r4=MDI(r2);
r5=Param("WMA Period",40,1,100,1);

TI = WMA( 2*WMA((r3-r4),int(r5/2))- WMA((r3-r4),r5),int(sqrt(r5)));

for( i = 1 ; i < BarCount-2; i++ ) 
{
if (TI[i] <TI[i-1] &&TI[i] <TI[i+1])
Lpml[i]=1; 
else
Lpml[i] =0;
if (TI[i] >TI[i-1] &&TI[i] >TI[i+1])
Lpmh[i]=1;
else
Lpmh[i] =0;
}
GR =ExRem(LpmH,Lpmh);
RD =ExRem(Lpml,Lpml);

//Green TI Line=Rising; Red TI Line=Falling
col = IIf( TI > Ref( TI, -1 ), parmTILUpColor, parmTILDwnColor);
//Green TIHistogram=Rising; Red TIHistogram=Falling
HistColM= IIf( TI > Ref(TI,-1),parmHistUpColor,parmHistDwnColor);
Buy= TI > Ref( TI, -1 );
Sell= TI < Ref( TI, -1 );
Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);
PlotShapes(IIf(Buy, shapeUpArrow,shapeNone),colorGreen, 0, L, Offset=-35);
PlotShapes(IIf(Sell, shapeDownArrow,shapeNone),colorRed, 0, H, Offset=-35);
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
_SECTION_END();
_SECTION_BEGIN("Background text");
SetChartBkColor(ParamColor("Chart Back Color",colorBlack));
strWeekday = StrMid("---SUNDAY---MONDAY--TUESDAYWEDNESDAY-THURSDAY--FRIDAY--SATURDAY", SelectedValue(DayOfWeek())*9,9);
GraphXSpace=Param("GraphXSpace",-20,-55,200,1);
C13=20;
C14=2.1;
C15=12;
pxwidth = Status("pxwidth");
pxheight = Status("pxheight");
YC=TimeFrameGetPrice("C",inDaily,-1);
DD=Prec(C-YC,2);
xx=Prec((DD/YC)*100,2);
GfxSetBkMode(transparent=1);
GfxSetOverlayMode(1);
GfxSelectFont("Candara", Status("pxheight")/C13 );
GfxSetTextAlign( 6 );
GfxSetTextColor(   ColorRGB (217,217,213));
GfxTextOut( Name(), Status("pxwidth")/C14, Status("pxheight")/C15 );
GfxSelectFont("Tahoma", Status("pxheight")/C13*0.5 );
GfxSetTextColor( ColorRGB (217,217,213));
GfxTextOut( "L.T.P. : "+ C +"", Status("pxwidth")/C14, Status("pxheight")/C15*2 );
GfxSelectFont("Candara", Status("pxheight")/C13*0.5 );
GfxSetTextColor(  ColorRGB (217,217,213));
GfxTextOut( ""+DD+ " ( "+xx+"%)", Status("pxwidth")/C14, Status("pxheight")/C15*2.5 );

_SECTION_END();

_SECTION_BEGIN("Title");

DODay = TimeFrameGetPrice("O", inDaily);
DHiDay = TimeFrameGetPrice("H", inDaily); 
DLoDay = TimeFrameGetPrice("L", inDaily); 
Title = EncodeColor(colorWhite)+ Name() + ",  " + Interval(2) + ",  " + Date() + "   -  "+strWeekday + "  - " +
EncodeColor(colorWhite)   +  "\n  O " + EncodeColor(colorWhite) + O + 

 ",   H :  "   + H + 
 ",   L  :  " + L + 
 ",   C  :  "  + C +
"\n"+EncodeColor(colorWhite)+ "  Day-Open : " +DODay + "  Day-High : " +DHiDay + "  Day-Low : " + DLoDay 
+"\n"+EncodeColor(colorWhite)+"  Volume : "+V;