// Downloaded From https://www.WiseStockTrader.com
TimeFrameSet( inWeekly );
periods = Param( "Periods", 20, 5, 200, 1 );
 
TRH=Max(Ref(C,-1),H);
TRL=Min(Ref(C,-1),L);
TR=TRH-TRL; 
ADV=V*((C-TRL)-(TRH-C))/ IIf(TR==0,9999999,TR);
WV=V+(Ref(V,-1)*0);
SmV= Wilders(WV,periods);
SmA= Wilders(ADV,periods);
TMF= IIf(SmV==0,0,SmA/SmV);
 
TimeFrameRestore(); 
 
Plot(TimeFrameExpand( tmf, inWeekly,expandLast), "TMF", ParamColor( "TMF color", colorCycle ) ,ParamStyle("Style",styleLine,maskAll),Null,Null,0 );
Plot(0,"Centre Line",ParamColor( "Centre Line Color", colorCycle ),1 );