// Downloaded From https://www.WiseStockTrader.com
/**********************************************************************************
**************************Start of Pivot Breakout System***************************
                                   First Version.
**********************************************************************************/

_SECTION_BEGIN("Trading System - Parameters");
XGS=Param("Chart Height % ?",90,1,100);GraphXSpace=100-XGS;SetChartOptions(0,chartShowArrows|chartShowDates);SetBarsRequired(-2,-2);_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", colorBlack, styleNoTitle | styleCandle); 
SV_LP=Param("Lookback Period for pivot?",5,2,50,1); TimeFrameSet(in15Minute);PH = H > Ref(HHV(H,SV_LP),-1) AND Ref(HHV(H,SV_LP),SV_LP)<=H;PHP = ValueWhen(PH,H);PHPP = ValueWhen(PH,H,2);HHP = PHP>PHPP;LHP = PHP<PHPP;PL = L < Ref(LLV(L,SV_LP),-1) AND Ref(LLV(L,SV_LP),SV_LP)>=L;PLP = ValueWhen(PL,L);PLPP = ValueWhen(PL,L,2);LLP = PLP<PLPP;HLP = PLP>PLPP;
SV_SC15M = C<PLP AND HHP AND HLP;SV_BC15M = C>PHP AND LLP AND LHP;TimeFrameRestore();TimeFrameSet(30*in1Minute);	PH = H > Ref(HHV(H,SV_LP),-1) AND Ref(HHV(H,SV_LP),SV_LP)<=H;PHP = ValueWhen(PH,H);PHPP = ValueWhen(PH,H,2);HHP = PHP>PHPP;LHP = PHP<PHPP;PL = L < Ref(LLV(L,SV_LP),-1) AND Ref(LLV(L,SV_LP),SV_LP)>=L;PLP = ValueWhen(PL,L);	PLPP = ValueWhen(PL,L,2);	LLP = PLP<PLPP;	HLP = PLP>PLPP;	SV_SC30M = C<PLP AND HHP AND HLP;	SV_BC30M = C>PHP AND LLP AND LHP; TimeFrameRestore();
TimeFrameSet(60*in1Minute);	PH = H > Ref(HHV(H,SV_LP),-1) AND Ref(HHV(H,SV_LP),SV_LP)<=H;	PHP = ValueWhen(PH,H);	PHPP = ValueWhen(PH,H,2);	HHP = PHP>PHPP;	LHP = PHP<PHPP;PL = L < Ref(LLV(L,SV_LP),-1) AND Ref(LLV(L,SV_LP),SV_LP)>=L;	PLP = ValueWhen(PL,L);	PLPP = ValueWhen(PL,L,2);	LLP = PLP<PLPP;	HLP = PLP>PLPP;	SV_SC60M = C<PLP AND HHP AND HLP;	SV_BC60M = C>PHP AND LLP AND LHP; TimeFrameRestore();
TimeFrameSet(inDaily);PH = H > Ref(HHV(H,SV_LP),-1) AND Ref(HHV(H,SV_LP),SV_LP)<=H;PHP = ValueWhen(PH,H);PHPP = ValueWhen(PH,H,2);	HHP = PHP>PHPP;LHP = PHP<PHPP;	PL = L < Ref(LLV(L,SV_LP),-1) AND Ref(LLV(L,SV_LP),SV_LP)>=L;	PLP = ValueWhen(PL,L);PLPP = ValueWhen(PL,L,2);LLP = PLP<PLPP;HLP = PLP>PLPP;SV_SCDaily = C<PLP AND HHP AND HLP;SV_BCDaily = C>PHP AND LLP AND LHP;TimeFrameRestore();
PH = H > Ref(HHV(H,SV_LP),-1) AND Ref(HHV(H,SV_LP),SV_LP)<=H;PHP = ValueWhen(PH,H);PHPP = ValueWhen(PH,H,2);HHP = PHP>PHPP;LHP = PHP<PHPP;PL = L < Ref(LLV(L,SV_LP),-1) AND Ref(LLV(L,SV_LP),SV_LP)>=L;PLP = ValueWhen(PL,L);PLPP = ValueWhen(PL,L,2);LLP = PLP<PLPP;	HLP = PLP>PLPP;
SV_SC = C<PLP AND HHP AND HLP;	SV_BC = C>PHP AND LLP AND LHP; if(ParamToggle("Suppress Successive Same Pivots?","No,Yes")){	PH = ExRem(PH,PL);PL = ExRem(PL,PH);}if(Interval()<inDaily){SV_SC = ExRem(SV_SC,PH);SV_BC = ExRem(SV_BC,PL);}
PlotShapes(IIf(SV_SC,shapeDownTriangle,shapeNone),colorRed,0,H,-25);	PlotShapes(IIf(SV_BC,shapeUpTriangle,shapeNone),colorGreen,0,L,-25);AlertIf(SV_BC,"SOUND C:\\Windows\\Media\\tada.wav","Upward Breakout at :"+C,1);AlertIf(SV_SC,"SOUND C:\\Windows\\Media\\notify.wav","Downward Breakout at :"+C,2);if(ParamToggle("Plot Pivots?","No,Yes",1)){PlotShapes(IIf(PH,shapeSmallCircle,shapeNone),colorGreen,0,H,12);PlotShapes(IIf(PL,shapeSmallCircle,shapeNone),colorRed,0,L,-12);}Filter = SV_BC OR SV_SC OR
TimeFrameExpand(SV_BC15M,in15Minute) OR TimeFrameExpand(SV_BC30M,30*in1Minute) OR TimeFrameExpand(SV_BC60M,60*in1Minute) OR TimeFrameExpand(SV_BCDaily,inDaily) OR TimeFrameExpand(SV_SC15M,in15Minute) OR TimeFrameExpand(SV_SC30M,30*in1Minute) OR TimeFrameExpand(SV_SC60M,60*in1Minute) OR TimeFrameExpand(SV_SCDaily,inDaily);
AddColumn(IIf(SV_BC,89,78),"+ve in Base TF",formatChar,colorWhite,colorGreen);AddColumn(IIf(TimeFrameExpand(SV_BC15M,in15Minute),89,78),"+ve in 15m",formatChar,colorWhite,colorGreen);AddColumn(IIf(TimeFrameExpand(SV_BC30M,30*in1Minute),89,78),"+ve in 30m",formatChar,colorWhite,colorGreen);AddColumn(IIf(TimeFrameExpand(SV_BC60M,60*in1Minute),89,78),"+ve in 60m",formatChar,colorWhite,colorGreen);AddColumn(IIf(TimeFrameExpand(SV_BCDaily,inDaily),89,78),"+ve in Daily",formatChar,colorWhite,colorGreen);
AddColumn(IIf(SV_SC,89,78),"-ve in Base TF",formatChar,colorWhite,colorRed);AddColumn(IIf(TimeFrameExpand(SV_SC15M,in15Minute),89,78),"-ve in 15m",formatChar,colorWhite,colorRed);AddColumn(IIf(TimeFrameExpand(SV_SC30M,30*in1Minute),89,78),"-ve in 30m",formatChar,colorWhite,colorRed);AddColumn(IIf(TimeFrameExpand(SV_SC60M,60*in1Minute),89,78),"-ve in 60m",formatChar,colorWhite,colorRed);AddColumn(IIf(TimeFrameExpand(SV_SCDaily,inDaily),89,78),"-ve in Daily",formatChar,colorWhite,colorRed);
_SECTION_END();

/*************************End of Pivot Breakout System***************************/