通达信趋向DMI未加密选股指标公式源码

源码正文：

DRAWBAND(20,RGB(0,80,120),0,RGB(0,200,0)){XG51};
DRAWBAND(95,RGB(0,200,0),100,RGB(0,200,0)){XG51};
DRAWTEXT_FIX(1,0.8,0.1,0,'绿头底部，翻红转势'),COLORRED{XG51};
MTR:=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/MTR{XG51};
mdi:=DMM*100/MTR{XG51};
ADX:=EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,6){XG51};
ADXR:=EXPMEMA(ADX,6){XG51};
DRAWBAND(ADX,RGB(250,0,00),ADXR,RGB(100,80,200)){XG51};
MDI1:DMM*100/MTR,COLORCYAN{XG51};
98{XG51};
黑:IF(ADX<20,19,0){XG51};
40{XG51};
60{XG51};
DRAWBAND(19,RGB(0,200,00),MDI1,RGB(0,200,0)){XG51};
DRAWBAND(19,RGB(0,0,00),黑,RGB(0,0,0)){XG51};
PDI1:DMP*100/MTR,LINETHICK2,COLORBLUE{XG51};
神奇筹码:EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3),NODRAW{XG51};
主力筹:=WINNER(C)*100,NODRAW{XG51};
散户筹:=(WINNER(C*1.1)-WINNER(C*0.9))*100,NODRAW{XG51};
stICKLINE(神奇筹码>散户筹,21,40,0.5,0),COLORWHITE{XG51};
STICKLINE(主力筹>散户筹,41,60,0.5,0),COLORLIMAGENTA{XG51};
STICKLINE(神奇筹码>50,61,80,0.5,0),COLORYELLOW{XG51};
STICKLINE(主力筹>80 AND 散户筹<REF(散户筹,1),81,100,0.5,0),COLORBLUE{XG51};
LC:=REF(C,1){XG51};
rsi1:=SMA(MAX(C-LC,0),6,1)/SMA(ABS(C-LC),6,1)*100{XG51};
RSI2:=HHV(FORCAST(RSI1,7),14),COLORLIGREEN{XG51};
HJ_1:=HHV(FORCAST(RSI1,7),28){XG51};
STICKLINE(RSI1>RSI2,RSI2,RSI1,3,0),COLORRED{X?G!5~1?C?N?{};

源码正文：

B1:=ma(C,1){XG51};
B2:=SMA(SMA(SMA(B1,2,1),2,1),2,1){XG51};
SMA2:=MA(B2,3){XG51};
停损下限:IF(LLV(MA(B2,8),3)<B2,LLV(MA(B2,8),3),B2){XG51};
IF(B2>SMA2,B2,DRAWNULL),COLORWHITE,LINETHICK4{XG51};
IF(B2<SMA2,B2,DRAWNULL),COLORCYAN,LINETHICK4{XG51};
SnaKEA:HHV(MA(B2,1),13),COLORBLUE{XG51};
VAR1A:=(2*CLOSE+HIGH+LOW)/4{XG51};
VAR2A:=MA(VAR1A,7){XG51};
VAR3A:=VAR2A-MA(VAR1A,7/2)<0{XG51};
VAR4A:=VAR2A-MA(VAR1A,7/2)>0{XG51};
VAR5A:=BArslAst(VAR3A){XG51};
VAR6A:=0-BARSLAST(VAR4A){XG51};
VAR7A:=IF(VAR3A<=0,VAR5A,VAR6A){XG51};
STICKLINE(SNAKEA>B2 AND B2>SMA2,SNAKEA,B2,0,0),COLORYELLOW{XG51};
STICKLINE(SNAKEA>SMA2 AND B2<SMA2,SNAKEA,SMA2,0,0),COLORYELLOW{XG51};
VAR11A:=(CLOSE*2+HIGH+LOW)/4{XG51};
VAR21A:=ema(VAR11A,13)-EMA(VAR11A,34){XG51};
VAR31A:=EMA(VAR21A,5){XG51};
VAR2:=((CLOSE > REF(CLOSE,1)) AND (CLOSE > REF(CLOSE,2))){XG51};
VAR3:=((REF(VAR2,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VAR4:=((REF(VAR3,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR5:=((REF(VAR4,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VAR6:=((REF(VAR5,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR7:=((REF(VAR6,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VAR8:=((REF(VAR7,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR9:=((REF(VAR8,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VARA:=((REF(VAR9,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VARB:=((REF(VARA,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VARC:=((REF(VARB,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VARD:=((REF(VARC,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VARE:=((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,2))){XG51};
VARF:=((REF(VARE,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR10:=((REF(VARF,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VAR11:=((REF(VAR10,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR12:=((REF(VAR11,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VAR13:=((REF(VAR12,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR14:=((REF(VAR13,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VAR15:=((REF(VAR14,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR16:=((REF(VAR15,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VAR17:=((REF(VAR16,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR18:=((REF(VAR17,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VAR19:=((REF(VAR18,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR1B:=(REF((((((((((((VARE OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18) OR VAR19),1) AND VAR2){XG51};
STICKLINE(VAR1B,O,O+(C-O)/3,2,0),COLOR10FFFF{XG51};
STICKLINE(VAR1B,O,O+(C-O)/3,1,0),COLOR00FFFF{XG51};
AA:=(REF((((((((((((VAR2 OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC) OR VARD),1) AND VARE){XG51};
STICKLINE(AA,O,O+(C-O)/3,2,0),COLOR00EE00{XG51};
STICKLINE(AA,O,O+(C-O)/3,1,0),COLOR00FF00{XG51};
A13:=EMA(CLOSE,55){XG51};
A14:=MA(CLOSE,75){XG51};
A15:=EMA(A14,3){XG51};
A16:=EMA(A15,3){XG51};
A17:=(HIGH + LOW) / 5{XG51};
A18:=(MA(A17,4)) - (MA(A17,34)){XG51};
A19:=crOSS(A18,0){XG51};
A20:=CROSS(0,A18){XG51};
A21:=BARSLAST(A19){XG51};
A22:=BARSLAST(A20){XG51};
A23:=REF(A19,1){XG51};
A24:=REF(A20,1){XG51};
A25:=BARSLAST(A23){XG51};
A26:=BARSLAST(A24){XG51};
A27:=IF((A25 < A26),(REF((HHV(HIGH,2)),A25)),(REF((LLV(LOW,2)),A26))){XG51};
A28:=(((REF(CLOSE,1)) <= (REF(A27,1))) AND (CLOSE > A27)) AND (A21 < A22){XG51};
A29:=(((REF(CLOSE,1)) >= (REF(A27,1))) AND (CLOSE < A27)) AND (A22 < A21){XG51};
A30:=A28 AND ((COUNT(A28,A21)) = 1){XG51};
A31:=A29 AND ((COUNT(A29,A22)) = 1){XG51};
A32:=A30 AND ((REF(BARSLAST(A31),1)) < (REF(BARSLAST(A30),1))){XG51};
A33:=A31 AND ((REF(BARSLAST(A31),1)) > (REF(BARSLAST(A30),1))){XG51};
DRAWTEXT(A32,SMA2*0.99,'←═买入'),COLORBLUE{XG51};
ac:=AMOUNT/(vol){XG51};
YY:=MA(AC,13){XG51};
LLL:=(C-YY)/YY*100{XG51};
MIDC := MA(CLOSE,22){XG51};
UPPERC:= MIDC + 2*STD(C,22){XG51};
LOWERC:= MIDC - 2*STD(C,22){XG51};
BBA:=(C-LOWERC)/(UPPERC-LOWERC){XG51};
BBC:=FORCAST(BBA,3){XG51};
LIFENGcyc:=(REF(LLL,1)<-15 AND REF(BBA,1)<0 AND LLL>REF(LLL,1)){XG51};

STICKLINE(LIFENGCYC>0,C,O,2,0),COLOR10ABFF{XG51};
DRAWTEXT(LIFENGCYC>0,LOW*0.99,'☆'),COLORDD00DD{X_G~5-1_C_N_{};