_SECTION_BEGIN("Background_Setting");
SetChartBkGradientFill( ParamColor("BgTop", colorBlack),
ParamColor("BgBottom", colorDarkGrey),ParamColor("TitleBack",colorGrey40));
SetChartBkColor(ParamColor("Outer Panel",colorPaleBlue));
SetChartOptions(0,chartShowArrows|chartShowDates);
_SECTION_END();
_SECTION_BEGIN("CCI confirmation");
pds = Param( "Periods", 14, 1, 200, 1 );
cc=CCI(pds);
a=Cross(cc,0);
b=Cross(0,cc);
//Vala = ValueWhen(a,C,1);
//Valb = ValueWhen(b,C,1);
prca=prcb=Vala=Valb=0;
for( i = 0; i < BarCount; i++ )
{
if( Prca == 0 AND a[ i ] )
{
Prca = C[ i ];
Vala = ValueWhen(prca[i],C,1);
}
if( Prcb == 0 AND b[ i ] )
{
Prcb = C[ i ];
Valb = ValueWhen(prcb[i],C,1);
}
} //*/
col=IIf(a,colorBrightGreen,colorRed);
Plot( CC, "CCi", col, styleLine,styleThick );
Plot(0,"",colorWhite,styleLine,styleThick);
Title = EncodeColor(colorWhite)+ "CCI and Price " + "\n " + Name() + " | "
+ EncodeColor(colorBrightGreen) + "\n " + Date() +" | "" + interval(2)
+"\n"+EncodeColor(colorWhite) +" CCI ="+ cc
+"\n"+EncodeColor(colorWhite) +" Zero crossed CCI Price ="+ IIf(a,vala,IIf(b,valb,Null)) ;
_SECTION_END();