飞狐画鬼变脸主图源码
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;