_SECTION_BEGIN("SwingN R");
//Franck LAMOTTE - 01/2010

SetChartBkColor(ParamColor("Outer panel color ",colorLightGrey)); // color of outer border 
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g,
Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +"{{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));

n1 = Param("n1",3,2,4,1);
n2 = Param("n2",4,3,7,1);

//SWING FORMULA//
function HiLo_HL(no) {
res=HHV(H,no);
sup=LLV(L,no);
avd=IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0));
avn=ValueWhen(avd!=0,avd,1);
tsl=IIf(avn==1,sup,res);
return tsl;
}
Plot(HiLo_HL(n1),"HiLo_HL",colorYellow,styleStaircase);
Buy1=Cross(C,HiLo_HL(n1)) & H>Ref(H,-1) & L>Ref(L,-1);
Sell1=Cross(HiLo_HL(n1),C);
shape=Buy1*shapeUpArrow + Sell1*shapeDownArrow;
if(ParamToggle("Shape System 1 : ",  "No|Yes", 0)){PlotShapes(shape,IIf(Buy1,colorBrightGreen,colorRed),0,IIf(Buy1,Low,High));}


_SECTION_BEGIN("xtl");

SetChartBkColor(ParamColor("Outer panel color ",colorLightGrey));
tgt = 35;
a = CCI(20) < -tgt;
b = CCI(20) > tgt;
state = IIf(a>b,-1,IIf(a==b,0,1));
Color = IIf(state == 0, colorBlack, IIf(state == 1, colorBlue, IIf(state == -1, colorRed, 0)));

//Plot(state, "", color, styleHistogram);

SetChartOptions( 0, chartShowDates | chartShowArrows | chartLogarithmic | chartWrapTitle );
_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", color, styleNoTitle |styleCandle ); 
 
_SECTION_END();


_SECTION_BEGIN("end 6&4");
Type = ParamList("Type", "Simple,Exponential,Double Exponential,Tripple Exponential,Wilders,Weighted");
Periods = Param("Periods", 6, 2, 300 );
Displacement = Param("Displacement", 4, -50, 50 );
m1 = 0;
m2 = 0;

if( Type == "Simple" ) {					
	m1 = MA( H, Periods );
	m2 = MA( L, Periods);
}
if( Type == "Exponential" ) 			{					
	m1 = EMA( H, Periods );
	m2 = EMA( L, Periods);
}

if( Type == "Double Exponential" ) 	{					
	m1 = DEMA( H, Periods );
	m2 = DEMA( L, Periods);
}

if( Type == "Tripple Exponential" ) 	{					
	m1 = TEMA( H, Periods );
	m2 = TEMA( L, Periods);
}

if( Type == "Wilders" ) 				{					
	m1 = Wilders( H, Periods );
	m2 = Wilders( L, Periods);
}

if( Type == "Weighted" ) 				{					
	m1 = WMA( H, Periods );
	m2 = WMA( L, Periods);
}


Plot( m1, _DEFAULT_NAME(), ParamColor("ColorTop", colorGreen), ParamStyle("Style"), 0, 0, Displacement );
Plot( m2, _DEFAULT_NAME(), ParamColor("ColorBottom", colorRed), ParamStyle("Style"), 0, 0, Displacement );

PlotOHLC(m1,m1,m2,m2,"DMACloud",ParamColor("ColorChannel", colorLightGrey),styleCloud,Null,Null,Displacement);
// Uncomment line below to plot price if Indicator is not overlaid a Price chart
//Plot(C,"Close",colorBlack,styleCandle);


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);
s1 = (bp*2)-Hi; s1I = LastValue (s1,1);
r2 = bp + r1 - s1; r2I = LastValue (r2,1);
s2 = bp - r1 + s1; s2I = LastValue (s2,1);
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);

if(ppl==1) {
Plot(bp,"",colorBlue,styleLine|styleLine|styleNoRescale);
//Plot(s1,"",colorRed,styleLine|styleNoRescale);
//Plot(s2,"",colorRed,styleLine|styleNoRescale);
//Plot(s3,"",colorRed,styleLine|styleNoRescale);
//Plot(s4,"",colorRed,styleLine|styleNoRescale);
//Plot(r1,"",colorGreen,styleLine|styleNoRescale);
//Plot(r2,"",colorGreen,styleLine|styleNoRescale);
//Plot(r3,"",colorGreen,styleLine|styleNoRescale);
//Plot(r4,"",colorGreen,styleLine|styleNoRescale);
PlotText(" Pivot = " + WriteVal(bp,fraction), LastValue(BarIndex())-(numbars/Hts), bpI +0.05, colorBlue);
PlotText(" r1 = " + WriteVal(r1,fraction), LastValue(BarIndex())-(numbars/Hts), r1I +0.05, colorGreen);
PlotText(" s1 = " + WriteVal(s1,fraction), LastValue(BarIndex())-(numbars/Hts), s1I +0.05, colorRed);
//PlotText(" r2 = " + WriteVal(r2,fraction), LastValue(BarIndex())-(numbars/Hts), r2I +0.05, colorGreen);
//PlotText(" s2 = " + WriteVal(s2,fraction), LastValue(BarIndex())-(numbars/Hts), s2I +0.05, colorRed);
//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);
}

_SECTION_END();