通达信龙头主图选股指标公式源码

通达信龙头主图选股指标公式源码

源码正文：

A0:=((L+H+C*2)/4){XG51};
上:ema(A0,14)*1.1382,COLORBLUE,LINETHICK2{XG51};
DRAWNUMBER(ISLAstBAR,上,上),COLORRED{XG51};
中:Ema(A0,14)*1.0618,COLORRED,LINETHICK2{XG51};
DRAWNUMBER(ISLASTBAR,中,中),COLORRED{XG51};
下:EMA(A0,14),COLORWHITE,LINETHICK2{XG51};
DRAWNUMBER(ISLASTBAR,下,下),COLORRED{XG51};
多空:EMA((EMA(CLOSE,29)+EMA(CLOSE,31)+EMA(CLOSE,33))/3,3),COLORBLUE,LINETHICK3{XG51};
做空:=REF(多空,1),COLORCYAN,NODRAW{XG51};
A2:=EMA(多空,25)COLORLIGREEN,LINETHICK3{XG51};
A1X:=(多空-REF(多空,1))/REF(多空,1)*100,NODRAW{XG51};
A2X:=(A2-REF(A2,1))/REF(A2,1)*100,NODRAW{XG51};
买:IF(A1X>=0,多空,DRAWNULL),COLORLIMAGENTA,LINETHICK3{XG51};
卖:IF(A1X<0 AND A2X<0,多空,DRAWNULL),COLORCYAN,LINETHICK3{XG51};

