通达信妖股狙击主图未加密选股指标公式源码

通达信妖股狙击主图未加密选股指标公式源码

源码正文：

涨停:=IF(REF(C,1)*1.1-C<0.01 ,1,0){XG51};
stICKLINE(涨停,OPEN,CLOSE,3,0),COLORWHITE{XG51};
STICKLINE(涨停,OPEN,CLOSE,1,0),COLORBLUE{XG51};
STICKLINE(涨停,H,L,0,0),COLORBLUE{XG51};
B1:='┄┄┄┄┄'{XG51};
B3:='┄┄┄┄┄'{XG51};
DRAWTEXT((O+C)/2 AND 涨停,(O+C)/2 ,B3),COLORmaGENTA{XG51};
B2:='┄┄┄┄┄'{XG51};
DRAWTEXT(涨停,L,B2),COLORBROWN{XG51};
支撑线:(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4,NODRAW{XG51};
除业绩后退股:=FINANCE(30)>=REF(FINANCE(30),130){XG51};
D0:=除业绩后退股{XG51};
D2:=IF(NAMELIKE('S'),0,1){XG51};
D3:=IF(NAMELIKE('*'),0,1){XG51};
D4:=DYNAINFO(17)>0{XG51};
去除大盘股:=CAPITAL/1000000<50{XG51};
去高价:=C<=75{XG51};
去掉:=D0 AND D2 AND D3 AND D4 AND 去除大盘股 AND 去高价 AND NOT(C>=REF(C,1)*1.097 AND C=O AND H=L){XG51};
MA5:=ema(C,5){XG51};
YCXN:=MA5>=REF(MA5,1){XG51};
AA1:=REF(CLOSE,1)<(LLV(LOW,10)+(HHV(HIGH,10)-LLV(LOW,10))*1){XG51};
AA2:=CLOSE<HHV(HIGH,5) AND crOSS(C,MA(C,5)) AND CROSS(C,MA(C,10)) AND CROSS(C,MA(C,20))
AND CROSS(C,MA(C,34)) AND C/REF(C,1)>=1{XG51};
AA3:=CLOSE>=HHV(HIGH,5) AND YCXN AND C/REF(C,1)>=1{XG51};
涨停狙击:=DYNAINFO(4)>0
AND HHV(HIGH,5)/LLV(LOW,5)<3.4 AND AA1 AND (AA2 OR AA3){XG51};
L0:=(LLV(LOW,10)){XG51};
L10:=(LLV(LOW,60)){XG51};
L2:=(LLV(LOW,120)){XG51};
A1:=REF(CLOSE,1){XG51};
B10:=COUNT(L10,13)>=8{XG51};
B20:=SUM(L10,13)>=6{XG51};
B30:=COUNT(-B20,13)>=10{XG51};
B4:=1{XG51};
B5:=COUNT(B20,13)>=1{XG51};
C1:=(((CLOSE-A1)/A1)*100)>2.5{XG51};
D10:=(((CLOSE-LOW)/LOW)*100)>2{XG51};
火牛:=IF((D10 AND L2 AND C1)*2,10,0){XG51};
金牛:=IF((D10 AND L0 AND C1)*2.5,10,0){XG51};
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1){XG51};
NN:=IF((陡峭度 > 0.35),6,65){XG51};
VAR17:=((-((100)*(HHV(HIGH,NN) - CLOSE))/(HHV(HIGH,NN) - LLV(LOW,NN))))*((DATE < 20070110)){XG51};
狂喜:=(30)*(CROSS(VAR17,(-2))){XG51};
最牛妖股:=EMA((CLOSE-MA((2*CLOSE+HIGH+LOW)/4,3))/MA((2*CLOSE+HIGH+LOW)/4,3)*150,2){XG51};
XG:=CROSS(最牛妖股,3){XG51};
黑马显形:=金牛 AND 火牛 AND 涨停狙击 AND 狂喜 AND 去掉{XG51};
DRAWTEXT(黑马显形,LOW,'妖股'),COLORCYAN{XG51};
AA05:MA(C,5),LINETHICK3,COLOR00CCFF{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),LINETHICK3,COLORWHITE{XG51};
AA10:MA(C,10);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),LINETHICK3,COLORCYAN{XG51};
AA30:MA(C,30){XG51};
三拾日乖离率:(C-AA30)/AA30*100,NODRAW{XG51};
VAR1:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1){XG51};
VAR2:=(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};
IF(BB30>15 AND AA30>REF(AA30,1), AA30,DRAWNULL),LINETHICK3,COLORFF00FF{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,'←加仓'),COLORWHITE{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.98,'←买入'),COLORBLUE{XG51};
DRAWTEXT(清仓 ,HIGH*1.02,'←清仓'),COLORCYAN{XG51};
DRAWTEXT(强势狙击,LOW*0.98,'←强势狙击'),COLORBLUE{XG51};
VAR21:=MAX(Abs(HIGH-AMOUNT/vol/100),ABS(AMOUNT/VOL/100-LOW)){XG51};
VAR3:=ABS((OPEN+CLOSE)/2-AMOUNT/VOL/100){XG51};
MV:=(VAR21+VAR3)/AMOUNT*VOL*100*50{X.G!5_1.C.N.{};

通达信MACD豪华版合集未加密选股指标公式源码

源码正文：

dif:macd.DIF,COLORBLACK;
DEA:maCD.DEA,COLORBLUE;
强度:IF(DIF>DEA,DIF,DRAWNULL),COLORWHITE{XG51};
强度1:IF(DEA<DIF,DEA,DRAWNULL),COLORLIMAGENTA;
MacD:(DIF-DEA)*2,COLORstICK{XG51};
MACD2:=MACD{XG51};
MJ:=MACD{XG51};
S05:=SUM(MJ,0){XG51};
QST:=BArslAST(MJ<0 AND REF(MJ,1)>0)+1{XG51};
QXT:=BARSLAST(MJ>0 AND REF(MJ,1)<0)+1{XG51};
S5:=IF(MJ>0,S05-REF(S05,BARSLAST(MJ<0)),S05-REF(S05,BARSLAST(MJ>0)))/10{XG51};
ST:=IF(MJ>0,REF(QST,QXT)+QXT,REF(QXT,QST)+QST){XG51};
RS5:=REF(S5,ST){XG51};
低位金叉:=crOSS(DIF,DEA) AND DIF<-0.1;
JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
DRAWICON(二次金叉,0,25){XG51};
三次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=3,60)=1;
DRAWICON(三次金叉,0,26){XG51};
A002:=BARSLAST(REF(CROSS(DIF,DEA),1)){XG51};
底背离:=REF(CLOSE,A002+1)>CLOSE AND DIF>REF(DIF,A002+1) AND CROSS(DIF,DEA){XG51};
DRAWICON(LONGCROSS(CLOSE,MA(CLOSE,5),17),MACD2,1){XG51};
DRAWTEXT(二次金叉>低位金叉,DIF,'金2'),COLORWHITE{XG51};
C81:=REF(C,1){XG51};
RN:=9{XG51};
RSI1:=SMA(MAX(C-C81,0),RN,1)/SMA(Abs(C-C81),RN,1)*100{XG51};
低点:=CROSS(RSI1,20){XG51};
STICKLINE(低点,0.1,0,0.3,0),COLORBLUE{XG51};
DRAWICON(低点, 0.15,1){XG51};
DRAWTEXT(低点, 0.14,'←底'),COLORBLUE{XG51};
顶:=CROSS(80,RSI1){XG51};
DRAWICON(顶, DIF*1.15,2){XG51};
DRAWTEXT(顶, DIF*1.1,'←减/清仓'),COLORCYAN{XG51};

