{Z－K线,主图公式,有未来函数}

INPUT:n(5,0,100);

z:=zig(4,n);f:=z-ref(z,1);
dd:=refx(f>0 and ref(f,1)<0,1)LINETHICK;
gg:=refx(f<0 and ref(f,1)>0,1)LINETHICK;
w:=barslast(dd or gg or BARPOS=1)LINETHICK;
dg:=gg or dd or ISLASTBAR;
wx:=0*c;
oo:ref(o,ref(w,1)),LINETHICK;
cc:refx(c,wx),LINETHICK;
hh:refx(hhv(h,ref(w+1,1)),wx),LINETHICK;
LL:refx(LLv(L,ref(w+1,1)),wx),LINETHICK;
co:=oo=ref(oo,1);
f:=z>ref(z,1);
hL:=cross(w,wx)or (w=wx and w=1);
zf:(cc/oo-1)*100,LINETHICK;
wf:=barslast(abs(zf)>10);
fc:=ref(cc,wf);
fo:=ref(oo,wf);
PARTLINE(fc=ref(fc,1),fc),COLORGRAY,POINTDOT;
PARTLINE(fo=ref(fo,1),fo),COLORGRAY,POINTDOT;

PARTLINE(f and co,oo),COLORYELLOW;
PARTLINE(f and co,cc),COLORYELLOW;
PARTLINE(not(f) and co,oo),COLORBLUE;
PARTLINE(not(f) and co,cc),COLORBLUE;
STICKLINE((gg or ref(dd,1)) and f,cc,oo,0.01,0),COLORYELLOW;
STICKLINE(dd or ref(gg,1) and not(f),cc,oo,0.01,0),COLORBLUE;
STICKLINE(hL and f,hh,max(oo,cc),0.01,0),COLORYELLOW;
STICKLINE(hL and f,LL,min(oo,cc),0.01,0),COLORYELLOW;
STICKLINE(not(f) and hL,hh,max(oo,cc),0.01,0),COLORBLUE;
STICKLINE(not(f) and hL,LL,min(oo,cc),0.01,0),COLORBLUE;
u:=dd and ref(gg,1);
i:=gg and ref(dd,1);
STICKLINE(u,h,L,0.01,0),COLORBLUE;
STICKLINE(u,c,o,6,0),COLORBLUE;
STICKLINE(i,h,L,0.01,0),COLORYELLOW;
STICKLINE(i,c,o,6,1),COLORYELLOW;
DRAWNUMBER(hL and (zf>10 or zf<-10),oo,abs(zf),0),COLORMAGENTA;