_SECTION_BEGIN("wolllll");

SetPositionSize(1,spsShares);//
pds=Param("TMF periods",9,1,9,1);
tmf_level =Param("TMF Level",0.16,0.0,0.20,0.01);


//tmf_level =Param("TMF Level",Level,-0.10,0.50,0.01);
Refc=Param("refc",1,1,3,1);
TRH=Max(Ref(C,-Refc),H);
TRL=Min(Ref(C,-Refc),L);

tr=ATR(3);

ADV=((C-TRL)-(TRH-C))/(IIf(TR==0,999999,TR))*V;

sadv=Wilders(Adv,pds);

svol=Wilders(V,pds);

TMF=sadv/svol;
t = tmf;
_N( mstr = "("+WriteVal(pds,1.0) + ")" );



Buy =t>0;
Sell =t<0;
//Buy = ExRem(Buy,Sell);
//Sell = ExRem(Sell,Buy);
Short=Sell ;
Cover = Buy;

Plot( t," Money Flow(" + pds + "," + tmf_level + ")", ParamColor( "Color", colorWhite ), ParamStyle("Style")  );
Plot(EMA(t,24),"hh",1,1);
PlotOHLC( t,t,tmf_level,t, "", IIf( Ref(t,0) < -tmf_level OR t < -tmf_level, colorRed, colorBrightGreen ), styleArea | styleNoLabel | styleStaircase, -tmf_level, tmf_level ); 
Plot(t,"",1,1);
PlotGrid(0, colorWhite);
Plot(-tmf_level,"",colorRed,1);
Plot(tmf_level,"",colorBrightGreen,1);
_SECTION_END();