通达信自带指标与dmi结合操盘副图

通达信自带指标与dmi结合操盘副图

源码正文：

VAR1:=ema(Ema(CLOSE,9),9){XG51};
VAR2:=100*WINNER(CLOSE*0.95){XG51};
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000{XG51};
dif:=EMA(CLOSE,12)-EMA(CLOSE,26),NODRAW,COLORRED{XG51};
DEA:=EMA(DIF,9){XG51};
macd:(DIF-DEA)*2,NODRAW{XG51};
TR:=EXPMEMA(MAX(MAX(HIGH-LOW,Abs(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),14){XG51};
HD :=HIGH-REF(HIGH,1){XG51};
LD :=REF(LOW,1)-LOW{XG51};
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),14){XG51};
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),14){XG51};
pdi:= DMP*100/TR{XG51};
mdi:=DMM*100/TR{XG51};
DM:PDI-MDI,COLORRED,NODRAW{XG51};
ADX:EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,6),COLORFF00FF,NODRAW{XG51};
ADXR:EXPMEMA(ADX,6),COLORCYAN,NODRAW{XG51};
加速:IF(DM>0 AND ADXR>REF(ADXR,1) AND ADXR>20,控盘*1.1,DRAWNULL),CIRCLEDOT,COLORWHITE{XG51};
盘升:IF(DM>0 AND ADXR>REF(ADXR,1) AND ADXR<20,控盘*1.2,DRAWNULL),CIRCLEDOT,COLORBLUE{XG51};
空头:IF(控盘>0 AND DM<0,控盘*1.2,DRAWNULL),crOSSDOT,COLORCYAN{XG51};
多头:IF(DM>0 AND ADXR<REF(ADXR,1),控盘*1.2,DRAWNULL),CROSSDOT,COLORWHITE{XG51};
DRAWTEXT(CROSS(ADXR,ADX) AND ADXR>60 AND 控盘>0 AND 控盘<REF(控盘,1),控盘*1.3,'←改'),COLORCYAN{XG51};
DRAWICON(CROSS(MDI,PDI) AND 控盘>0,控盘*1.3,2){XG51};
DRAWTEXT(CROSS(ADXR,ADX) AND ADXR>=20 AND ADXR<60 AND 控盘>0 AND 控盘<REF(控盘,1),控盘*1.3,'←变'),COLORBLUE{XG51};
DRAWTEXT(CROSS(ADXR,ADX) AND ADXR<20 AND DM>0,控盘*1.3,'←变化'),COLORRED{XG51};
stICKLINE(控盘<0 AND 控盘<REF(控盘,1),控盘,0,1.6,0),COLORRED{XG51};
无庄:IF(控盘<0,控盘,0),COLORRED,NODRAW{XG51};
STICKLINE(控盘<0 AND 控盘>REF(控盘,1),控盘,0,1.6,0),COLORFFCC66{XG51};
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,1.6,0),COLORWHITE{XG51};
有庄:IF(控盘>REF(控盘,1) AND 控盘>0,控盘,0),COLORWHITE,NODRAW{XG51};
STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,1.6,0),COLORFF00FF{XG51};
高度:IF(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0),COLORFF00FF,NODRAW{XG51};
STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,1.6,0),COLOR00FF00{XG51};
出货:IF(控盘<REF(控盘,1) AND 控盘>0,控盘,0),COLOR00FF00,NODRAW{XG51};
DRAWTEXT(CROSS(DIF,DEA) AND DIF>0,控盘*1.1,'B'),COLORWHITE{XG51};
DRAWTEXT(CROSS(DEA,DIF) AND DIF>0,控盘*1.1,'S'),COLORCYAN{XG51};
DRAWTEXT(CROSS(DIF,DEA) AND DIF<0,控盘*1.1,'←B'),COLORWHITE{XG51};
DRAWTEXT(CROSS(DEA,DIF) AND DIF<0,控盘*1.1,'←S'),COLORCYAN{XG51};
STICKLINE(ADXR>REF(ADXR,1),控盘*0.382,0,1,0),COLORBLUE{XG51};
STICKLINE(ADXR<REF(ADXR,1),控盘*0.382,0,1,0),COLORYELLOW{XG51};
启动1:=(CROSS(控盘,0) AND DM>0 AND MacD>0) OR (CROSS(DM,0) AND 控盘>0 AND MACD>0) OR (CROSS(MACD,0) AND DM>0 AND 控盘>0){XG51};
启动:IF(启动1,5,0),LINETHICK1,COLORBLUE{X^G~5_1^C^N^{};

通达信主力进场未加密选股指标公式源码

源码正文：

VAR2:=REF(LOW,1){XG51};
VAR3:=SMA(Abs(LOW-VAR2),3,1)/Sma(MAX(LOW-VAR2,0),3,1)*100{XG51};
VAR4:=ema(IF(CLOSE*1.2,VAR3*10,VAR3/10),3){XG51};
VAR5:=LLV(LOW,38){XG51};
VAR6:=HHV(VAR4,38){XG51};
VAR7:=IF(LLV(LOW,90),1,0){XG51};
VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7{XG51};
DD:=VAR8>5{XG51};
买入:=IF((COUNT(DD,2)=2),-20,0){XG51};
VAR1S:=REF((LOW+OPEN+CLOSE+HIGH)/4,1){XG51};
VAR2S:=SMA(ABS(LOW-VAR1S),13,1)/SMA(MAX(LOW-VAR1S,0),10,1){XG51};
VAR3S:=EMA(VAR2S,10){XG51};
VAR4S:=LLV(LOW,33){XG51};
VAR5S:=EMA(IF(LOW<=VAR4S,VAR3S,0),3){XG51};
主力进场:=IF(VAR5S>REF(VAR5S,1),VAR5S,0)*1.1,LINETHICK1,COLOR00FFFF{XG51};
stICKLINE(VAR5S>REF(VAR5S,1),0,VAR5S,4,1 ),COLORWHITE{XG51};
洗盘:=IF(VAR5S<REF(VAR5S,1),VAR5S,0),COLORCYAN{XG51};
低买:IF((crOSS(洗盘,主力进场)AND 买入=-20),100,0),STICK,COLORFF9150,LINETHICK3{X*G-5.1*C*N*{};