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

SetTradeDelays( 1, 0, 0, 0);
SetPositionSize(50000,spsValue);
SetOption("InitialEquity", Param("InitialEquity",500000,100000,2000000,10000 ));
SetOption("CommissionMode", 2 );
//SetOption("CommissionAmount", 100.00 );
//SetOption("AllowSameBarExit", True );
HighmomentumPeriods = Param("h Average Periods",65,1,100,1);
LowmomentumPeriods = Param("l Average Periods",7,1,20,1);
MomtumUp=EMA(C,LowmomentumPeriods)/EMA(C,HighmomentumPeriods)>1.05;
MomtumDown=EMA(C,LowmomentumPeriods)/EMA(C,HighmomentumPeriods)<0.95;
range=High-Low;
lcrange=High-Close;
scrange=C-low;
lng=lcrange/range<0.20 AND MomtumUp ;
shrt=scrange/range<0.20 AND MomtumDown;
Ribbon_kol=IIf(MomtumUp,colorLime,IIf(MomtumDown,colorPink,colorBlack));
Plot(4, "ribbon", Ribbon_kol, styleOwnScale| styleArea| styleNoLabel,-0.5,100,0,-9);
//lng=True;
//shrt=True;
//long=high-close/High-Low<0.80 AND Open<Close;
//Plot(MomtumUp,"M+",colorLime,styleArea);
//Plot(MomtumDown,"M1",colorPink,styleArea);
PlotShapes(IIf(lng, shapeupArrow, shapeNone),colorYellow,0,L-10);
PlotShapes(IIf(shrt, shapedownArrow, shapeNone),colorYellow,0,H+10);
//Daily Close in upper 95%
Filter=(MomtumUp )OR(MomtumDown);
AddColumn(MomtumUp,"Up",format =1.2);
AddColumn(MomtumDown,"Down",format =1.2);
AddColumn(lng,"NewLong",format =1.2);
AddColumn(shrt,"NewShort",format =1.2);
_SECTION_END();

_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
_SECTION_END();