软件名称：[B]飞狐超好箱体[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：2.00 KB
官方主页：Home Page
更新时间：2011-06-05 04:06:04
软件简介:

{箱体部分}
cc:=CLOSE;
oo:=OPEN;
hh:=HIGH;
ll:=LOW;
top:=HIGH;
bot:=LOW;
xx[1]:=1;
kk:=1;
for i=1 to DATACOUNT do begin
IF xx[i]=1 then begin
top[i]:=hh[i];
end;
IF xx[i-1]=1 then begin
IF hh[i]>top[i-1] then begin
top[i]:=hh[i];
xx[i]:=1;
end;else begin
top[i]:=top[i-1];
xx[i]:=2;
end;
end;
IF xx[i-1]=2 then begin
IF hh[i]>top[i-1] then begin
top[i]:=hh[i];
xx[i]:=1;
end;else begin
top[i]:=top[i-1];
bot[i]:=ll[i];
xx[i]:=3;
end;
end;
IF xx[i-1]=3 then begin
top[i]:=top[i-1];
IF ll[i]<bot[i-1] then begin
bot[i]:=ll[i];
xx[i]:=3;
end;else begin
bot[i]:=bot[i-1];
xx[i]:=4;
end;
end;
IF xx[i-1]=4 then begin
top[i]:=top[i-1];
IF ll[i]<bot[i-1] then begin
bot[i]:=ll[i];
xx[i]:=3;
end;else begin
bot[i]:=bot[i-1];
xx[i]:=5;
end;
end;
IF xx[i-1]=5 then begin
IF ll[i]<bot[i-1] or hh[i]>top[i-1] then begin
top[i]:=hh[i];
bot[i]:=hh[i];
xx[i]:=1;
end;else begin
bot[i]:=bot[i-1];
top[i]:=top[i-1];
xx[i]:=5;
end;
end;
end;
for j=1 to DATACOUNT do begin
IF xx[j]=5  AND  xx[j-1]=4 then begin
for k=j-1 downto j-kk do begin
top[k]:=top[j];
bot[k]:=bot[j];
end;
end;
IF xx[j-1]=5  AND  xx[j]=1 then kk:=0;
kk:=kk+1;
end;
{箱体部分}
PARTLINE(top=REF(top,1),top),Color3399FF,linethick2;//箱顶
PARTLINE(bot=REF(bot,1),bot),Color3399FF,linethick2;//箱底
STICKLINE((top<>REF(top,1)or bot<>REF(bot,1))  AND  xx=1  AND  REF(xx,1)=5,top,bot,1,0),Color3399FF,linethick2;//左侧竖线
STICKLINE((top<>REFX(top,1)or bot<>REFX(bot,1))  AND  xx=5  AND  REFX(xx,1)=1,top,bot,1,0),Color3399FF,linethick2;//右侧竖线
DRAWNUMBER((top<>REFX(top,1)or bot<>REFX(bot,1))  AND  xx=5  AND  REFX(xx,1)=1,bot,SUMBARS(top<>REF(top,1),1)-(SUMBARS(top<>REF(top,1),2)-SUMBARS(top<>REF(top,1),1)),0) colorwhite;
DRAWNUMBER((top<>REFX(top,1)or bot<>REFX(bot,1))  AND  xx=5  AND  REFX(xx,1)=1,top,SUMBARS(top<>REF(top,1),1),0) colorgreen;
DRAWNUMBER((top<>REFX(top,1)or bot<>REFX(bot,1))  AND  xx=5  AND  REFX(xx,1)=1,top*1.08,(top-REF(top,SUMBARS(top<>REF(top,1),1)))/REF(top,SUMBARS(top<>REF(top,1),1))*100,2),COLORMAGENTA;

[url=http://www.70822.com/soft/sort013/sort02/down-34580.html]飞狐超好箱体[/url]