N:=14;
TYP:=(CLOSE+HIGH+LOW)/3;
CCI:=(TYP-MA(TYP,N))/AVEDEV(TYP,N)/0.015;
VERTLINE(CROSSUP(BACKSET(ISLASTBAR,SUMBARS(CROSS(CCI,0),1)),0.5),COLORMAGENTA);
VERTLINE(CROSSUP(BACKSET(ISLASTBAR,SUMBARS(CROSSDOWN(CCI,0),1)),0.5),COLORGREEN);
DRAWSL(CROSSUP(BACKSET(ISLASTBAR,SUMBARS(CROSS(CCI,0),1)),0.5),(C+O+H+L)/4,0,10000,0,COLORMAGENTA);
DRAWNUMBER(ISLASTBAR,REF((C+O+H+L)/4,BARSLAST(CROSSUP(BACKSET(ISLASTBAR,SUMBARS(CROSS(CCI,0),1)),0.5))),REF((C+O+H+L)/4,BARSLAST(CROSSUP(BACKSET(ISLASTBAR,SUMBARS(CROSS(CCI,0),1)),0.5))),0,COLORMAGENTA);
DRAWSL(CROSSUP(BACKSET(ISLASTBAR,SUMBARS(CROSSDOWN(CCI,0),1)),0.5),(C+O+H+L)/4,0,10000,0,COLORGREEN);
DRAWNUMBER(ISLASTBAR,REF((C+O+H+L)/4,BARSLAST(CROSSUP(BACKSET(ISLASTBAR,SUMBARS(CROSSDOWN(CCI,0),1)),0.5))),REF((C+O+H+L)/4,BARSLAST(CROSSUP(BACKSET(ISLASTBAR,SUMBARS(CROSSDOWN(CCI,0),1)),0.5))),0,COLORGREEN);
VERTLINE(CROSSUP(BACKSET(ISLASTBAR,SUMBARS(CROSS(CCI,0),2)),0.5),COLORMAGENTA);
VERTLINE(CROSSUP(BACKSET(ISLASTBAR,SUMBARS(CROSSDOWN(CCI,0),2)),0.5),COLORGREEN);
DRAWSL(CROSSUP(BACKSET(ISLASTBAR,SUMBARS(CROSS(CCI,0),2)),0.5),(C+O+H+L)/4,0,10000,0,COLORMAGENTA);
DRAWNUMBER(ISLASTBAR,REF((C+O+H+L)/4,BARSLAST(CROSSUP(BACKSET(ISLASTBAR,SUMBARS(CROSS(CCI,0),2)),0.5))),REF((C+O+H+L)/4,BARSLAST(CROSSUP(BACKSET(ISLASTBAR,SUMBARS(CROSS(CCI,0),2)),0.5))),0,COLORMAGENTA);
DRAWSL(CROSSUP(BACKSET(ISLASTBAR,SUMBARS(CROSSDOWN(CCI,0),2)),0.5),(C+O+H+L)/4,0,10000,0,COLORGREEN);
DRAWNUMBER(ISLASTBAR,REF((C+O+H+L)/4,BARSLAST(CROSSUP(BACKSET(ISLASTBAR,SUMBARS(CROSSDOWN(CCI,0),2)),0.5))),REF((C+O+H+L)/4,BARSLAST(CROSSUP(BACKSET(ISLASTBAR,SUMBARS(CROSSDOWN(CCI,0),2)),0.5))),0,COLORGREEN);