黄金分割
DRAWGBKlast(c, strip(RGB(00,255,255) ,RGB(00,00,28),2));{}
MID : MA(c,26),color0066cc,LINETHICK2;
UPPER: MID + 2*STD(c,26),colorffff00,LINETHICK2;
LOWER: MID - 2*STD(c,26),colorffff00,LINETHICK2;
PARTLINE(MID ,MID >ref(MID ,1),rgb(255,0,0) ,MID <ref(MID ,1),rgb(0,255,0)),LINETHICK2;
{}ah:hhvall(h),colorff00ff;
al:llvall(l),colorffff00;
ahl:=ah-al;
a19:al+ahl*0.191,colorffff00,DOTLINE;
a38:al+ahl*0.382,colorffff00,DOTLINE;
a61:al+ahl*0.618,colorff00ff,DOTLINE;
a80:al+ahl*0.809,colorff00ff,DOTLINE;
a50:al+ahl*0.5,colorff00ff,DOTLINE;
{FILLRGN(ah,a80 ),colorff0033,LAYER7;
FILLRGN(a61,a80 ),colorff6633,LAYER7;
FILLRGN(a61,a50 ),colorff9933,LAYER7;
FILLRGN(a38,a50 ),colorffcc33,LAYER7;
FILLRGN(a38,a19 ),colorff6633,LAYER7;
FILLRGN(a19,al ),colorff0033,LAYER7;}
y:=999;
DRAWTEXTREL(0,0,'99.99% '+ah),colorred;
DRAWTEXTREL(0,y*0.191,'0.809% '+a80),colorred;
DRAWTEXTREL(0,y*0.382,'0.618% '+a61),colorred;
DRAWTEXTREL(0,y*0.618,'0.382% '+a38),colorred;
DRAWTEXTREL(0,y*0.809,'0.191% '+a19),colorred;
DRAWTEXTREL(0,y-30,'最低 '+al),colorred;
DRAWTEXTREL(0,y*0.5,'0.50% '+a50),colorred;
h0:hhvall(h),colorwhite,LINETHICK3;
l0:llvall(l),colorwhite,LINETHICK3;
z0:(h0+l0)/2,coloryellow,LINETHICK3;
vhl:=h0-z0;
vaa19:z0+vhl*0.191,colorff00ff,DOTLINE;
vaa38:z0+vhl*0.382,colorff00ff,DOTLINE;
vaa61:z0+vhl*0.618,colorff00ff,DOTLINE;
vaa80:z0+vhl*0.809,colorff00ff,DOTLINE;
vaa50:z0+vhl*0.5,colorff00ff,DOTLINE;
vvhl:=z0-l0;
vvaa19:l0+vvhl*0.191,colorffff00,DOTLINE;
vvaa38:l0+vvhl*0.382,colorffff00,DOTLINE;
vvaa61:l0+vvhl*0.618,colorffff00,DOTLINE;
vvaa80:l0+vvhl*0.809,colorffff00,DOTLINE;
vvaa50:l0+vvhl*0.5,colorffff00,DOTLINE;{}
AaaC:=C;
AaaH:=H;
AaaL:=L;
AaaO:=O;
STICKLINE(AaaC>=AaaO,AaaH,AaaC,1,0),color0000cc;
STICKLINE(AaaC>=AaaO,AaaH,AaaC,0,0),color6633ff;
STICKLINE(AaaC>=AaaO,AaaO,AaaL,1,0),color0000cc;
STICKLINE(AaaC>=AaaO,AaaO,AaaL,0,0),color6633ff;
STICKLINE(AaaC>AaaO,AaaC,AaaO,8,0),COLOR0000cc;
STICKLINE(AaaC>AaaO,AaaC,AaaO,7,0),COLOR3300cc;
STICKLINE(AaaC>AaaO,AaaC,AaaO,6,0),COLOR0033cc;
STICKLINE(AaaC>AaaO,AaaC,AaaO,5,0),COLOR3333cc;
STICKLINE(AaaC>AaaO,AaaC,AaaO,4,0),COLOR0000ff;
STICKLINE(AaaC>AaaO,AaaC,AaaO,3,0),COLOR3300ff;
STICKLINE(AaaC>AaaO,AaaC,AaaO,2,0),COLOR6600ff;
STICKLINE(AaaC>AaaO,AaaC,AaaO,1,0),COLOR6633ff;
STICKLINE(AaaC<=AaaO,AaaH,AaaC,1,0),color888800;
STICKLINE(AaaC<=AaaO,AaaH,AaaC,0,0),colorffff00;
STICKLINE(AaaC<=AaaO,AaaO,AaaL,1,0),color888800;
STICKLINE(AaaC<=AaaO,AaaO,AaaL,0,0),colorffff00;
STICKLINE(AaaC<=AaaO,AaaC,AaaO,8,0),COLOR888800;
STICKLINE(AaaC<=AaaO,AaaC,AaaO,7,0),COLOR999900;
STICKLINE(AaaC<=AaaO,AaaC,AaaO,6,0),COLORaaaa00;
STICKLINE(AaaC<=aaAO,AaaC,AaaO,5,0),COLORbbbb00;
STICKLINE(AaaC<=AaaO,AaaC,AaaO,4,0),COLORcccc00;
STICKLINE(AaaC<=AaaO,AaaC,AaaO,3,0),COLORdddd00;
STICKLINE(AaaC<=AaaO,AaaC,AaaO,2,0),COLOReeee00;
STICKLINE(AaaC<=AaaO,AaaC,AaaO,1,0),COLORffff00;;
|