死叉:=CROSS(DEA,DIF){XG51};
N1:=BARSLAST(死叉),NODRAW{XG51};
N2:=REF(BARSLAST(死叉),N1+1),NODRAW{XG51};
N3:=REF(BARSLAST(死叉),N2+N1+2),NODRAW{XG51};
CL1:=LLV(C,N1+1),NODRAW{XG51};
DIFL1:=LLV(DIF,N1+1),NODRAW{XG51};
CL2:=REF(CL1,N1+1),NODRAW{XG51};
DIFL2:=REF(DIFL1,N1+1),NODRAW{XG51};
CL3:=REF(CL2,N1+1),NODRAW{XG51};
DIFL3:=REF(DIFL2,N1+1),NODRAW{XG51};
pdiFL2:=IF(DIFL2>0,INTPART(LOG(DIFL2))-1,INTPART(LOG(-DIFL2))-1){XG51};
mdiFL2:=INTPART(DIFL2/POW(10,PDIFL2)){XG51};
PDIFL3:=IF(DIFL3>0,INTPART(LOG(DIFL3))-1,INTPART(LOG(-DIFL3))-1){XG51};
MDIFL3:=INTPART(DIFL3/POW(10,PDIFL3)){XG51};
MDIFB2:=INTPART(DIF/POW(10,PDIFL2)){XG51};
MDIFB3:=INTPART(DIF/POW(10,PDIFL3)){XG51};
直接底背离:=(CL1<CL2 ) AND (MDIFB2>MDIFL2) AND (MACD<0 AND REF(MACD,1)<0) AND MDIFB2<=REF(MDIFB2,1){XG51};
隔峰底背离:=(CL1<CL3 AND CL3<CL2 ) AND (MDIFB3>MDIFL3) AND (MACD<0 AND REF(MACD,1)<0) AND MDIFB3<=REF(MDIFB3,1){XG51};
B6:直接底背离 OR 隔峰底背离,NODRAW{XG51};
BG:((MDIFB2>REF(MDIFB2,1))*REF(直接底背离,1)) OR ((MDIFB3>REF(MDIFB3,1))*REF(隔峰底背离,1)),NODRAW{XG51};
底背离消失:=(REF(直接底背离,1) AND DIFL1<=DIFL2 ) OR (REF(隔峰底背离,1) AND DIFL1<=DIFL3){XG51};
DRAWTEXT(TFILTER(B6,MACD>0,1),(DIF+MACD),'钝化'),COLORWHITE{XG51};
STICKLINE(B6 OR BG,DIF,DEA,1,-1),COLORWHITE{XG51};
DRAWTEXT(TFILTER(底背离消失,B6,1),(DIF+MACD),'消失'),COLORBLUE{XG51};
DRAWTEXT(TFILTER(BG,MACD>0,1),DIF*1.1,'M底背'),COLORLIMAGENTA{XG51};
金叉:=CROSS(DIF,DEA){XG51};
M1:=BARSLAST(金叉),NODRAW{XG51};
M2:=REF(BARSLAST(金叉),M1+1),NODRAW{XG51};
M3:=REF(BARSLAST(金叉),M2+M1+2),NODRAW{XG51};
CH1:=HHV(C,M1+1),NODRAW{XG51};
DIFH1:=HHV(DIF,M1+1),NODRAW{XG51};
CH2:=REF(CH1,M1+1),NODRAW{XG51};
DIFH2:=REF(DIFH1,M1+1),NODRAW{XG51};
CH3:=REF(CH2,M1+1),NODRAW{XG51};
DIFH3:=REF(DIFH2,M1+1),NODRAW{XG51};
PDIFH2:=IF(DIFH2>0,INTPART(LOG(DIFH2))-1,INTPART(LOG(-DIFH2))-1){XG51};
MDIFH2:=INTPART(DIFH2/POW(10,PDIFH2)){XG51};
PDIFH3:=IF(DIFH3>0,INTPART(LOG(DIFH3))-1,INTPART(LOG(-DIFH3))-1){XG51};
MDIFH3:=INTPART(DIFH3/POW(10,PDIFH3)){XG51};
MDIFT2:=INTPART(DIF/POW(10,PDIFH2)){XG51};
MDIFT3:=INTPART(DIF/POW(10,PDIFH3)){XG51};
直接顶背离:=(CH1>CH2 ) AND (MDIFT2<MDIFH2) AND (MACD>0 AND REF(MACD,1)>0) AND MDIFT2>=REF(MDIFT2,1){XG51};
隔峰顶背离:=(CH1>CH3 AND CH3>CH2 ) AND (MDIFT3<MDIFH3) AND (MACD>0 AND REF(MACD,1)>0) AND MDIFT3>=REF(MDIFT3,1){XG51};
T6:直接顶背离 OR 隔峰顶背离,NODRAW{XG51};
TG:((MDIFT2<REF(MDIFT2,1))*REF(直接顶背离,1)) OR ((MDIFT3<REF(MDIFT3,1))*REF(隔峰顶背离,1)),NODRAW{XG51};
顶背离消失:=(REF(直接顶背离,1) AND DIFH1>=DIFH2 ) OR (REF(隔峰顶背离,1) AND DIFH1>=DIFH3){XG51};
DRAWTEXT(TFILTER(T6,MACD<0,1),(DIF+MACD),'钝化'),COLORCYAN{XG51};
DRAWTEXT(TFILTER(顶背离消失,T6,1),(DIF+MACD),'消失'),COLORBLUE{XG51};
STICKLINE(T6 OR TG,DIF,DEA,1,-1),COLORLIBLUE{XG51};
DRAWTEXT(TFILTER(TG,MACD<0,1),DIF*1.02,'M顶背'),COLORLIMAGENTA{XG51};
{XG51};
A001:=C>REF(C,4){XG51};
NT:=BARSLASTCOUNT(A001){XG51};
TJ11:=NT=9{XG51};
TJ13:=ISLASTBAR AND BETWEEN(NT,5,8){XG51};
AY:=(BACKSET(TJ11>0,9)OR BACKSET(TJ13>0,NT))*NT{XG51};
DRAWTEXT(AY>0,MACD*1.02,VAR2STR(AY,0)),COLORLICYAN{XG51};
DRAWTEXT(NT=9,MACD*1.02,'9'),COLORCYAN{XG51};
B001:=C<REF(C,4){XG51};
NT0:=BARSLASTCOUNT(B001){XG51};
TJ21:=NT0=9{XG51};
TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8){XG51};
AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0{XG51};
DRAWTEXT(AY1>0,MACD*0.98,VAR2STR(AY1,0)),COLORCYAN{XG51};
DRAWTEXT(NT0=9,MACD*0.98,'9'),COLORWHITE{XG51};
{XG51};
TRR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14){XG51};
HD := HIGH-REF(HIGH,1){XG51};
LD := REF(LOW,1)-LOW{XG51};
PDM:= SUM(IF(HD>0 AND HD>LD,HD,0),14){XG51};
MDM:= SUM(IF(LD>0 AND LD>HD,LD,0),14){XG51};
PDI:= PDM*100/TRR{XG51};
MDI:= MDM*100/TRR{XG51};
A1:=BARSLAST(REF(CROSS("MACD.DIF"(12,26,9),"MACD.DEA"(12,26,9)),1)){XG51};
B1:=REF(C,A1+1)>C AND REF("MACD.DIF"(12,26,9),A1+1)<"MACD.DIF"(12,26,9) AND CROSS("MACD.DIF"(12,26,9),"MACD.DEA"(12,26,9)){XG51};
A2:=BARSLAST(REF(CROSS("kdj.K"(9,3,3),"kdJ.D"(9,3,3)),1)){XG51};
B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)){XG51};
A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1)){XG51};
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)){XG51};
C1:=BARSLAST(REF(CROSS("MACD.DEA"(12,26,9),"MACD.DIF"(12,26,9)),1)){XG51};
D1:=REF(C,C1+1)<C AND REF("MACD.DIF"(12,26,9),C1+1)>"MACD.DIF"(12,26,9) AND CROSS("MACD.DEA"(12,26,9),"MACD.DIF"(12,26,9)){XG51};
C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1)){XG51};
D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)){XG51};
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1)){XG51};
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)>"RSI.RSI1"
AND CROSS("RSI.RSI2","RSI.RSI1"){XG51};
DRAWTEXT(B2>0,DIF*1.2,'K底'),COLORFF00FF{XG51};
DRAWTEXT(D2>0,DIF*1.2,'K顶'),COLORFFCC66{XG51};
DRAWTEXT(B3>0,DIF*1,'R底'),COLORBLUE{XG51};
DRAWTEXT(D3>0,DIF*1,'R顶'),COLORFFFFFF{XG51};
TDJ1:=(H-L)/REF(C,1)>0.05{XG51};
YUL1:=COUNT(TDJ1,5)>1{XG51};
TU1:=CLOSE/MA(C,40)<0.74{XG51};
启动1:=TDJ1 AND YUL1 AND TU1{XG51};
ZC:=REF(CLOSE,1){XG51};
VAR1:=SMA(MAX(CLOSE-ZC,0),7,1)/SMA(ABS(CLOSE-ZC),7,1)*100{XG51};
VAR2:=((MA(C,30)-LOW)/MA(C,60))*200{XG51};
GL1:=FILTER(REF(VAR1,1)<20 AND VAR1>REF(VAR1,1),5){XG51};
波段1:=FILTER(GL1 AND REF(启动1,1) AND VAR2>20 AND C>REF(C,1),10){XG51};
MA5:=ema(C,5){XG51};
EM5:=EMA(MA5,5){XG51};
VAR3:=ABS(MA5-EM5){XG51};
VAR4:=MA5-REF(MA5,1){XG51};
VAR5:=VAR4-REF(VAR4,1){XG51};
VAR6:=(VAR4+VAR5)/2{XG51};
TDF1:=POW(VAR3,1)*POW(VAR6,3){XG51};
NTDF1:=TDF1/HHV(ABS(TDF1),15){XG51};
确定1:=波段1 AND CROSS(NTDF1,-0.05){XG51};
选股1:=FILTER(REF(启动1,1) AND (确定1 OR C>REF(C,1)) AND "MACD.MACD"(12,26,9)>-1.5,10){XG51};
卧底1:(COUNT(选股1,13)>=1 AND (波段1 OR 确定1))*0.4,COLORWHITE{XG51};
DRAWTEXT(卧底1=0.4,0.3,'←卧底'),COLORWHITE{XG51};
A882:=(C - REF(C,1)) / REF(C,1) * 100{XG51};
A883:=COUNT(A882 > 8,120){XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.2,0,0,A883),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0,0,'【关注级别大的股票】 '),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.13,0,0,'级: '),COLORBLUE{X^G*5.1^C^N^{};