通达信龙凤绝技主图公式 专吃主拉段（右上角显示时间）

源码

N8:=STRCAT(CON2STR(YEAR,0),' 年 ');

Y8:=STRCAT(CON2STR(MONTH,0),' 月 ');

R8:=STRCAT(CON2STR(DAY,0),' 日 ');

A:=EMA(C,2);

B:=EMA(SLOPE(C,21)*20+C,42);

STICKLINE(A>=B,REFDATE(HHV(H,100),DATE),H*1.01,5,0),COLOR000055;

STICKLINE(A<B,REFDATE(HHV(H,100),DATE),H*1.01,5,0),COLOR663300;

高1:=REF(HHV(H,120),3);

低1:=REF(LLV(L,120),3);

H1:=高1-(高1-低1)*0.191;

H2:=高1-(高1-低1)*0.382;

H3:=高1-(高1-低1)*0.5;

H4:=高1-(高1-低1)*0.618;

H5:=高1-(高1-低1)*0.809;

突破:=REF(EMA(C,14),1);

A1X:=(EMA(C,10)-突破)/突破*100;

SJ8:=STRCAT(STRCAT(N8,Y8), R8);

基准:=IF(A1X>=0,REF(EMA(C,10),BARSLAST(CROSS(A1X,0))+1),REF(EMA(C,10),BARSLAST(CROSS(0,A1X))+1));

STICKLINE(A1X>=0,基准,突破,5,0),COLOR000099;

STICKLINE(A1X<0,基准,突破,5,0),COLOR00CC66;

AA:=CROSS(A1X,0),LINETHICK0;

BB:=CROSS(0,A1X),LINETHICK0;

DRAWICON(AA,基准*0.98,34);

DRAWICON(BB,基准*1.015,35);

DRAWTEXT_FIX(C>0,0.88,0,0,SJ8),COLOR00FFFF;

N1:=60;

K:=BARSLAST(CURRBARSCOUNT=N1);

GD:=CONST(IF(ISLASTBAR=1,HHV(H,K),0));

DD:=CONST(IF(ISLASTBAR=1,LLV(L,K),0));

KJ:=GD-DD;

平衡:=IF(CURRBARSCOUNT<=N1,DD+KJ/2,DRAWNULL),COLOR00FFFF,NODRAW;

压力:=IF(CURRBARSCOUNT<=N1,GD-KJ*0.191,DRAWNULL),COLORFF00FF,NODRAW;

支撑:=IF(CURRBARSCOUNT<=N1,DD+KJ*0.191,DRAWNULL),COLOR00FF00,NODRAW;

高区:IF(CURRBARSCOUNT<=N1,GD,DRAWNULL),COLORRED,DOTLINE;

低区:IF(CURRBARSCOUNT<=N1,DD,DRAWNULL),COLOR00FF00,DOTLINE;

A1:=BARSLAST(MONTH!=REF(MONTH,1))+1;

月±%:(CLOSE/REF(CLOSE,A1)-1)*100,COLOR00FFFF,NODRAW;

STICKLINE(CURRBARSCOUNT=N1,GD,DD,0,-1),COLORWHITE;

STICKLINE(CURRBARSCOUNT=N1/2,GD,DD,0,-1),COLORWHITE;

STICKLINE(CURRBARSCOUNT=1,GD,DD,0,-1),COLORWHITE;

STICKLINE(CURRBARSCOUNT<=N1,平衡,平衡,3,-1),COLORWHITE;

STICKLINE(CURRBARSCOUNT<=N1/2,压力,压力,3,-1),COLORRED;

STICKLINE(CURRBARSCOUNT<=N1/2,支撑,支撑,3,-1),COLORGREEN;

DRAWKLINE(H,O,L,C);