【通达信】分时主图十点画大十字三日K线【为网友求助而作】

gdxyxc 2012-12-16

展开全文

【100楼】两日分时K线【156】楼当天+昨天+前天三日分时K线

分时两日K线在100楼，本楼为当日+昨日+前日三日分时K线；
【当日+昨日+前日三日分时K线】
引用公式：
公式名称：SS
源码：

O1:REF(O,1);
C1:REF(C,1);
H1:REF(H,1);
L1:REF(L,1);
O2:REF(O,2);
C2:REF(C,2);
H2:REF(H,2);
L2:REF(L,2);
ZF:=(C-REF(C,1))/REF(C,1)*100;
XG:REF(IF(ZF>3.5,(C-REF(C,1))/2+REF(C,1),IF(ZF<-3.5,(REF(C,1)-C)/2+C,DRAWNULL)),1);
【分时三日K线】：
说明：当昨天涨幅或跌幅超过3.5%定义为中阳或中阴，当日在昨天的涨跌幅中位画横线提示，并标注黄五星或红五星；
源码：O1:="SS.O1#DAY";
C1:="SS.C1#DAY";
H1:="SS.H1#DAY";
L1:="SS.L1#DAY";

O2:="SS.O2#DAY";
C2:="SS.C2#DAY";
H2:="SS.H2#DAY";
L2:="SS.L2#DAY";

GGJ:=DYNAINFO(5);
DDJ:=DYNAINFO(6);
KKJ:=DYNAINFO(4);
SSJ:=DYNAINFO(7);

E1:=IF(BETWEEN(TIME,94900,95700),KKJ,DRAWNULL);
E2:=IF(BETWEEN(TIME,94900,95700),SSJ,DRAWNULL);

E12:=IF(BETWEEN(TIME,94000,94800),O1,DRAWNULL);
E22:=IF(BETWEEN(TIME,94000,94800),C1,DRAWNULL);

E13:=IF(BETWEEN(TIME,93100,93900),O2,DRAWNULL);
E23:=IF(BETWEEN(TIME,93100,93900),C2,DRAWNULL);

时间:=TIME=100000;
N:=BARSLAST(时间);

三高:=IF(BETWEEN(TIME,93100,100000),MAX(H1,MAX(H2,GGJ)),DRAWNULL);
三低:=IF(BETWEEN(TIME,93100,100000),MIN(L1,MIN(L2,DDJ)),DRAWNULL);
三日高:=IF(BETWEEN(TIME,95700,100000),MAX(H1,MAX(H2,GGJ)),DRAWNULL);
三日低:=IF(BETWEEN(TIME,95700,100000),MIN(L1,MIN(L2,DDJ)),DRAWNULL);
三日高1:=IF(BETWEEN(TIME,94900,93100),MAX(H1,MAX(H2,GGJ)),DRAWNULL);
三日低1:=IF(BETWEEN(TIME,954900,93100),MIN(L1,MIN(L2,DDJ)),DRAWNULL);
三日高2:=IF(BETWEEN(TIME,94000,93100),MAX(H1,MAX(H2,GGJ)),DRAWNULL);
三日低2:=IF(BETWEEN(TIME,94000,93100),MIN(L1,MIN(L2,DDJ)),DRAWNULL);

DRAWBAND(三日高,RGB(0,0,0),三日低,RGB(0,0,0));
STICKLINE(TIME=95300 AND SSJ>KKJ,GGJ,DDJ,1,0),COLOR0000CC;
STICKLINE(TIME=95300 AND SSJ<KKJ,GGJ,DDJ,1,0),COLORFFFF54;
STICKLINE(TIME=95300 AND SSJ=KKJ,GGJ,DDJ,1,0),COLORWHITE;

DRAWBAND(IF(SSJ>KKJ,E2,DRAWNULL),RGB(204,0,0),E1,RGB(204,0,0));
DRAWBAND(IF(SSJ<KKJ,E2,DRAWNULL),RGB(84,255,255),E1,RGB(84,255,255));
DRAWBAND(IF(SSJ=KKJ,E2,DRAWNULL),RGB(255,255,255),E1,RGB(255,255,255));
DRAWBAND(三日高1,RGB(0,0,0),三日低1,RGB(0,0,0));

STICKLINE(TIME=94400 AND C1>O1,H1,L1,1,0),COLOR0000CC;
STICKLINE(TIME=94400 AND C1<O1,H1,L1,1,0),COLORFFFF54;
STICKLINE(TIME=94400 AND C1=O1,H1,L1,1,0),COLORWHITE;
DRAWBAND(IF(C1>O1,E22,DRAWNULL),RGB(204,0,0),E12,RGB(204,0,0));
DRAWBAND(IF(C1<O1,E22,DRAWNULL),RGB(84,255,255),E12,RGB(84,255,255));
DRAWBAND(IF(C1=O1,E22,DRAWNULL),RGB(255,255,255),E12,RGB(255,255,255));

DRAWBAND(三日高2,RGB(0,0,0),三日低2,RGB(0,0,0));

STICKLINE(TIME=93500 AND C2>O2,H2,L2,1,0),COLOR0000CC;
STICKLINE(TIME=93500 AND C2<O2,H2,L2,1,0),COLORFFFF54;
STICKLINE(TIME=93500 AND C2=O2,H2,L2,1,0),COLORWHITE;
DRAWBAND(IF(C2>O2,E23,DRAWNULL),RGB(204,0,0),E13,RGB(204,0,0));
DRAWBAND(IF(C2<O2,E23,DRAWNULL),RGB(84,255,255),E13,RGB(84,255,255));
DRAWBAND(IF(C2=O2,E23,DRAWNULL),RGB(255,255,255),E13,RGB(255,255,255));

STICKLINE(时间=1,三日高,三日低,-1,-1),COLOR0000CC;
IF(BETWEEN(TIME,93100,94000) AND BETWEEN(C,C1,O1),C,DRAWNULL),COLORWHITE;
STICKLINE(时间=1,GGJ,DDJ,-1,-1),COLORGREEN;
均价:SUM(V*C,0)/SUM(V,0),COLORYELLOW;
CONST(IF(N,LLV(L,0),REF(LLV(L,0),N))),COLOR888888;
CONST(IF(N,HHV(H,0),REF(HHV(H,0),N))),COLOR888888;
CONST(GGJ),COLORRED,DOTLINE;
CONST(DDJ),COLORLIBLUE,DOTLINE;
常数:CONST(IF(N=0,C,REF(C,N))),COLORGREEN,DOTLINE;
DRAWNUMBER(TIME=93500,常数,常数),COLORMAGENTA;
DRAWNUMBER(时间,GGJ*0.999,GGJ),COLORMAGENTA;
DRAWNUMBER(时间,DDJ*1.001,DDJ),COLORMAGENTA;
中值:"SS.XG#DAY";
DRAWTEXT(中值 AND TIME=94200 AND C1>O1,中值,'☆'),COLORYELLOW;
DRAWTEXT(中值 AND TIME=94200 AND C1<O1,中值,'★'),COLORRED;
IF(BETWEEN(C,三高,三低),C,DRAWNULL),COLORWHITE;
IF(C=GGJ,C,DRAWNULL),COLORWHITE;

GG:CONST(MAX(H1,MAX(H2,GGJ))),DOTLINE,COLORYELLOW;
DD:CONST(MIN(L1,MIN(L2,DDJ))),DOTLINE,COLORYELLOW;

DRAWNUMBER(CURRBARSCOUNT=11,GG,GG);
DRAWNUMBER(CURRBARSCOUNT=11,DD,DD);