HIGHN:=10{XG51};
HIGHN8:=20{XG51};
LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0{XG51};
AA:=REF(H,HIGHN)=HHV(H,2*HIGHN+1){XG51};
QY:=BacKSET(AA,HIGHN+1){XG51};
CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1){XG51};
DDDD:=BArslAST(CC){XG51};
GDTS:=IF(CC,CURRBARSCOUNT,0){XG51};
DINGBU:=IF(DDDD,REF(H,DDDD),H){XG51};
DINGBUTS:=IF(DDDD,REF(GDTS,DDDD),GDTS){XG51};
DINGBU1:=REF(DINGBU,DDDD+1){XG51};
GDCS1:=CONST(DINGBUTS){XG51};
DINGBUTS1:=REF(DINGBUTS,DDDD+1){XG51};
GDCS2:=CONST(DINGBUTS1){XG51};
DINGBU2:=REF(DINGBU1,DDDD+1){XG51};
MM:=IF(CURRBARSCOUNT>GDCS2,0,1){XG51};
CC8:=FILTER(QY,HIGHN8) AND H=HHV(H,HIGHN8+1){XG51};
DDDD8:=BARSLAST(CC8){XG51};
GDTS8:=IF(CC8,CURRBARSCOUNT,0){XG51};
DINGBUTS8:=IF(DDDD8,REF(GDTS8,DDDD8),GDTS8){XG51};
GDCS8:=CONST(DINGBUTS8){XG51};
DINGBUTS9:=REF(DINGBUTS8,DDDD8+1){XG51};
GDCS9:=CONST(DINGBUTS9){XG51};
高点压力:=DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1) COLORCYAN,LINETHICK1{XG51};
压A:DRAWLINE(CURRBARSCOUNT=GDCS2,H,ISLASTBAR,REF(H,GDCS2-1),1),COLOR0055FF,LINETHICK2{XG51};
压B:DRAWLINE(CURRBARSCOUNT=GDCS1,H,ISLASTBAR,REF(H,GDCS1-1),1),COLORLIBLUE,LINETHICK2{XG51};
压A2:=DRAWLINE(CURRBARSCOUNT=GDCS9,H,ISLASTBAR,REF(H,GDCS9-1),1),COLOR0055FF,LINETHICK2{XG51};
压B2:=DRAWLINE(CURRBARSCOUNT=GDCS8,H,ISLASTBAR,REF(H,GDCS8-1),1),COLORLIBLUE,LINETHICK2{XG51};
AA1:=REF(L,LOWN)=LLV(L,2*LOWN+1){XG51};
QY1:=BACKSET(AA1,LOWN+1){XG51};
CC1:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1){XG51};
DD1:=BARSLAST(CC1){XG51};
DDTS:=IF(CC1,CURRBARSCOUNT,0){XG51};
YDB:=IF(DD1,REF(L,DD1),L){XG51};
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS){XG51};
DDCS1:=CONST(DDTS1){XG51};
ZDB:=REF(YDB,DD1+1){XG51};
DDTS2:=REF(DDTS1,DD1+1){XG51};
DDCS2:=CONST(DDTS2){XG51};
低点支撑:=DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1) COLORWHITE,LINETHICK1{XG51};
ZGSTAR:=(高点压力+低点支撑)/2{XG51};
ZGEND:=CONST((高点压力+低点支撑)/2){XG51};
STARDAY:=IF(DDCS2<GDCS2,DDCS2,GDCS2){XG51};
中轨:=DRAWLINE(CURRBARSCOUNT=STARDAY,ZGSTAR,ISLASTBAR,ZGEND,1),COLORFF55BB,LINETHICK2{XG51};
支A:DRAWLINE(CURRBARSCOUNT=DDCS1,L,ISLASTBAR,REF(L,DDCS1-1),1),COLORLIMAGENTA{XG51};
支B:DRAWLINE(CURRBARSCOUNT=DDCS2,L,ISLASTBAR,REF(L,DDCS2-1),1),COLORGREEN{XG51};
A1:=REF(H,8)=HHV(H,2*8+1);
B1:=FILTER(A1,8);
C1:=BACKSET(B1,8+1);
D1:=FILTER(C1,8){XG51};
R11:=BACKSET(ISLASTBAR,BARSLAST(D1)+1); S11:=R11>REF(R11,1){XG51};
A2B:=REF(L,8)=LLV(L,2*8+1);
B2:=FILTER(A2B,8){XG51};
C2:=BACKSET(B2,8+1);
D2:=FILTER(C2,8){XG51};
T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1); U11:=T11>REF(T11,1){XG51};
M:=INTPART(3*8/5){XG51};
A12:=REF(H,M)=HHV(H,2*M+1);
B12:=FILTER(A12,M);
C12:=BACKSET(B12,M+1);
D12:=FILTER(C12,M){XG51};
R112:=BACKSET(ISLASTBAR,BARSLAST(D12)+1); S112:=R112>REF(R112,1){XG51};
A22:=REF(L,M)=LLV(L,2*M+1);
B22:=FILTER(A22,M){XG51};
C22:=BACKSET(B22,M+1);
D22:=FILTER(C22,M){XG51};
T112:=BACKSET(ISLASTBAR,BARSLAST(D22)+1); U112:=T112>REF(T112,1){XG51};
压1:DRAWLINE(D1,H,S11,H,1),COLORCYAN{XG51};
压2:DRAWLINE(D12,H,S112,H,1),COLORLIGREEN{XG51};
支1:=DRAWLINE(D2,L,U11,L,1),COLORWHITE{XG51};
支2:=DRAWLINE(D22,L,U112,L,1),COLORLICYAN{XG51};
PH:=TROUGHBARS(2,5,1){XG51};
LL:=HHV(H,PH){XG51};
TJ1:=LL=HIGH AND LL<REF(LL,1){XG51};
TS:=SUMBARS(TJ1,2){XG51};
TJ:=PEAKBARS(2,5,1)=1 AND TS>=PH{XG51};
PL:=BARSLAST(TJ){XG51};
支C:=IF(BARSLAST(TJ1),REF(LOW,BARSLAST(TJ1)),DRAWNULL),COLOREA91B5{XG51};
压C:=IF(BARSLAST(TJ),REF(HIGH,PL),DRAWNULL),COLORBLUE{XG51};
LA:=BARSLAST(C>REF(C,1)*1.098){XG51};
LC:=REF(CLOSE,LA){XG51};
LO:=REF(OPEN,LA){XG51};
LAL:=REF(L,LA){XG51};
LAH:=REF(H,LA){XG51};
一涨停:=EVERY(C/REF(C,1)>=1.097 AND C=H,1){XG51};
双涨停:=EVERY(C/REF(C,1)>=1.097 AND C=H,2){XG51};
三涨停:=EVERY(C/REF(C,1)>=1.097 AND C=H,3) AND H>L{XG51};
策略1A:=EXIST((C/REF(C,2)-1)*100>20,2) AND COUNT(LC>LO,3)>=1 AND O<REF(C,1)  AND C<REF(C,1) AND C>O AND C>REF(O,1) AND REF(C,1)>REF(C,2) {XG51};
策略1B:=EXIST(双涨停,3) AND COUNT(LC>LO,4)>=1 AND O<REF(C,1)  AND C<REF(C,1) AND C>O AND C>REF(O,1) AND REF(C,1)>REF(C,2) {XG51};
DRAWTEXT(策略1A,LOW,'↖①'),COLORBLUE{XG51};
DRAWTEXT(策略1B,LOW,'↖①'),COLORBLUE{XG51};
角度:=ATAN((MA(C,5)/REF(MA(C,5),1)-1)*100)*57.3{XG51};
持有:=EXIST(一涨停,5) AND 角度>75 AND C>上 AND C>REF(C,1) AND C>上 {XG51};
突破:=角度>75 AND C>上 AND C>REF(C,1) AND C>上 {XG51};
DRAWTEXT(持有,LOW,'↖龙'),COLORBLUE{XG51};
STICKLINE(突破,O,C,1,0),COLORLIMAGENTA{XG51};
涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0){XG51};
STICKLINE(涨停,O,C,1,0),COLORBLUE{XG51};
ZDF:=(C-REF(C,1))/REF(C,1)*100{XG51};
STICKLINE(ZDF<-9.9,O,C,1,0),COLORYELLOW{X.G=5*1.C.N.{};