// 1 day = 6hour 15min = 360+15 = 375*1Min candles = 75 5Min candles
// 1 week = 5 days
// 1month = 4 weeks
// 200bars * 4weeks * 5day * 75
SetBarsRequired(200*4*5*75, 0);
_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("SMA");
P1 = ParamField("Price field1",3);
Periods1 = Param("Periods1", 20, 2, 300, 1, 10 );
Plot( MA( P1, Periods1 ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );
_SECTION_END();
_SECTION_BEGIN("WILDER");
P2 = ParamField("Price field2",3);
Periods2 = Param("Periods2", 200, 2, 300, 1, 10 );
Plot( Wilders( P2, Periods2 ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );
_SECTION_END();
*/
// Weekly TF
TimeFrameSet(inWeekly);
_SECTION_BEGIN("SMA Weekly");
Pw = ParamField("Price field weekly",3);
Periodsw = Param("Period weekly", 20, 2, 300, 1, 10 );
SMAw = MA( Pw, Periodsw );
SMAwe = TimeFrameExpand(SMAw, inWeekly, expandLast);
Plot( SMAwe, _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );
_SECTION_BEGIN("Wilder's weekly");
Pww = ParamField("Price field wilder weekly",3);
Periodsww = Param("Periods wilder weekly", 200, 2, 300, 1, 10 );
Wilderw = Wilders( Pww, Periodsww );
Wilderwe = TimeFrameExpand(Wilderw, inWeekly, expandLast);
Plot( Wilderwe, _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );
_SECTION_END();
TimeFrameRestore(); // Restore
TimeFrameSet(inMonthly); // Move to monthly
_SECTION_BEGIN("SMA Monthly");
Pm = ParamField("Price field monthly",3);
Periodsm = Param("Period monthly", 20, 2, 300, 1, 10 );
SMAm = MA( Pm, Periodsm );
SMAme = TimeFrameExpand(SMAm, inMonthly, expandLast);
Plot( SMAme, _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );
_SECTION_END();
_SECTION_BEGIN("Wilder's Monthly");
Pwm = ParamField("Price field wilder weekly",3);
Periodswm = Param("Periods wilder weekly", 200, 2, 300, 1, 10 );
Wilderm = Wilders( Pwm, Periodswm );
Wilderme = TimeFrameExpand(Wilderm, inMonthly, expandLast);
Plot( Wilderme, _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );
_SECTION_END();
TimeFrameRestore();