// created by vijay krishna
SetChartOptions( 0,chartShowArrows+ chartShowDates | chartWrapTitle );
//SetChartOptions(2,chartShowDates+chartWrapTitle);
Layer = Param("Layer", 0, -5, 5, 1) ;
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} " + EncodeColor( colorGreen ) + " Open %g," + EncodeColor( colorWhite ) + " Hi %g, " + EncodeColor( colorRed ) + " Lo %g, " + EncodeColor( colorBlue ) + " Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", colorTeal, styleNoTitle | styleCandle,0,0,0,Layer );
HiVolume = IIf(V > (2 * MA(V,10)), True, False);
PlotShapes(shapeSmallCircle * HiVolume, IIf(C > O, colorBlack, colorWhite), 0, (O+C)/2, 0);
ToolTip = "Open = " + O + "\nHigh = " + H + "\nLow = " + L + "\nClose = " + C ;
EMA5 = Prec(EMA(C,8),2);
Plot(EMA5,"ema8",ParamColor("8ema colour",colorBlue),styleNoRescale);
_SECTION_BEGIN("MA1");
periods = Param("Periods", 21, 2, 300, 1, 0 );
Plot( MA( C, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorOrange ), ParamStyle("Style") );
_SECTION_END();
_SECTION_BEGIN("timeframe");
above3 = Ref(C,-1)>EMA(C,8) AND Ref(C,-1)>MA(C,21);// previous bar bcos current bar may change color
below3 = Ref(C,-1)<EMA(C,8) AND Ref(C,-1)<MA(C,21);
text3 = WriteIf(above3,"above",WriteIf(below3,"below",""));
Color3 = IIf(above3,colorPaleGreen,IIf(below3,colorLightOrange,colorWhite));
TimeFrameSet(inHourly);
EMA8h = Prec(EMA(C,8),2);
MA21h = Prec(MA(C,21),2);
Habove = C>MA21h AND C>EMA8h;
Hbelow = C<MA21h AND C<EMA8h;
TimeFrameRestore();
hourly1 = TimeFrameExpand(Habove,inHourly);
Hourly2 = TimeFrameExpand(Hbelow,inHourly);
text60 = WriteIf(Hourly1,"above",WriteIf(Hourly2,"below",""));
Color60 = IIf(Hourly1,colorPaleGreen,IIf(Hourly2,colorLightOrange,colorWhite));
TimeFrameSet(in15Minute);
EMA15 = Prec(EMA(C,8),2);
MA15 = Prec(MA(C,21),2);
above15 = C>MA15 AND C>EMA15;
below15 = C<MA15 AND C<EMA15;
TimeFrameRestore();
above15e = TimeFrameExpand(above15,in15Minute);
below15e = TimeFrameExpand(below15,in15Minute);
text15 = WriteIf(above15e,"above",WriteIf(below15e,"below",""));
Color15 = IIf(above15e,colorGreen,IIf(below15e,colorRed,colorWhite));
TimeFrameSet(inDaily);
EMAd = Prec(EMA(C,8),2);
MAd = Prec(MA(C,21),2);
aboved = C>MAd AND C>EMAd;
belowd = C<MAd AND C<EMAd;
TimeFrameRestore();
aboveDe = TimeFrameExpand(aboved,inDaily);
belowDe = TimeFrameExpand(belowd,inDaily);
textd = WriteIf(abovede,"above",WriteIf(belowde,"below",""));
Colord = IIf(abovede,colorGreen,IIf(belowde,colorRed,colorWhite));
_SECTION_END();
//////exploration/////////////////////////////////////////////////////////////
Colorc = IIf(Ref(L,-1)>Ref(L,-2),colorGreen,IIf(Ref(H,-1)<Ref(H,-2),colorOrange,colorDefault));
//prevvwap = WriteIf(vwap>prevdayvaluehigh,"above",WriteIf(Refvwap<prevdayvaluelow,"below","inside"));
Filter = Status("lastbarinrange");
//Filter = Short OR Buy;
SetOption("NoDefaultColumns", True);
AddTextColumn(Name(), "Symbol", 77, colorDefault,colorDefault, 60);
AddColumn(DateTime(), "Date", formatDateTime,colorDefault,color3,120) ;//, Color, BG, 100);
AddColumn(C," close ",1.2,colorDefault,Color3);
AddTextColumn(textd,"daily",1.2,colorDefault,Colord);
AddTextColumn(text60,"hourly",1.2,colorDefault,Color60);
AddTextColumn(text15,"15 minutes",1.2,colorDefault,Color15);