通达信趋势资金动向未加密选股指标公式源码

源码正文：

和大家分享一下个人优化的指标

AA:=vol/((HIGH-LOW)*2-Abs(CLOSE-OPEN)){XG51};
买量:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+ (CLOSE-LOW)),VOL/2)),LINETHICK0,COLORWHITE{XG51};
卖量:=IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0- AA*(HIGH-LOW),0-VOL/2)),LINETHICK0,COLORGREEN{XG51};
进出量:=买量+卖量,COLOR00FFFF{XG51};
N:=5; M:=13{XG51};
主力资金动向:SUM(进出量,N),LINETHICK4,COLORCYAN{XG51};
红进绿出:IF(主力资金动向>REF(主力资金动向,1),主力资金动向,DRAWNULL),COLORWHITE,LINETHICK4{X-G-5~1-C-N-{};

源码正文：

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^{};