顶底DMI(通达信)

顶底DMI(通达信)

源码正文：

dmi趋势指标是最经典的指标之一，在逃顶抄底方面有独特之处。可补kdj钝化之不足。但普通小散难以掌握。我按照邱一平大师的意思修改了参数，并加上 “抄底”“逃顶”的提示。希望对小散有帮助。
TR:=ema(maX(MAX(HIGH-LOW,Abs(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),7){XG51};
HD :=HIGH-REF(HIGH,1){XG51};
LD :=REF(LOW,1)-LOW{XG51};
DMP:=EMA(IF(HD>0 AND HD>LD,HD,0),7){XG51};
DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),7){XG51};
pdi: DMP*100/TR{XG51};
mdi: DMM*100/TR{XG51};
ADX: EMA(ABS(MDI-PDI)/(MDI+PDI)*100,7){XG51};
ADXR:EMA(ADX,7){XG51};
抄底1:COUNT(PDI<MDI,3)=3 AND REF(ADX>50,1) AND REF(ADX,1)>=REF(ADX,2) AND
ADX<REF(ADX,1){XG51};
逃顶1:=COUNT(PDI>MDI,3)=3 AND REF(ADX>50,1) AND REF(ADX,1)>=REF(ADX,2) AND
ADX<REF(ADX,1){XG51};
五十:50{XG51};
三十:30{XG51};
二十:20{XG51};
DRAWTEXT(抄底1,PDI,'抄底'){XG51};
DRAWTEXT(逃顶1,ADX,'逃顶');

用法： 1、PDI由下往上交叉NDI，为买进讯号。
2、PDI由上往下交叉NDI，为卖出讯号。
3、ADX脱离20～30之间往上爬升时，不论当时的价格正往上涨或者往下跌，都可以认定，将产生一段有相当幅度的上涨（下跌）行情。
4、ADX位于PDI的下方，特别在20以下时，代表股价已经陷入泥沼，处于沉闷的整理期，此时，应退出市场观望。
*注意！投资人身处股林中，不可好战、恋战、久战，只能在趋势明显的行情里加入战局，一旦战况混沌不清时，应该毫不犹豫的退出市场，避免造成坐困愁城的窘境。
5、ADX一旦高于50以上，忽然转弯向下反折，此时，不论股价正在上涨或者下跌，都代表行情即将反转。
6、当PDI相交之后，ADX会随后交叉ADXR，代表一种特殊的意义？如果你错过了PDI交叉讯号，别急！这个讯号提供你最后一次下手的机会。

