{N,10  1   100}
CG:ma((LOW+HIGH+CLOSE*2)/4,n);
FL:hhv(CG,3),COLORgreen,POINTDOT;
FS:if(CG<FL,(CG-(FL-CG)),FL),COLORgreen;
FL1:hhv(CG,5),COLORgreen,POINTDOT;
FS1:if(CG<FL1,(CG-(FL1-CG)),FL1),COLORgreen;
FL2:hhv(CG,7),COLORgreen,POINTDOT;
FS2:if(CG<FL2,(CG-(FL2-CG)),FL2),COLORgreen;
FL3:hhv(CG,9),colorFFABA3,linethick2;
FS3:if(CG<FL3,(CG-(FL3-CG)),FL3),colorFFABA3,linethick2;
zlzc1:=(hhv(h,144)-((hhv(h,144)-llv(l,144))*0.618));
zlzc2:=(hhv(h,144)-((hhv(h,144)-llv(l,144))*0.5));
zlzc3:=(hhv(h,144)-((hhv(h,144)-llv(l,144))*0.382));
PARTLINE(FS3,FS3>ref(FS3,1),RGB(255,0,0),FS3<ref(FS3,1),RGB(0,0,0),1,RGB(0,0,0)),LINETHICK2;