[分享]
{看時間N,籌碼分布的密集處}
input:年(2005,2000,2099),月(9,1,12),日(26,1,31);
關注:=IF((YEAR=年),1,0);
XY:=IF((MONTH=月),1,0);
XM:=IF((DAY=日),1,0);
XD:=(關注*XY*XM);
VERTLINE(XD);
W00:=COST(1);W01:=COST(6.25);
W02:=COST(12.5);W03:=COST(18.75);
W04:=COST(25);W10:=COST(31.25);
W11:=COST(37.5);W12:=COST(43.75);
W13:=COST(50);W20:=COST(56.25);
W21:=COST(62.5);W22:=COST(68.75);
W23:=COST(75);W24:=COST(81.25);
W25:=COST(87.5);W26:=COST(93.75);
W27:=COST(99.99);
C10:=W01-W00;
C20:=W02-W01;
C30:=W03-W02;
C40:=W04-W03;
C50:=W10-W04;
C60:=W11-W10;
C70:=W12-W11;
C80:=W13-W12;
C66:=W20-W13;
C61:=W21-W20;
C62:=W22-W21;
C63:=W23-W22;
C88:=W24-W23;
C85:=W25-W24;
C86:=W26-W25;
C87:=W27-W26;
ZX:=MIN(C10,MIN(C20,MIN(C30,C40)));
ZXZ:=MIN(C50,MIN(C60,MIN(C70,C80)));
ZXX:=MIN(C66,MIN(C61,MIN(C62,C63)));
XZ:=MIN(C88,MIN(C85,MIN(C86,C87)));
nnl:=XD;
a:=COST(15.62);
a1:=COST(21.87);
a2:=COST(28.12);
a3:=COST(34.37);
a4:=COST(40.62);
a5:=COST(46.87);
a6:=COST(53.12);
a7:=COST(59.37);
a8:=COST(65.62);
a9:=COST(71.87);
a99:=COST(78.12);
a991:=COST(84.37);
a992:=COST(90.62);
DRAWTEXT(nnl AND ZX=C30,a,' 籌碼一五:'+numtostr(a,2)+''),ALIGN1,Color00FFFF,PRECISION2;
DRAWTEXT(nnl AND ZX=C40,a1,' 籌碼二一:'+numtostr(a1,2)+''),ALIGN1,Color00FFFF,PRECISION2;
DRAWTEXT(nnl AND ZXZ=C50,a2,' 籌碼二八:'+numtostr(a2,2)+''),ALIGN1,Color00FFFF,PRECISION2;
DRAWTEXT(nnl AND ZXZ=C60,a3,' 籌碼三四:'+numtostr(a3,2)+''),ALIGN1,Color00FFFF,PRECISION2;
DRAWTEXT(nnl AND ZXZ=C70,a4,' 籌碼四十:'+numtostr(a4,2)+''),ALIGN1,Color00FFFF,PRECISION2;
DRAWTEXT(nnl AND ZXZ=C80,a5,' 籌碼四六:'+numtostr(a5,2)+''),PRECISION2,ALIGN1,Color00FFFF;
DRAWTEXT(nnl AND ZXX=C66,a6,' 籌碼五三:'+numtostr(a6,2)+''),ALIGN1,Color00FFFF,PRECISION2;
DRAWTEXT(nnl AND ZXX=C61,a7,' 籌碼五九:'+numtostr(a7,2)+''),ALIGN1,Color00FFFF,PRECISION2;
DRAWTEXT(nnl AND ZXX=C62,a8,' 籌碼六五:'+numtostr(a8,2)+''),ALIGN1,Color00FFFF,PRECISION2;
DRAWTEXT(nnl AND ZXX=C63,a9,' 籌碼七一:'+numtostr(a9,2)+''),ALIGN1,Color00FFFF,PRECISION2;
DRAWTEXT(nnl AND XZ=C88,a99,' 籌碼七八:'+numtostr(a99,2)+''),ALIGN1,Color00FFFF,PRECISION2;
DRAWTEXT(nnl AND XZ=C85,a991,' 籌碼八五:'+numtostr(a991,2)+''),ALIGN1,Color00FFFF,PRECISION2;
DRAWTEXT(nnl AND XZ=C86,a992,' 籌碼九十:'+numtostr(a992,2)+''),ALIGN1,Color00FFFF,PRECISION2;
DRAWTEXT(nnl,a,'----------------'),ALIGN2,colorred,LINETHICK2;
DRAWTEXT(nnl,a1,'----------------'),ALIGN2,LINETHICK2;
DRAWTEXT(nnl,a2,'----------------'),ALIGN2,LINETHICK2,colorFF6699;
DRAWTEXT(nnl,a3,'----------------'),ALIGN2,LINETHICK2;
DRAWTEXT(nnl,a4,'----------------'),ALIGN2,COLORGREEN,LINETHICK2;
DRAWTEXT(nnl,a5,'------------------------'),ALIGN2,COLORMAGENTA,LINETHICK2;
DRAWTEXT(nnl,a6,'------------------------'),ALIGN2,COLORYELLOW,LINETHICK2;
DRAWTEXT(nnl,a7,'----------------'),ALIGN2,COLOR99CC66,LINETHICK2;
DRAWTEXT(nnl,a8,'----------------'),ALIGN2,LINETHICK2,COLORGREEN;
DRAWTEXT(nnl,a9,'----------------'),ALIGN2,LINETHICK2;
DRAWTEXT(nnl,a99,'----------------'),ALIGN2,LINETHICK2;
|