{X_G+5-1_C_N_{}

神秘乾坤主图源码(通达信)

源码正文：

参数：

源码：
ma1:MA(CLOSE,M1),COLOR0000FF{XG51};
MA2:MA(CLOSE,M2){XG51};
MA3:MA(CLOSE,M3){XG51};
MA4:MA(CLOSE,M4){XG51};
MA5:MA(CLOSE,M5){XG51};
MA6:MA(CLOSE,M6){XG51};
A:=BARSCOUNT(CLOSE){XG51};
AH:=HHV(HIGH,200){XG51};
AL:=LLV(LOW,200){XG51};
B0:=(AH-AL)/40{XG51};
B1:=HIGH+B0{XG51};
B2:=LOW-B0{XG51};
DRAWTEXT((A+0)/34=FLOOR((A+0)/34),B2-2.2*B0*1.1,'←窗,变盘'),COLORWHITE{XG51};
LC:=REF(CLOSE,1){XG51};
rsi:=SMA(MAX(CLOSE-LC,0),4.1,1)/SMA(Abs(CLOSE-LC),4.1,1)*100{XG51};
DRAWICON(crOSS(RSI,11) ,L*0.99,3){XG51};
VAR28:=SMA(MAX(CLOSE-LC,0),5.5,1)/SMA(ABS(CLOSE-LC),6,1)*100{XG51};
DRAWTEXT(FILTER(ema(CLOSE,60)-EMA(CLOSE,12)>0 AND EMA(CLOSE,12)/LOW>1.15,5),LOW,'买'),COLORFF00FF{XG51};
VARA:=((AMOUNT)/(vol))/(100){XG51};
VARB:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7){XG51};
VARC:=((SUM(AMOUNT,7))/(VARA))/(100){XG51};
VARD:=dma(VARB,(VOL)/(VARC)){XG51};
VARE:=((CLOSE-VARD)/(VARD))*(100){XG51};
VARF:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100){XG51};
VARJ:=MA(VARE,20)+stD(VARE,20){XG51};
bias18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100){XG51};
AA:=SMA(VARF,3,1){XG51};
SS:=(REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>79){XG51};
V7:=IF(CURRBARSCOUNT=1,VOL*240/FROMOPEN/REF(VOL,1)-1,VOL/REF(VOL,1)-1){XG51};
STICKLINE(V7>=1,O,C,1,0),COLORBLUE{XG51};
LC1:=REF(CLOSE,1){XG51};
RSI1:=((SMA(MAX((CLOSE - LC1),0),3,1) / SMA(ABS((CLOSE - LC1)),3,1)) * 100){XG51};
FF:=EMA(CLOSE,3){XG51};
MA15:=EMA(CLOSE,21){XG51};
DRAWTEXT(CROSS(FF,MA15),(LOW * 0.85),'←底背离'),COLORBLUE{XG51};
AA1:=(HHV(HIGH,20) - (2 * ATR)){XG51};
BB:=CROSS(CLOSE,REF(HHV(HIGH,55),1)){XG51};
SSS:=CROSS(MIN(MA(CLOSE,13),AA1),CLOSE){XG51};
BBB:=BArslAST(BB){XG51};
SSSB:=BARSLAST(SSS){XG51};
B11:=((BBB = 0) AND (REF(SSSB,1) < REF(BBB,1))){XG51};
B1B:=BARSLAST(B11){XG51};
B21:=((((BB = 1) AND (B1B < SSSB)) AND (B1B > 0)) AND (COUNT(BB,SSSB) < 3)){XG51};
B2B:=BARSLAST(B21){XG51};
B3:=((((BB = 1) AND (B2B < B1B)) AND (COUNT(BB,SSSB) < 4)) AND (COUNT(BB,SSSB) > 2)){XG51};
VAR2S:=(2*CLOSE+HIGH+LOW)/4{XG51};
VAR3S:=IF(YEAR>=2099 AND MONTH>2,0,1){XG51};
VAR4S:=LLV(LOW,5); VAR5S:=HHV(HIGH,4){XG51};
散户:=EMA((VAR2S-VAR4S)/(VAR5S-VAR4S)*100,4)*VAR3S{XG51};
庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR3S{XG51};
DRAWTEXT(CROSS(散户,庄家) AND 散户<30,L-0.05,'←吸'),COLORWHITE{XG51};
MA20:=MA(C,20){XG51};
MA90:=MA(C,90){XG51};
Y1:=BARSLAST(CROSS(MA5,MA20)) AND MA5>MA20{XG51};
Y2:=Y1 AND BARSLAST(CROSS(MA5,MA90)){XG51};
Y3:=Y2 AND CROSS(MA20,MA90){XG51};
STICKLINE(Y3,O,C,3,0),COLORBLUE{XG51};
DRAWTEXT(Y3,L-0.40,'←黑马'),COLORRED{XG51};
F0:=BARSLAST(CROSS(MA(C,5),MA(C,90))){XG51};
F1:=F0 AND BARSLAST(CROSS(MA(C,20),MA(C,90))){XG51};
F2:=F1 AND CROSS(MA(C,5),MA(C,20)) AND MA(C,20)>MA(C,90){XG51};
DRAWICON(F2,L-0.10,1){XG51};
DRAWTEXT(F2,L-0.40,'←黑马'),COLORFF00FF{XG51};
M:=OPEN{XG51};
M1:=MA(C,1){XG51};
M2:=REF(M1,1){XG51};
M3:=REF(M2,1){XG51};
保护价:(M2+M3+M)/3,COLORRED,LINETHICK0{XG51};
STICKLINE(L<EMA(EMA(L,8),6)*0.799,B2,B2-0.8*B0,3,0),COLORBLUE{XG51};
波动回调提示图:=MA(CLOSE,10000){XG51};
DRAWICON(CROSS(FF,MA15),(LOW -0.49),9){XG51};
VAR1:=1{XG51};
VAR2:=LLV(LOW,10){XG51};
VAR3:=HHV(HIGH,25){XG51};
X:=EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),68){XG51};
Y:=EMA(CLOSE,10){XG51};
LL:=REF(CLOSE,2){XG51};
MM:=((SMA(MAX((CLOSE - LL),0),6,1) / SMA(ABS((CLOSE - LL)),6,1)) * 100){XG51};
DB:=IF(((MM < REF(MM,1)) AND (MM > 79)),MM,0){XG51};
DRAWTEXT(CROSS(Y,X),(LOW * 0.985),'▲'),LINETHICK2,COLORWHITE{XG51};
DRAWTEXT(CROSS(X,Y),(HIGH * 1.02),'◆'),LINETHICK2,COLOR00FF00{XG51};
DRAWTEXT(DB,(HIGH * 1.02),'●'),LINETHICK2,COLOR00FF00{XG51};
VAR11:=LLV(LOW,21){XG51};
VAR21:=HHV(HIGH,21){XG51};
AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5){XG51};
AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13){XG51};
DD:=EMA(((0.667 * REF(AK1,1)) + (0.333 * AK1)),2){XG51};
VAR31:=LLV(LOW,55){XG51};
VAR4:=HHV(HIGH,34){XG51};
VAR5:=EMA((((CLOSE - VAR3) / (VAR4 - VAR3)) * 100),3){XG51};
VAR6:=((AK + VAR5) / 2){XG51};
VAR7:=EMA(((0.667 * REF(VAR5,1)) + (0.333 * AK1)),2){XG51};
VAR8:=EMA(VAR6,5){XG51};
BBA:=EMA(((0.667 * REF(VAR8,1)) + (0.333 * VAR8)),2){XG51};
AB:=CROSS(AK1,AK){XG51};
BB1:=(CROSS(AK1,BBA) AND (BBA < 30)){XG51};
CD:=(BBA * 0.6){XG51};
DRAWTEXT((CD = 0.6),(LOW * 0.99),'□'),LINETHICK2,COLOR33CC99{XG51};
DRAWTEXT((AB = 1),(LOW * 0.99),'□'),LINETHICK2,COLORRED{XG51};
C1:=(CLOSE+LOW+HIGH)/3{XG51};
C2:=EMA(C1,6){XG51};
C3:=EMA(C2,5){XG51};
C4:=CROSS(C2,C3){XG51};
DRAWTEXT(C4,LOW/1.01,'★'),,COLORWHITE{XG51};
C5:=CROSS(C3,C2){XG51};
DRAWTEXT(C5,HIGH*1.03,'★'),,COLORYELLOW{XG51};
IF(MA1>REF(MA1,1),MA1,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
IF(MA1<REF(MA1,1),MA1,DRAWNULL),COLORCYAN,LINETHICK2{XG51};
JG:=CROSS(MA1,MA2){XG51};
VOLUME:=VOL,VOLSTICK{XG51};
MAVOL1:=MA(VOLUME,5){XG51};
MAVOL2:=MA(VOLUME,10){XG51};
NL:=CROSS(MAVOL1,MAVOL2){XG51};
dif:=EMA(CLOSE,12)-EMA(CLOSE,26){XG51};
DEA:=EMA(DIF,9){XG51};
macd:=(DIF-DEA)*2,COLORSTICK{XG51};
NA:=CROSS(DIF,DEA){XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSV,9,1){XG51};
D:=SMA(K,9,1){XG51};
J:=3*K-2*D{XG51};
kd:=CROSS(K,D) AND CROSS(J,D){XG51};
定乾坤:DRAWTEXT((JG AND NL AND NA) OR (JG AND NL AND KD) OR
(JG AND NA AND KD) OR (NL AND NA AND KD),L*0.93,'←定乾坤'),COLORBLUE{XG51};
X1:=LLV(J,2)=LLV(J,8){XG51};
DRAWTEXT(CROSS(J,REF(J+0.01,1)) AND X1 AND J<20,LOW*0.98,'←进'),COLORMAGENTA{XG51};
JH9:=SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100{XG51};
DRAWTEXT(CROSS(84,JH9),H*1.02,'★S'),COLORCYAN{XG51};
空:=EMA(C,5){XG51};
均衡:=EMA(空,5),COLORRED{XG51};
中轨:=HHV(MA(H,13),13),COLORWHITE,LINETHICK2{XG51};
VAR55:=FILTER(均衡>REF(均衡,1)AND 中轨<REF(中轨,1)AND C>REF(C,1),11){XG51};
DRAWTEXT(VAR55,L*0.98,'←追'),COLORBLUE{X-G~5^1-C-N-{};