TBS:=POW(10,ABS(LOG(MINDIFF)));

{周月K线}

//周线

BZ:=WEEKDAY;ZB:=DATEDIFF(REF(DATE,1),DATE)<>BZ-REF(BZ,1) OR BARPOS=1;

ZW:=BARSLAST(ZB),LINETHICK;

Zdg:=ZW=0 or ISLASTBAR;

Zwx:=0*c;

for P=datacount-1 downto lbound(Zdg) do

if Zdg[P] then

Zwx[P]:=0;

else

Zwx[P]:=Zwx[P+1]+1;

Zr:=BACKSET(ISLASTBAR,Zw+1)-ISLASTBAR;

Zwx:=refx(Zwx,1)+Zr,LINETHICK;

zq:=BARSLAST(ref(Zwx,1)=0 or BARPOS=1)+1;

Zo:=ref(o,Zw);

Zh:=hhv(h,Zw+1);

ZL:=LLv(L,Zw+1);

vv:=sum(v,Zw+1);

周开:ROUND(zo*TBS)/TBS,LINETHICK;

周高:ROUND(refx(Zh,Zwx)*TBS)/TBS,,COLORFF,LINETHICK;

周低:ROUND(refx(ZL,Zwx)*TBS)/TBS,C