软件名称:[B]黄金分割[/B]
软件类型:国产软件
运行环境:Win9X/Win2000/WinXP/Win2003/
软件语言:简体中文
授权方式:免费版
软件大小:7.00 KB
官方主页:Home Page
更新时间:2009-10-02 17:30:53
软件简介:
a1:=hhvall(h);
a2:=llvall(l);
x50:=(a1+a2)/2;
x191:=a2+(a1-a2)*0.191;
x382:=a2+(a1-a2)*0.382;
x618:=a2+(a1-a2)*0.618;
x809:=a2+(a1-a2)*0.809;
x125:=a2+(a1-a2)*0.125;
x25:=a2+(a1-a2)*0.25;
x333:=a2+(a1-a2)*0.333;
x375:=a2+(a1-a2)*0.375;
x625:=a2+(a1-a2)*0.625;
x667:a2+(a1-a2)*0.667;
x75:=a2+(a1-a2)*0.75;
x875:=a2+(a1-a2)*0.875;
aa00:a1,LINETHICK1,Color0000FF,DOTLINE;
aa50:x50,LINETHICK1,Color00FFFF,DASHLINE;
aa100:a2,LINETHICK1,ColorFF0000,DOTLINE;
aa382:x382,LINETHICK1,ColorFF00FF;
aa618:x618,LINETHICK1,ColorFFFF00;
aa809:x809,LINETHICK1,Color00FF00;
aa191:x191,LINETHICK1,ColorFFFFFF;
bb125:x125,LINETHICK1,DOTLINE,Color00FFFF;
bb25:x25,LINETHICK1,DOTLINE,ColorFFFFFF;
BB333:X333,LINETHICK1,DOTLINE,ColorFFFF00;
BB375:X375,LINETHICK1,DOTLINE,Color00FF00;
BB625:X625,LINETHICK1,DOTLINE,Color808040;
BB667:X667,LINETHICK1,DOTLINE,Color0080FF;
BB75:X75,LINETHICK1,DOTLINE,ColorFF00FF;
BB875:X875,LINETHICK1,DOTLINE,Color404080;
DRAWTEXT(BARSTATUS=2,aa618,'61.8%:'+NUMTOSTRN(aa618,2)+''),ALIGN2,color00FFff,LINETHICK1;
DRAWTEXT(BARSTATUS=2,aa809,'80.9%:'+NUMTOSTRN(aa809,2)+''),ALIGN2,color00FFff,LINETHICK1;
DRAWTEXT(BARSTATUS=2,aa50,'50%:'+NUMTOSTRN(aa50,2)+''),ALIGN2,color00FFff,LINETHICK1;
DRAWTEXT(BARSTATUS=2,aa382,'38.2%:'+NUMTOSTRN(aa382,2)+''),ALIGN2,VALIGN2,color00FFff,LINETHICK1;
DRAWTEXT(BARSTATUS=2,aa191,'19.1%:'+NUMTOSTRN(aa191,2)+''),ALIGN2,color00FFff,LINETHICK1;
DRAWTEXT(DISPSTATUS=1,bb125,'1/8:'+NUMTOSTRN(bb125,2)+''),ALIGN0,color00FFff,LINETHICK1;
DRAWTEXT(DISPSTATUS=1,bb25,'1/4:'+NUMTOSTRN(bb25,2)+''),ALIGN0,color00FFff,LINETHICK1;
DRAWTEXT(DISPSTATUS=1,bb333,'1/3:'+NUMTOSTRN(bb333,2)+''),ALIGN0,color00FFff,LINETHICK1;
DRAWTEXT(DISPSTATUS=1,bb375,'3/8:'+NUMTOSTRN(bb375,2)+''),ALIGN0,color00FFff,LINETHICK1;
DRAWTEXT(DISPSTATUS=1,bb625,'5/8:'+NUMTOSTRN(bb625,2)+''),ALIGN0,color00FFff,LINETHICK1;
DRAWTEXT(DISPSTATUS=1,bb667,'2/3:'+NUMTOSTRN(bb667,2)+''),ALIGN0,color00FFff,LINETHICK1;
DRAWTEXT(DISPSTATUS=1,bb75,'3/4:'+NUMTOSTRN(bb75,2)+''),ALIGN0,color00FFff,LINETHICK1;
DRAWTEXT(DISPSTATUS=1,bb875,'7/8:'+NUMTOSTRN(bb875,2)+''),ALIGN0,color00FFff,LINETHICK1;
[url=http://www.70822.com/soft/sort013/sort05/down-13095.html]黄金分割[/url]