牛市印钞机－精品通达信指标公式源码分享

N:=14   ;    

HD:=HIGH-REF(HIGH,1);   

LD:=REF(LOW,1)-LOW;   

DMP:=SMA(IF(HD>0 AND HD>LD,HD,0),N,1);   

DMM:=SMA(IF(LD>0 AND LD>HD,LD,0),N,1);   

PDI:=DMP*100/TR,COLORRED;   

MDI:=DMM*100/TR,COLORGREEN;   

ADX:=SMA(ABS(MDI-PDI)/(MDI+PDI)*100,N,1),COLORYELLOW;   

牛力:DMP*100/TR,COLORRED,LINETHICK2;   

熊力:DMM*100/TR,COLORCYAN,LINETHICK2;   

牛熊对比度:SMA(ABS(MDI-PDI)/(MDI+PDI)*100,N,1),COLORYELLOW,LINETHICK3;   

AA:16,COLORGREEN;   

BB:30,COLORMAGENTA;     

牛势:=PDI>MDI AND ADX>29.99;    

DRAWTEXT(牛势,40,'牛势'),COLORRED;   

熊势:=PDI<MDI AND ADX>29.99;    

DRAWTEXT(熊势,5,'熊势'),COLORBLUE;   

略牛:=PDI>MDI AND 16<ADX AND ADX<29.99;   

DRAWTEXT(略牛,33,'略牛'),COLORMAGENTA;   

略熊:=PDI<MDI AND 16<ADX AND ADX<29.99;   

DRAWTEXT(略熊,13,'略熊'),COLORCYAN;   

静寂期:=ADX<16.01 AND (PDI>MDI OR PDI<MDI);   

DRAWTEXT(静寂期,22,'静寂期'),COLORWHITE;   

注意回调:=ADX>59.99;   

DRAWTEXT(注意回调,50,'注意回调'),COLORGREEN;    

EMA20:=EMA(C,20),COLORYELLOW;   

扳机点A:IF((C>EMA20 AND C<EMA20*1.025) OR CROSS(C,EMA20),REF((O+2*C)/3,1)+0.03,0),COLORRED,NODRAW;   

扳机B:IF((C>EMA20 AND C<EMA20*1.025) OR CROSS(C,EMA20),REF((H+2*C)/3,1)+0.10,0),COLORMAGENTA,NODRAW;   

DRAWTEXT((C>EMA20 AND C<EMA20*1.025) OR CROSS(C,EMA20),53,'扣扳机'),COLORYELLOW;   

止损点A:REF(L-0.10,BARSLAST(扳机B>0)),COLORGREEN,NODRAW;   

止损B:IF(C>REF(MA(C,16),1),REF(MA(C,6),1),止损点A),COLORLIGREEN,NODRAW;