龙头追踪 通达信副图指标 源码 贴图

A1:=HY_INDEXC,NODRAW;
A2:=(HY_INDEXC-REF(A1,1))/A1;
AA2:=EMA(A2,3);
A3:=(C-REF(C,1))/C;
AA3:=EMA(A3,3);
B1:=IF(DATE<1211230,1,DRAWNULL);
D2:=(C-EMA(C,3))/EMA(C,5);
D1:=(A1-EMA(A1,3))/EMA(A1,5);
D3:=(INDEXC-EMA(INDEXC,3))/EMA(INDEXC,5);
FF:=10*(D2-D1);
D32222:=(EMA(INDEXC,3)-EMA(INDEXC,5))/EMA(INDEXC,3);
D22:=(C-REF(C,1))/REF(C,1);
D11:=(A1-REF(A1,1))/REF(A1,1);
成龙:IF(B1=1,100*EMA(D2,3),DRAWNULL),COLORRED,LINETHICK2;
孵化:IF(B1=1,100*EMA(D1,3),DRAWNULL),COLORBLUE,LINETHICK2;
龙休眠:IF(B1=1,100*EMA(D3,3),DRAWNULL),COLORGREEN,LINETHICK2;
BAR:=CALCSTOCKINDEX('399001','BARNO',1);
ZRRS1:=DATETODAY(DATE)-DATETODAY(REF(DATE,1))-1;
JYRS1:=REF(BAR,1)-BAR-1;
TODAY:=ISLASTBAR AND V=0;
JYRS:=IF(TODAY,JYRS1+1,JYRS1);
ZRRS:=IF(TODAY,ZRRS1+1,ZRRS1);
FP:=JYRS>0;{WWW.GPXIAZAI.COM}
FPB:=BARSLAST(FP);
最近停牌日期:=REF(DATE,FPB+1),NODRAW,COLORYELLOW; {次日停牌}
最近复牌日期:=IF(TODAY,DRAWNULL,REF(DATE,FPB)),NODRAW,COLORRED;
停牌自然日日数:=REF(ZRRS,FPB),NODRAW,COLOR00AAFF;
停牌交易日数:=REF(JYRS,FPB),NODRAW,COLOR00AAFF;
BAGE1:=DRAWICON(FP,成龙*0.80,34);
A3E7:=DRAWTEXT(FP,成龙*1.05,'停牌');
A3E4:=DRAWTEXT(FP,孵化*1.03,
VARCAT(VARCAT(VAR2STR(ZRRS,0),', '),VAR2STR(JYRS,0))),COLORBLUE,DRAWABOVE;
A3E6:DRAWTEXT(FP,孵化*1.03,VARCAT('停牌',VARCAT(VAR2STR(JYRS,0),'天'))),COLORBLUE,DRAWABOVE;
A3E5:=DRAWTEXT(FP,孵化*1.13,VARCAT(VAR2STR(JYRS,0),'天')),COLORBLUE,DRAWABOVE;
DRAWICON(IF(B1=1,成龙>孵化 AND CROSS(EMA(成龙,5),成龙),DRAWNULL),成龙,2);
AA23:=DRAWICON(IF(B1=1,成龙<MAX(成龙,龙休眠) AND CROSS(成龙,EMA(成龙,5)),DRAWNULL),成龙,1);
QW1:DRAWTEXT(IF(B1=1,CROSS(成龙,孵化),DRAWNULL),0.95*成龙,'B'),COLORRED;
R:=STICKLINE(D1<D2 ,FF,0,2.5,0),COLORRED;
R1:=STICKLINE(D1>D2 ,0,FF,2.5,0),COLORBLUE;
指数:=2*EMA(HY_INDEXC,5)-2*EMA(HY_INDEXC,10);
价格:=EMA(C,5)-EMA(C,10);
SUM(成龙,3),DRAWNULL;
TJ2AA111111:=HORCALC(HYBLOCK,105,1,DRAWNULL);
TJ2AA11:=IF((C-REF(C,1))/REF(C,1)>0.097,1,TJ2AA111111);
TJ2AA3:=BLOCKSETNUM(HYBLOCK);
A131:=(TJ2AA3-TJ2AA11)-0.33*TJ2AA3;
TJ2AA1:=IF(A131>0,TJ2AA11,-TJ2AA11);
排名:TJ2AA1,NODRAW;
0;