btxc1:=CLOSE;btxo1:=OPEN;
 ss1:=MAX(btxc1,btxo1),LINETHICK0;
 xx1:=MIN(btxc1,btxo1),LINETHICK0;
 zz1:=0*CLOSE,LINETHICK0;
 btxy:=IF(CLOSE>OPEN,1,0)+IF(CLOSE<OPEN,4,0),LINETHICK0;
 for btxi=2 to DATACOUNT do begin
 IF btxy[btxi-1]=1 or btxy[btxi-1]=0 then begin
 IF btxc1[btxi]>ss1[btxi-1] then begin
 ss1[btxi]:=btxc1[btxi];
 xx1[btxi]:=ss1[btxi-1];
 zz1[btxi]:=0;
 btxy[btxi]:=1;
 end;else
 IF btxc1[btxi]<xx1[btxi-1] then begin//=
 ss1[btxi]:=xx1[btxi-1];
 xx1[btxi]:=btxc1[btxi];
 zz1[btxi]:=ss1[btxi-1];
 btxy[btxi]:=4;
 end;else begin
 ss1[btxi]:=ss1[btxi-1];
 xx1[btxi]:=btxc1[btxi];
 zz1[btxi]:=0;
 btxy[btxi]:=1;
 end;end;
 IF btxy[btxi-1]=4 or btxy[btxi-1]=0 then begin
 IF btxc1[btxi]<xx1[btxi-1] then begin
 ss1[btxi]:=xx1[btxi-1];
 xx1[btxi]:=btxc1[btxi];
 zz1[btxi]:=0;
 btxy[btxi]:=4;
 end;else
 IF btxc1[btxi]>ss1[btxi-1] then begin//=
 ss1[btxi]:=btxc1[btxi];
 xx1[btxi]:=ss1[btxi-1];
 zz1[btxi]:=xx1[btxi-1];
 btxy[btxi]:=1;
 end;else begin
 ss1[btxi]:=btxc1[btxi];
 xx1[btxi]:=xx1[btxi-1];
 zz1[btxi]:=0;
 btxy[btxi]:=4;
 end;
 end;
 end;
 btxk1:=(btxy=1 and REF(btxy=1,1) and CLOSE>REF(ss1,1))*1;
 btxk2:=(btxy=1 and REF(btxy=1,1) and CLOSE<=REF(ss1,1) and CLOSE>=REF(xx1,1))*2;
 btxk3:=(btxy=4 and REF(btxy=1,1) and CLOSE<REF(xx1,1))*3;
 btxk4:=(btxy=4 and REF(btxy=4,1) and CLOSE<REF(xx1,1))*4;
 btxk5:=(btxy=4 and REF(btxy=4,1) and CLOSE<=REF(ss1,1) and CLOSE>=REF(xx1,1))*5;
 btxk6:=(btxy=1 and REF(btxy=4,1) and CLOSE>REF(ss1,1))*6;
 btxk7:=(btxy=1 and REF(btxy=0,1))*1;//6
 btxk8:=(btxy=4 and REF(btxy=0,1))*4;
 btxkk:=IF(BARPOS=1,btxy,btxk1+btxk2+btxk3+btxk4+btxk5+btxk6+btxk7+btxk8),LINETHICK0;//显示
