Pivot System
_SECTION_BEGIN("PIVOTS");
GraphXSpace = 5 ;
SetChartOptions(0,chartShowArrows|chartShowDates);
ppl = ParamToggle("Plot Pivot Levels","Off|On",1);
numbars = LastValue(Cum(Status("barvisible")));
fraction= IIf(StrRight(Name(),3) == "", 3.2, 3.2);
hts = -33.5;
/* This code calculates the previous days high, low and close */
Hi1 = IIf(Day()!=Ref(Day(),-1),Ref(HighestSince(Day()!=Ref(Day(),-1),H,1),-1),0);
Hi = ValueWhen(Day()!=Ref(Day(),-1),Hi1,1);
Lo1 = IIf(Day()!=Ref(Day(),-1),Ref(LowestSince(Day()!=Ref(Day(),-1),L,1),-1),0);
Lo = ValueWhen(Day()!=Ref(Day(),-1),Lo1,1);
Cl1 = IIf(Day()!=Ref(Day(),-1),Ref(C,-1),0);
C1 = ValueWhen(Day()!=Ref(Day(),-1),Cl1,1);
//----------------------------------------------------------------------------------
/* This code calculates Daily Piovts */
rg = (Hi - Lo);
bp = (Hi + Lo + C1)/3; bpI = LastValue (bp,1);
r1 = (bp*2)-Lo; r1I = LastValue (r1,1);
r12 = (bp+r1)/2;
s1 = (bp*2)-Hi; s1I = LastValue (s1,1);
s12 = (bp+s1)/2;
r2 = bp + r1 - s1; r2I = LastValue (r2,1);
r23 = (r1+r2)/2;
s2 = bp - r1 + s1; s2I = LastValue (s2,1);
s23 = (s1+s2)/2;
//r3 = bp + r2 - s1; r3I = LastValue (r3,1);
//s3 = bp - r2 + s1; s3I = LastValue (s3,1);
//r4 = bp + r2 - s2; r4I = LastValue (r4,1);
//s4 = bp - r2 + s2; s4I = LastValue (s4,1);
//Condition for BUY Signals at Lines//
Bcond1 = Cross(s12,L);
Bcond2 = Cross(S1,L);
Bcond3 = Cross(s23,L);
//Condition for Sell Signals at Lines//
Scond1 = Cross(H,r12);
Scond2 = Cross(H,r1);
Scond3 = Cross(H,r23);
Buy1 = (Bcond1+Bcond2+Bcond3);
Sell1 = (Scond1+Scond2+Scond3);
Buy=ExRem(Buy1,Sell1);
Sell=ExRem(Sell1,Buy1);
Short=Sell ;
Cover=Buy;
PlotShapes(Buy1*shapeUpArrow,colorPink,0,L,-20);
PlotShapes(Sell1*shapeDownArrow,colorBrightGreen,0,H,-35);
if(ppl==1) {
Plot(bp,"",colorWhite,styleLine|styleDots|styleNoRescale);
Plot(s1,"",colorWhite,styleLine|styleNoRescale);
Plot(s12,"",colorWhite,styleLine|styleNoRescale);
//Plot(s2,"",colorWhite,styleLine|styleNoRescale);
Plot(s23,"",colorWhite,styleLine|styleNoRescale);
//Plot(s3,"",colorRed,styleLine|styleNoRescale);
//Plot(s4,"",colorRed,styleLine|styleNoRescale);
Plot(r1,"",colorYellow,styleLine|styleNoRescale);
Plot(r12,"",colorYellow,styleLine|styleNoRescale);
//Plot(r2,"",colorYellow,styleLine|styleNoRescale);
Plot(r23,"",colorYellow,styleLine|styleNoRescale);
//Plot(r3,"",colorGreen,styleLine|styleNoRescale);
//Plot(r4,"",colorGreen,styleLine|styleNoRescale);
PlotText(" Pivot = " + WriteVal(bp,fraction), LastValue(BarIndex())-(numbars/Hts), bpI +0.05, colorWhite);
PlotText(" r12 = " + WriteVal(r1,fraction), LastValue(BarIndex())-(numbars/Hts), r1I +0.05, colorBrightGreen);
PlotText(" r1 = " + WriteVal(r1,fraction), LastValue(BarIndex())-(numbars/Hts), r1I +0.05, colorBrightGreen);
PlotText(" r23 = " + WriteVal(r1,fraction), LastValue(BarIndex())-(numbars/Hts), r1I +0.05, colorBrightGreen);
//PlotText(" r2 = " + WriteVal(r2,fraction), LastValue(BarIndex())-(numbars/Hts), r2I +0.05, colorBrightGreen);
PlotText(" s12 = " + WriteVal(s1,fraction), LastValue(BarIndex())-(numbars/Hts), s1I +0.05, colorPink);
PlotText(" s1 = " + WriteVal(s1,fraction), LastValue(BarIndex())-(numbars/Hts), s1I +0.05, colorPink);
PlotText(" s23 = " + WriteVal(s1,fraction), LastValue(BarIndex())-(numbars/Hts), s1I +0.05, colorPink);
//PlotText(" s2 = " + WriteVal(s2,fraction), LastValue(BarIndex())-(numbars/Hts), s2I +0.05, colorPink);
//PlotText(" r3 = " + WriteVal(r3,fraction), LastValue(BarIndex())-(numbars/Hts), r3I +0.05, colorGreen);
//PlotText(" s3 = " + WriteVal(s3,fraction), LastValue(BarIndex())-(numbars/Hts), s3I +0.05, colorRed);
//PlotText(" r4 = " + WriteVal(r4,fraction), LastValue(BarIndex())-(numbars/Hts), r4I +0.05, colorGreen);
//PlotText(" s4 = " + WriteVal(s4,fraction), LastValue(BarIndex())-(numbars/Hts), s4I +0.05, colorRed);
}
//--end----------------------------------------------------------------------------
_SECTION_END();