// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetBarsRequired(sbrAll,sbrAll);
SetBarFillColor(IIf(C>O,ParamColor("Candle Up Color", colorBrightGreen),IIf(C<=O,ParamColor("Candle Down Color", colorRed),colorLightGrey)));
Plot(C,"Price",IIf(C>O,ParamColor("Shadow Up Color", colorBlack),IIf(C<=O,ParamColor("Shadow Down Color", colorBlack),colorLightGrey)),64,0,0,0,0);
SetChartBkColor(ParamColor("Panel Color ",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey));

grid_day = IIf(Day()!=Ref(Day(),-1),1,0); 
Plot(grid_day,"",colorWhite,styleHistogram|styleDots|styleNoLabel|styleOwnScale);


_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("Price Color", colorBlack ), styleNoTitle | ParamStyle("Price Style") | GetPriceStyle() ); 


_SECTION_END();

t1=Param("t1", 20, -20);

Top = Sum(High, t1) / t1;
Bottom = Sum(Low, t1) / t1;
av1=(Top+Bottom)/2;
mc=IIf(av1>C, colorRed, colorBlue);
Plot(av1, "", mc, styleStaircase);

t2=Param("t2", 30, -30);

Top = Sum(High, t2) / t2;
Bottom = Sum(Low, t2) / t2;
av2=(Top+Bottom)/2;
mc=IIf(av2>C, colorRed, colorBlack);
Plot(av2, "", mc, styleStaircase);

t3=Param("t3", 50, -50);

Top = Sum(High, t3) / t3;
Bottom = Sum(Low, t3) / t3;
av3=(Top+Bottom)/2;
mc=IIf(av3>C, colorRed, colorBrown);
Plot(av3, "", mc, styleStaircase);

_SECTION_BEGIN("MA");
P = ParamField("Price field",-1);
Periods = Param("Periods", 20);
Plot( MA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") ); 
_SECTION_END();