通达信分时主图+自动画线源码
STICKLINE(C>0,H,L,6,1),COLOR000000;
分时线:C,COLOR8800FF,LINETHICK1;
MA55:MA(C,55),COLOR663636;
A:=CURRBARSCOUNT;
A1:=DAY!=REF(DAY,1);
A2:=BARSLAST(A1)+1;
A3:=MA(C,A2);
A4:=SUM(AMO,A2)/SUM(VOL,A2)/100;
A5:=IF(CAPITAL>0,A4,A3);
现价:IF(A<=CONST(A2),CLOSE,DRAWNULL)COLOR0098FF,LINETHICK1;
均价:IF(A<=CONST(A2),A5,DRAWNULL),COLORFF9800,LINETHICK1;
前收盘:IF(A<=CONST(A2),DYNAINFO(3),DRAWNULL),COLORRED,LINETHICK1;
RC:=DYNAINFO( 3);
S2:=SMA(C,2,1);
S6:=SMA(C,6,1);
DK:=2*(S2-S6);
STICKLINE(DK>0,RC,RC+DK,0,1),COLOR000036;
STICKLINE(DK<0,RC,RC+DK,0,1),COLOR003600;
AA1:=REF(分时线,P)=HHV(分时线,2*P+1);
BB1:=FILTER(AA1,P);
CC1:=BACKSET(BB1,P+1);
DD1:=FILTER(CC1,P);{高点}
AA2:=REF(分时线,P)=LLV(分时线,2*P+1);
BB2:=FILTER(AA2,P);
CC2:=BACKSET(BB2,P+1);
DD2:=FILTER(CC2,P);{低点}
上:=REF(分时线,BARSLAST(DD1)),COLORFF00FF,NODRAW;
下:=REF(分时线,BARSLAST(DD2)),COLOR00FF00,NODRAW;
相对能量:(分时线-下)/(上-下)*100,COLORYELLOW,NODRAW;
R11:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1);
S11:=R11>REF(R11,1);
压力线:DRAWLINE(DD1,分时线,S11,分时线,1),COLORYELLOW;
T11:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1);
U11:=T11>REF(T11,1);
支撑线:DRAWLINE(DD2,分时线,U11,分时线,1),COLOR00FF00;
STICKLINE(C>0,下,下,1,0),COLOR00FF00;
STICKLINE(C>0,上,上,1,0),COLORFF00FF;
DRAWICON(DD1,分时线,2);
DRAWICON(DD2,分时线,1);
STICKLINE(C>0,H,L,6,1),COLOR000000;
分时线:C,COLOR8800FF,LINETHICK1;
MA55:MA(C,55),COLOR663636;
A:=CURRBARSCOUNT;
A1:=DAY!=REF(DAY,1);
A2:=BARSLAST(A1)+1;
A3:=MA(C,A2);
A4:=SUM(AMO,A2)/SUM(VOL,A2)/100;
A5:=IF(CAPITAL>0,A4,A3);
现价:IF(A<=CONST(A2),CLOSE,DRAWNULL)COLOR0098FF,LINETHICK1;
均价:IF(A<=CONST(A2),A5,DRAWNULL),COLORFF9800,LINETHICK1;
前收盘:IF(A<=CONST(A2),DYNAINFO(3),DRAWNULL),COLORRED,LINETHICK1;
RC:=DYNAINFO( 3);
S2:=SMA(C,2,1);
S6:=SMA(C,6,1);
DK:=2*(S2-S6);
STICKLINE(DK>0,RC,RC+DK,0,1),COLOR000036;
STICKLINE(DK<0,RC,RC+DK,0,1),COLOR003600;
AA1:=REF(分时线,P)=HHV(分时线,2*P+1);
BB1:=FILTER(AA1,P);
CC1:=BACKSET(BB1,P+1);
DD1:=FILTER(CC1,P);{高点}
AA2:=REF(分时线,P)=LLV(分时线,2*P+1);
BB2:=FILTER(AA2,P);
CC2:=BACKSET(BB2,P+1);
DD2:=FILTER(CC2,P);{低点}
上:=REF(分时线,BARSLAST(DD1)),COLORFF00FF,NODRAW;
下:=REF(分时线,BARSLAST(DD2)),COLOR00FF00,NODRAW;
相对能量:(分时线-下)/(上-下)*100,COLORYELLOW,NODRAW;
R11:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1);
S11:=R11>REF(R11,1);
压力线:DRAWLINE(DD1,分时线,S11,分时线,1),COLORYELLOW;
T11:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1);
U11:=T11>REF(T11,1);
支撑线:DRAWLINE(DD2,分时线,U11,分时线,1),COLOR00FF00;
STICKLINE(C>0,下,下,1,0),COLOR00FF00;
STICKLINE(C>0,上,上,1,0),COLORFF00FF;
DRAWICON(DD1,分时线,2);
DRAWICON(DD2,分时线,1);