maxg:=MAX(MAX(ss1,xx1),zz1);ming:=MIN(MIN(ss1,xx1),zz1);
 zxng:=(ss1<>maxg and ss1<>ming)*ss1+(xx1<>maxg and xx1<>ming)*xx1+(zz1<>maxg and zz1<>ming)*zz1;
 btxp1:=(ss1=xx1)*ss1;btxp2:=(ss1=zz1)*zz1;btxp3:=(xx1=zz1)*xx1;
 btxpp:=IF(btxp1=0 and btxp2=0,btxp3,IF(btxp1,btxp1,btxp2));
 STICKLINE(zz1=0 and btxy=1,ss1,xx1,8,0),COLORAA;//yellow
 STICKLINE(zz1=0 and btxy=1,ss1,xx1,7,0),COLORBB;
 STICKLINE(zz1=0 and btxy=1,ss1,xx1,6,0),COLORBB;
 STICKLINE(zz1=0 and btxy=1,ss1,xx1,5,0),COLORCC;
 STICKLINE(zz1=0 and btxy=1,ss1,xx1,4,0),COLORDD;
 STICKLINE(zz1=0 and btxy=1,ss1,xx1,3,0),COLOREE;
 STICKLINE(zz1=0 and btxy=1,ss1,xx1,2,0),COLORFF;
 STICKLINE(zz1=0 and btxy=1,ss1,xx1,1,0),COLORFF;
 STICKLINE(zz1=0 and btxy=4,ss1,xx1,8,0),COLOR8800;//blue
 STICKLINE(zz1=0 and btxy=4,ss1,xx1,7,0),COLOR9900;
 STICKLINE(zz1=0 and btxy=4,ss1,xx1,6,0),COLORAA00;
 STICKLINE(zz1=0 and btxy=4,ss1,xx1,5,0),COLORBB00;
 STICKLINE(zz1=0 and btxy=4,ss1,xx1,4,0),COLORCC00;
 STICKLINE(zz1=0 and btxy=4,ss1,xx1,3,0),COLORDD00;
 STICKLINE(zz1=0 and btxy=4,ss1,xx1,2,0),COLOREE00;
 STICKLINE(zz1=0 and btxy=4,ss1,xx1,1,0),COLORFF00;
 STICKLINE(zz1>0 and btxpp=0,maxg,zxng,8,0),COLORAA;//YELLOW
 STICKLINE(zz1>0 and btxpp=0,maxg,zxng,7,0),COLORBB;
 STICKLINE(zz1>0 and btxpp=0,maxg,zxng,6,0),COLORBB;
 STICKLINE(zz1>0 and btxpp=0,maxg,zxng,5,0),COLORCC;
 STICKLINE(zz1>0 and btxpp=0,maxg,zxng,4,0),COLORDD;
 STICKLINE(zz1>0 and btxpp=0,maxg,zxng,3,0),COLOREE;
 STICKLINE(zz1>0 and btxpp=0,maxg,zxng,2,0),COLORFF;
 STICKLINE(zz1>0 and btxpp=0,maxg,zxng,1,0),COLORFF;
 STICKLINE(zz1>0 and btxpp=0,ming,zxng,8,0),COLOR8800;//BLUE
 STICKLINE(zz1>0 and btxpp=0,ming,zxng,7,0),COLOR9900;
 STICKLINE(zz1>0 and btxpp=0,ming,zxng,6,0),COLORAA00;
 STICKLINE(zz1>0 and btxpp=0,ming,zxng,5,0),COLORBB00;
 STICKLINE(zz1>0 and btxpp=0,ming,zxng,4,0),COLORCC00;
 STICKLINE(zz1>0 and btxpp=0,ming,zxng,3,0),COLORDD00;
 STICKLINE(zz1>0 and btxpp=0,ming,zxng,2,0),COLOREE00;
 STICKLINE(zz1>0 and btxpp=0,ming,zxng,1,0),COLORFF00;
 STICKLINE(zz1>0 and btxpp and btxy=1,maxg,ming,8,0),COLORAA;//YELLOW
 STICKLINE(zz1>0 and btxpp and btxy=1,maxg,ming,7,0),COLORBB;
 STICKLINE(zz1>0 and btxpp and btxy=1,maxg,ming,6,0),COLORBB;
 STICKLINE(zz1>0 and btxpp and btxy=1,maxg,ming,5,0),COLORCC;
 STICKLINE(zz1>0 and btxpp and btxy=1,maxg,ming,4,0),COLORDD;
 STICKLINE(zz1>0 and btxpp and btxy=1,maxg,ming,3,0),COLOREE;
 STICKLINE(zz1>0 and btxpp and btxy=1,maxg,ming,2,0),COLORFF;
 STICKLINE(zz1>0 and btxpp and btxy=1,maxg,ming,1,0),COLORFF;
 STICKLINE(zz1>0 and btxpp and btxy=4,maxg,ming,8,0),COLOR8800;//BLUE
 STICKLINE(zz1>0 and btxpp and btxy=4,maxg,ming,7,0),COLOR9900;
 STICKLINE(zz1>0 and btxpp and btxy=4,maxg,ming,6,0),COLORAA00;
 STICKLINE(zz1>0 and btxpp and btxy=4,maxg,ming,5,0),COLORBB00;
 STICKLINE(zz1>0 and btxpp and btxy=4,maxg,ming,4,0),COLORCC00;
 STICKLINE(zz1>0 and btxpp and btxy=4,maxg,ming,3,0),COLORDD00;
 STICKLINE(zz1>0 and btxpp and btxy=4,maxg,ming,2,0),COLOREE00;
 STICKLINE(zz1>0 and btxpp and btxy=4,maxg,ming,1,0),COLORFF00;
 STICKLINE(zz1>0 and btxpp and (btxy=1 or (REF(btxy,1)=1 and btxy=4)),btxpp,btxpp,8,0),COLORAA;//YELLOW
 STICKLINE(zz1>0 and btxpp and (btxy=1 or (REF(btxy,1)=1 and btxy=4)),btxpp,btxpp,7,0),COLORBB;
 STICKLINE(zz1>0 and btxpp and (btxy=1 or (REF(btxy,1)=1 and btxy=4)),btxpp,btxpp,6,0),COLORBB;
 STICKLINE(zz1>0 and btxpp and (btxy=1 or (REF(btxy,1)=1 and btxy=4)),btxpp,btxpp,5,0),COLORCC;
 STICKLINE(zz1>0 and btxpp and (btxy=1 or (REF(btxy,1)=1 and btxy=4)),btxpp,btxpp,4,0),COLORDD;
 STICKLINE(zz1>0 and btxpp and (btxy=1 or (REF(btxy,1)=1 and btxy=4)),btxpp,btxpp,3,0),COLOREE;
 STICKLINE(zz1>0 and btxpp and (btxy=1 or (REF(btxy,1)=1 and btxy=4)),btxpp,btxpp,2,0),COLORFF;
 STICKLINE(zz1>0 and btxpp and (btxy=1 or (REF(btxy,1)=1 and btxy=4)),btxpp,btxpp,1,0),COLORFF;
 STICKLINE(zz1>0 and btxpp and (btxy=4 or (REF(btxy,1)=4 and btxy=1)),btxpp,btxpp,8,0),COLOR8800;//BLUE
 STICKLINE(zz1>0 and btxpp and (btxy=4 or (REF(btxy,1)=4 and btxy=1)),btxpp,btxpp,7,0),COLOR9900;
 STICKLINE(zz1>0 and btxpp and (btxy=4 or (REF(btxy,1)=4 and btxy=1)),btxpp,btxpp,6,0),COLORAA00;
 STICKLINE(zz1>0 and btxpp and (btxy=4 or (REF(btxy,1)=4 and btxy=1)),btxpp,btxpp,5,0),COLORBB00;
 STICKLINE(zz1>0 and btxpp and (btxy=4 or (REF(btxy,1)=4 and btxy=1)),btxpp,btxpp,4,0),COLORCC00;
 STICKLINE(zz1>0 and btxpp and (btxy=4 or (REF(btxy,1)=4 and btxy=1)),btxpp,btxpp,3,0),COLORDD00;
 STICKLINE(zz1>0 and btxpp and (btxy=4 or (REF(btxy,1)=4 and btxy=1)),btxpp,btxpp,2,0),COLOREE00;
 STICKLINE(zz1>0 and btxpp and (btxy=4 or (REF(btxy,1)=4 and btxy=1)),btxpp,btxpp,1,0),COLORFF00;
 STICKLINE((zz1>0 and btxpp=0) AND (zz1>0 and btxpp=0) AND REF((zz1=0 and btxy=4),1),ming,zxng,8,0),COLOR88CC;
 STICKLINE((zz1>0 and btxpp=0) AND (zz1>0 and btxpp=0) AND REF((zz1=0 and btxy=4),1),ming,zxng,7,0),COLOR99CC;
 STICKLINE((zz1>0 and btxpp=0) AND (zz1>0 and btxpp=0) AND REF((zz1=0 and btxy=4),1),ming,zxng,6,0),COLORAACC;
 STICKLINE((zz1>0 and btxpp=0) AND (zz1>0 and btxpp=0) AND REF((zz1=0 and btxy=4),1),ming,zxng,5,0),COLORBBCC;
 STICKLINE((zz1>0 and btxpp=0) AND (zz1>0 and btxpp=0) AND REF((zz1=0 and btxy=4),1),ming,zxng,4,0),COLORCCCC;
 STICKLINE((zz1>0 and btxpp=0) AND (zz1>0 and btxpp=0) AND REF((zz1=0 and btxy=4),1),ming,zxng,3,0),COLORDDCC;
 STICKLINE((zz1>0 and btxpp=0) AND (zz1>0 and btxpp=0) AND REF((zz1=0 and btxy=4),1),ming,zxng,2,0),COLOREECC;
 STICKLINE((zz1>0 and btxpp=0) AND (zz1>0 and btxpp=0) AND REF((zz1=0 and btxy=4),1),ming,zxng,1,0),COLORFFCC;

 STICKLINE((REF((zz1=0 and btxy=1),1) and (zz1>0 and btxpp=0) and (zz1>0 and btxpp=0)),maxg,zxng,8,0),colorAAAA00;
 STICKLINE((REF((zz1=0 and btxy=1),1) and (zz1>0 and btxpp=0) and (zz1>0 and btxpp=0)),maxg,zxng,7,0),colorBBBB00;
 STICKLINE((REF((zz1=0 and btxy=1),1) and (zz1>0 and btxpp=0) and (zz1>0 and btxpp=0)),maxg,zxng,6,0),colorCCCC00;
 STICKLINE((REF((zz1=0 and btxy=1),1) and (zz1>0 and btxpp=0) and (zz1>0 and btxpp=0)),maxg,zxng,5,0),colorDDDD00;
 STICKLINE((REF((zz1=0 and btxy=1),1) and (zz1>0 and btxpp=0) and (zz1>0 and btxpp=0)),maxg,zxng,4,0),colorEEEE50;
 STICKLINE((REF((zz1=0 and btxy=1),1) and (zz1>0 and btxpp=0) and (zz1>0 and btxpp=0)),maxg,zxng,3,0),colorEEEE00;
 STICKLINE((REF((zz1=0 and btxy=1),1) and (zz1>0 and btxpp=0) and (zz1>0 and btxpp=0)),maxg,zxng,2,0),colorFFFF50;
 STICKLINE((REF((zz1=0 and btxy=1),1) and (zz1>0 and btxpp=0) and (zz1>0 and btxpp=0)),maxg,zxng,1,0),colorFFFF00;