通达信蛟龙主图未加密选股指标公式源码

源码正文：

工作线:(ema(C,14)),POINTDOT,LINETHICK5,COLORBLUE{XG51};
AA05:ma(C,5),LINETHICK3,COLOR0099CC{XG51};
五日乖离率:=(C-AA05)/AA05*100{XG51};
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416{XG51};
速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1){XG51};
加速度5:EMA((速度5-REF(速度5,1)),3),NODRAW{XG51};
IF(BB05>30 AND AA05>REF(AA05,1), AA05,DRAWNULL),LINETHICK2,COLORWHITE{XG51};
AA10:MA(C,10), LINETHICK0{XG51};
AA20:=MA(C,20){XG51};
BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416{XG51};
IF(BB05<0 AND AA05<REF(AA05,1), AA05,DRAWNULL),LINETHICK2,COLORFFFF00{XG51};
AA30:MA(C,30), LINETHICK0{XG51};
三拾日乖离率:(C-AA30)/AA30*100,NODRAW{XG51};
VAR11:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1){XG51};
VAR22:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1){XG51};
BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416{XG51};
强势狙击:=FILTER(BB30>30 AND BB10>45 AND crOSS(BB05,60),10){XG51};
加仓:=FILTER(COUNT(CROSS(BB05,30),5)>=1 AND AA05>REF(AA05,1) AND 三拾日乖离率>REF(三拾日乖离率,1) AND AA10>REF(AA10,1)
AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1) ,10) {XG51};
清仓:=FILTER(COUNT(CROSS(30,BB05),5)>=1 AND (C>AA30 OR O>AA30) AND AA05<REF(AA05,1) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10<REF(AA10,1),10){XG51};
DRAWTEXT(加仓 ,LOW*0.98,'←加仓'),COLORBLUE{XG51};
JC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10>REF(AA10,1) {XG51};
减仓:=FILTER(JC,10){XG51};
MR:=COUNT(CROSS(五日乖离率,0),3)>=1 AND 三拾日乖离率>REF(三拾日乖离率,1) AND AA05>REF(AA05,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)<AA30{XG51};
买入:=FILTER(MR,10){XG51};
DRAWTEXT(减仓,HIGH*1.02,'←减仓'),COLORGREEN{XG51};
DRAWTEXT(买入,LOW*0.95,'←买入'),COLORBLUE{XG51};
TYP:=(HIGH+LOW+CLOSE)/3{XG51};
cci:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)){XG51};
VAR55:=CROSS(CCI,-100){XG51};
VAR66:=CCI>=200{XG51};
DRAWTEXT(VAR66,HIGH*1.02,'←小心'),COLORBLUE{XG51};
SJ1:=VAR55{XG51};
stICKLINE(SJ1,H,L,0.6,0),COLORBLUE{XG51};
LC:=REF(CLOSE,1){XG51};
rsi:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(Abs(CLOSE-LC),6,1)*100{XG51};
DRAWTEXT(CROSS(84,RSI) , HIGH,'←逃'),COLORCYAN{XG51};
VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0){XG51};
VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0){XG51};
DRAWTEXT(FILTER((VAR4AA>90),45),(LOW)*(0.93),'←大胆搏 '),COLORBLUE{XG51};
A:=(3*C+L+O+H)/6{XG51};
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
REF(A,20))/210{XG51};
生命线:EMA(X,13),LINETHICK2,COLORLIMAGENTA{XG51};
MA5:MA(CLOSE,5){XG51};
MA13:=MA(CLOSE,13){XG51};
MA21:=MA(CLOSE,21){XG51};
MA55:=MA(CLOSE,55){XG51};
生命线1:HHV(MA(C,5),13),COLORYELLOW{XG51};
IF(MA(C,5)>REF(MA(C,5),1) AND MA(C,5)=HHV(MA(C,5),13),生命线,DRAWNULL),LINETHICK2,COLORWHITE{XG51};
VAR1:=IF((BARSCOUNT(C) > 7),(100)*((MA(C,7))/(LLV(MA(C,7),7)) - 1),1){XG51};
VAR2:=IF((VAR1> 0.35),6,65){XG51};
VAR3:=((-((100)*(HHV(H,VAR2) - C))/(HHV(HIGH,VAR2) - LLV(L,VAR2)))){XG51};
VAR4:=(CROSS(VAR3,(-2))){XG51};
DRAWTEXT(VAR4,L,'←涨停'),COLORWHITE{XG51};
圆弧底:=CROSS(MA(C,13),MA(C,21)){XG51};
DRAWTEXT(圆弧底,L,'←圆弧底'),COLORBLUE{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSV,9,1){XG51};
D:=SMA(K,9,1){XG51};
J:=3*K-2*D{XG51};
VAR5:=LLV(J,2)=LLV(J,8){XG51};
DRAWTEXT(CROSS(J,REF(J+0.01,1)) AND VAR5 AND J<20,LOW*0.98,'←短进'),COLORMAGENTA{XG51};
VAR6:=SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100{XG51};
DRAWTEXT(CROSS(84,VAR6),H*1.02,'←S'),COLORCYAN{XG51};
VAR7:=EMA(C,5){XG51};
VAR8:=EMA(VAR7,5),COLORRED{XG51};
VAR9:=HHV(MA(H,13),13),COLORWHITE,LINETHICK2{XG51};
VAR10:=FILTER(VAR8>REF(VAR8,1) AND VAR9<REF(VAR9,1) AND C>REF(C,1),11){XG51};
DRAWTEXT(VAR10,L*0.98,'←追涨'),COLORBLUE{X_G_5.1_C_N_{};

源码正文：

VARAA:=AMOUNT/(100*vol){XG51};
cyc13:=ma(VARAA,13){XG51};
CYC34:=MA(VARAA,34){XG51};
CYCMAX:=dma(C,VOL/CAPITAL){XG51};
CYS13:=(C-CYC13)/CYC13*100{XG51};
cys34:=(C-CYC34)/CYC34*100{XG51};
CYSMAX:=(C-CYCMAX)/CYCMAX*100{XG51};
亏损程度:
IF(CYS13<=-7,7,0),COLORRED,stICK,LINETHICK3{XG51};
IF(CYS13<=-10,10,0),COLORFFFF33,STICK,LINETHICK3{XG51};
IF(CYS13<=-16,16,0),COLORYELLOW,STICK,LINETHICK3{XG51};
IF(CYS13<=-20,20,0),COLOR00FF77,STICK,LINETHICK3{XG51};
IF(CYS13<=-25,25,0),COLORBLUE,STICK,LINETHICK3{XG51};
IF(CYS13<=-30,30,0),COLORFF00FF,STICK,LINETHICK3{XG51};
VAR1:=COST(10)*0{XG51};
VAR2:=REF(HIGH,1)*1.1{XG51};
VAR3:=HIGH*1.1{XG51};
VAR4:=(VAR3*VOL+VAR2*(CAPITAL-VOL))/CAPITAL{XG51};
VAR5:=REF(LOW,1)*0.9{XG51};
VAR6:=LOW*0.9{XG51};
VAR7:=(VAR6*VOL+VAR5*(CAPITAL-VOL))/CAPITAL{XG51};
VAR8:=ema(VAR7,30){XG51};
VAR9:=EMA(VAR4,30){XG51};
VARA:=VAR9-2{XG51};
VARB:=IF(CLOSE<=VAR8,VARA,VAR9){XG51};
超跌: VARB*2.5,COLORBLUE{XG51};
Tao:=100*(1-WINNER(C)){XG51};
A:=1.1*C{XG51};
B:=0.9*C{XG51};
asr:=100*(WINNER(A)-WINNER(B)){XG51};
筹码超跌:IF((ASR<10) AND (TAO>90),30,0),COLOR0099FF{XG51};
短中长线超跌:IF((CYS13<(-16)) AND (CYS13>(-100)) AND (CYS34<(-20)) AND (CYS34>(-100)),40,0),COLOR00FF00{XG51};
IF((CYS34<(-20)) AND (CYS34>(-100)) AND (CYSMAX<(-30)) AND (CYSMAX>(-100)),50,0),COLORFFCC00{XG51};
反弹:VARA*2.5,COLORFF00FF{XG51};
风:IF(超跌=反弹 AND CYS13<=-10 AND 筹码超跌=30,-30,0),COLORBLUE,STICK,LINETHICK3{XG51};
云:IF(超跌=反弹 AND CYS13<=-16 AND 筹码超跌=30 AND 短中长线超跌=40,-20,0),COLORWHITE,STICK,LINETHICK3{X.G_5!1.C.N.{};