_SECTION_BEGIN("Price1");
SetChartOptions(0,chartShowArrows|chartShowDates);
_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("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();
_SECTION_BEGIN("Price");
TimeFrameSet(inDaily);
PP=(Ref(H,-1)+Ref(L,-1)+(2*O))/4;
R1 = (2 * PP) - Ref(L,-1);
R3 = Ref(H,-1) + 2 * (PP - Ref(L,-1));
R2 = PP + (Ref(H,-1)-Ref(L,-1));
S1 = (2 * PP) - Ref(H,-1);
S2 = PP - (Ref(H,-1)-Ref(L,-1));
S3 = Ref(L,-1) - 2 * (Ref(H,-1) - PP);
Plot(EndValue(R1),"\n\nR1",colorRed,styleLine|styleThick,Null,0,0,5);
Plot(EndValue(R2),"\nR2",colorRed,styleLine|styleThick,Null,0,0,5);
Plot(EndValue(R3),"\nR3",colorRed,styleLine|styleThick,Null,0,0,5);
Plot(EndValue(PP),"\n\nPIV",colorBlue,styleLine|styleThick,Null,0,0,5);
Plot(EndValue(S1),"\n\nS1",colorGreen,styleLine|styleThick,Null,0,0,5);
Plot(EndValue(S2),"\nS2",colorGreen,styleLine|styleThick,Null,0,0,5);
Plot(EndValue(S3),"\nS3",colorGreen,styleLine|styleThick,Null,0,0,5);
TimeFrameRestore();
_SECTION_END();
Buy=Cross(C,PP);
Sell=Cross(PP,C);
PlotShapes (IIf(Buy,shapeUpArrow,shapeNone),colorBlue,0,Graph0,-15);
PlotShapes (IIf(Sell,shapeDownArrow,shapeNone),colorCustom12,0,Graph0,-15);
BuyPrice=ValueWhen(Buy, C);
SellPrice=ValueWhen(Sell, C);
Filter=Buy OR Sell ;
SetOption("NoDefaultColumns", True);
AddTextColumn(Name(), "Symbol", 77, colorDefault, colorDefault, 120);
AddColumn(DateTime(), "Trigger Date", formatDateTime);
AddColumn(IIf(Buy, 66, 83), "Signal", formatChar, colorYellow, IIf(Buy, colorGreen, colorRed));
AddColumn(IIf(Buy, BuyPrice, SellPrice), "Entry", 6.2);
AddColumn(LastValue(C), "Entry Price.", 6.2);