// modified 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",colorskyBlue),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();
above3 = C>EMA5 AND C>MA(C,21);
below3 = C<EMA5 AND C<MA(C,21);
text3 = WriteIf(above3,"above",WriteIf(below3,"below",""));
Color3 = IIf(above3,colorPaleGreen,IIf(below3,colorLightOrange,colorDefault));
_SECTION_BEGIN("timeframe");
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,colorDefault));
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,colorDefault));
_SECTION_END();
_SECTION_BEGIN("orb scalping");
breakoutime = Param("orb time",092000,091500,230000,1,0);// for nse 100000,
//////////////////////////////////////////////////////////////
Filterdaych = ParamToggle("Filter orb day Change Connections", "No|Yes", 1) ;
dt = DateTime() ;
//mytimenum = DateTimeConvert(2,dt,TimeNum());
//newt = mytimenum != 100000;
dtnum = DateTimeConvert(2, dt,TimeNum()) ;
newdt = dtnum != Ref(dtnum, -1);
//mytimenum = DateTimeConvert(1,dt);
// newt = mytimenum == 100000;
Lastbar = H-H ;
if (Filterdaych)
Lastbar = dtnum != Ref(dtnum, 1) AND TimeNum()<=breakoutime; ;
strnday = "day";
afterbreakout0 = Cross(TimeNum(),breakoutime);
afterbreakout1 = TimeNum()>=breakoutime ;// TimeNum()>=100000;
NewDay = Day()!= Ref(Day(), -1);
highestoftheday = HighestSince(newday,H,1);
Lowestoftheday =LowestSince(newday,L,1);
//Lowt = ValueWhen(afterbreakout0,L,1);
//Lowestoftheday = LowestSince(btime,L,1);
ORBHigh = ValueWhen(afterbreakout0,highestoftheday,1);
ORBLow = ValueWhen(afterbreakout0,lowestoftheday,1);
Plot(IIf(lastbar,Null,ORBHigh),"orb high",ParamColor("orb high",colorBrightGreen),styleDots+styleNoRescale);
Plot(IIf(lastbar,Null,ORBLow),"orb low",ParamColor("orb low",colorPink),styleDots+styleNoRescale);
_SECTION_END();
///////////////////////////subhadip pivot/////////////////////////////////////////////////
// ORIGINAL FORMULA BY PRATAP SIR HAS DIFFERENT METHOD FOR CALCULATION OF PH AND PL
// THIS CALCULATION DOES NOT IDENTIFY INSIDE BAR
dist = 0.25*ATR(10);
/*
PH= ValueWhen(
(Ref(L,-2) > Ref(L, -4)) AND
(Ref(L,-2) > Ref(L, -3)) AND
(Ref(L,-2) > Ref(L, -1)) AND
(Ref(H,-2) > H), Ref(H,-2));
PL= ValueWhen(
(Ref(H,-2) <= Ref(H, -4)) AND
(Ref(H,-2) <= Ref(H, -3)) AND
(Ref(H,-2) <= Ref(H, -1)) AND
(Ref(L,-2) <= L), Ref(L,-2));
phfilter=PH+(room*PH);
plfilter=PL-(room*PL);
Plot(Ref(PH,2), "UpPivot", ParamColor("UpPivot Color",colorRed), styleNoLine);
Plot(Ref(PL,2), "DownPivot",ParamColor("DownPivot Color",colorGreen), styleNoLine);
Plot(Ref(Phfilter,2), "Upfilter", ParamColor("upfilter Color",colorRed), styleNoLine);
Plot(Ref(Plfilter,2), "Downfilter",ParamColor("dnfilter Color",colorGreen), styleNoLine);
*/
for (a=4;a<BarCount;a++)
{
if ((L[a-2] > L[a-4]) AND
//( H[a-2] >= H[a-4] )AND // h
//( H[a-2] >= H[a-3] )AND
//( H[a-2] >= H[a-1] )AND
//( H[a-2] >= H[a] )AND
((L[a-1]<L[a-4])OR (L[a-1]<L[a-3])OR(L[a]< L[a-1] OR H[a]<H[a-1])) AND
(L[a-2] > L[a-3]) AND
(L[a-2] >= L[a-1]) AND
(L[a-2] > L[a] AND
(L[a-3]>=L[a-4])))
PlotText("mPH", a-2, H[a-2], colorGreen);
if ((H[a-2] < H[a-4]) AND
//( L[a-2] <= L[a-4] ) AND
//( L[a-2] <= L[a-3] ) AND
//( L[a-2] <= L[a-1] ) AND
//( L[a-2] <= L[a] ) AND
//( H[a] > H[a-1]) AND
((H[a-1]>H[a-4]) OR (H[a-1]>H[a-3])OR(H[a]>H[a-1]OR L[a]>L[a-1])) AND
(H[a-2] < H[a-3]) AND
(H[a-2] <= H[a-1]) AND
(H[a-2] < H[a]AND
(H[a-3]<=H[a-4])))
PlotText("mPL", a-2, L[a-2]-dist[a-2], colorRed);
}
/////////////////////////////////////////////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,Color15,120) ;//, Color, BG, 100);
AddColumn(C," close ",1.2,colorDefault,Color15);
AddTextColumn(text60,"hourly",1.2,colorDefault,Color60);
AddTextColumn(text15,"15 minutes",1.2,colorDefault,Color15);
AddTextColumn(text3,"current",1.2,colorDefault,Color3);