通达信DMI黄金分割未加密选股指标公式源码

源码正文：

N:=14{XG51};
M:=6{XG51};
ADXP:=1{XG51};
TR1:= SUM(maX(MAX(HIGH-LOW,Abs(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),N){XG51};
HD := HIGH-REF(HIGH,1){XG51};
LD := REF(LOW,1)-LOW{XG51};
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),N){XG51};
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),N){XG51};
pdi: DMP*100/TR1{XG51};
mdi: DMM*100/TR1{XG51};
ADX: MA(ABS(MDI-PDI)/(MDI+PDI)*100,M){XG51};
ADXR:(ADX+REF(ADX,M))/2{XG51};
CD0:20{XG51};
CD1:40{XG51};
TD0:60{XG51};
TD1:80{XG51};
DRAWTEXT(crOSS( PDI,CD0), CD0,'●金'),COLORLIMAGENTA{XG51};
DRAWTEXT(CROSS( TD0,PDI), PDI,'●死'),COLORYELLOW{XG51};
DRAWTEXT(CROSS( ADX,CD0), CD0,'●金'),COLORLIMAGENTA{XG51};
DRAWTEXT(CROSS( TD0,ADX), ADX,'●死'),COLORYELLOW{XG51};
DRAWTEXT(CROSS( PDI,MDI), MDI,'★金'), COLORBLUE{XG51};
DRAWTEXT(CROSS( MDI,PDI), PDI,'★死'), COLORCYAN{XG51};
DRAWTEXT(CROSS( ADX,ADXP), ADXP,'★金'), COLOR000999 {XG51};
DRAWTEXT(CROSS( ADXP,ADX), ADX,'★死'), COLORGREEN{XG51};
DRAWTEXT(CURRBARSCOUNT=35,80.1,'梦的海洋友情提示：'),COLORBLUE{XG51};
DRAWTEXT(CURRBARSCOUNT=35,76,'PDI线上穿20介入,下破60急出手 '),COLORYELLOW{XG51};
DRAWTEXT(CURRBARSCOUNT=35,69.1,'ADX线上穿20介入,下破60急出手'),COLORGREEN{XG51};
DRAWTEXT(CURRBARSCOUNT=35,64.1,'如果回调幅度在0.618内属强势调整后市方向不会改变'),COLORLIMAGENTA{XG51};
DRAWTEXT(CURRBARSCOUNT=35,59.1,'如果回调超过在0.618后市方向可能逆转：'),COLORYELLOW{XG51};
DRAWTEXT(CURRBARSCOUNT=35,54.1,'如果反弹高度在0.382内属反弹行情后市方向不会改变：'),COLORLIMAGENTA{XG51};
DRAWTEXT(CURRBARSCOUNT=35,50,'如果反弹超过在0.382后市方向可能逆转：'),COLORYELLOW{X=G_5_1=C=N={};

源码正文：

VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21)))){XG51};
VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21)))){XG51};
VAR3:=(100 - ma(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34)){XG51};
DRAWICON(crOSS(VAR2,MA(VAR3,6)),(LOW * 0.998),8){XG51};
DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.013),9){XG51};
DRAWTEXT(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.984),'Ｂ '),COLOR4440FF{XG51};
DRAWTEXT(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.035),'Ｓ '),COLORFFFF34{XG51};
年:MA(CLOSE,26),COLOR00FF00,LINETHICK2{XG51};
stICKLINE(C>=年 AND C>=O,C,O,7,0),COLORWHITE{XG51};
STICKLINE(C>=年 AND C>=O,H,L,0,0),COLORWHITE{XG51};
STICKLINE(C>=年 AND C<O,C,O,7,1),COLORWHITE{XG51};
STICKLINE(C>=年 AND C<O,O,H,0,0),COLORWHITE{XG51};
STICKLINE(C>=年 AND C<O,C,L,0,0),COLORWHITE{XG51};
STICKLINE(C<年 AND C>O,C,O,7,1),COLORFFFF00{XG51};
STICKLINE(C<年 AND C<=O,C,O,7,1),COLORFFFF00{XG51};
STICKLINE(C<年 AND C<=O,H,L,0,1),COLORFFFF00{XG51};
STICKLINE(C<年 AND C>O,C,H,0,1),COLORFFFF00{XG51};
STICKLINE(C<年 AND C>O,O,L,0,1),COLORFFFF00{XG51};
S:=MA(vol,5)/MA(VOL,60),COLORWHITE,,LINETHICK2{XG51};
A:=MA(S,5),COLORCYAN,,LINETHICK2;
bias:=(CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*100;
F:=MA(S,121);
RSV:=(CLOSE-LLV(LOW,45))/(HHV(HIGH,45)-LLV(LOW,45))*100;
K:=SMA(RSV,15,1);
D:=SMA(K,15,1);
J:=3*K-2*D;
LC:=REF(CLOSE,1);
rsi:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(Abs(CLOSE-LC),6,1)*100;
DRAWTEXT(CROSS(84,RSI) , HIGH+0.05,'逃 ▼顶 '),COLORBLUE {XG51};
DRAWTEXT(CROSS(RSI,11) , LOW-0.05,' 低 ▲吸 '),COLORWHITE {XG51};
MID := MA(CLOSE,26);
UPPER:= MID + 2*STD(CLOSE,26);
LOWER:= MID - 2*STD(CLOSE,26);
S1:=IF((J<11 AND BIAS>-11 AND CROSS( S,F) AND (S-F)>0.010),2,0),STICK,LINETHICK3,COLORCYAN;
DRAWTEXT(S1=2,LOW-0.05,'关 ▲注 '), COLORYELLOW{XG51};
DRAWICON( FILTER(CROSS(S,A) AND A<0.5 AND J<20,13),LOW,1 ){XG51};
MA3:MA(CLOSE,3),COLORFFFFFF,LINETHICK1{XG51};
MA8:MA(CLOSE,8),COLOR00FFFF,LINETHICK1{XG51};
MA1000:MA(CLOSE,1000),COLORF00FF0,LINETHICK1{XG51};
MA2000:MA(CLOSE,2000),COLOR00FF00,LINETHICK1{XG51};
MA2500:MA(CLOSE,2500),COLOR00FFFF,LINETHICK1{XG51};
ANGEL:ema(C,2),COLOR000000{XG51};
DEVIL:EMA(SLOPE(C,21)*20+C,42),POINTDOT,COLOR000000{XG51};
BUY:=CROSS(ANGEL,DEVIL){XG51};
SEL:=CROSS(DEVIL,ANGEL){XG51};
DRAWTEXT(BUY,LOW*0.98,'A买'),COLORF00FF0,LINETHICK2{XG51};
DRAWTEXT(SEL,HIGH*1.02,'V卖'),COLOR00FF00,LINETHICK2{XG51};
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,9,0),COLORFF5B00{XG51};
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,8,0),COLORFF6C00{XG51};
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,7,0),COLORFF7B00{XG51};
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,6,0),COLORFF9C00{XG51};
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,5,0),COLORFFBE00{XG51};
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,3.5,0),COLORFFCC00{XG51};
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,1.5,0),COLORFFFF00{XG51};
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,9,0),COLOR070084{XG51};
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,8,0),COLOR0000A3{XG51};
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,7,0),COLOR0000B7{XG51};
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,6,0),COLOR0000CD{XG51};
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,5,0),COLOR0000E9{XG51};
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,3,0),COLOR0754E9{XG51};
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,1.5,0),COLOR076EF3{XG51};
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,1,0),COLOR077BF3{XG51};
STICKLINE((CLOSE > OPEN),OPEN,LOW,1,0),COLOR0726CA{XG51};
STICKLINE((CLOSE > OPEN),CLOSE,HIGH,1,0),COLOR0726CA{XG51};
STICKLINE((OPEN > CLOSE),CLOSE,LOW,1,0),COLORDE9100{XG51};
STICKLINE((OPEN > CLOSE),OPEN,HIGH,1,0),COLORDE9100{X*G-5.1*C*N*{};