通达信潜伏黄金坑选股指标公式源码

通达信潜伏黄金坑选股指标公式源码

源码正文：

N:=14{XG51};
M:=6{XG51};
NC:=14{XG51};
MTR:=SUM(maX(MAX(HIGH-LOW,Abs(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N){XG51};
HD :=HIGH-REF(HIGH,1){XG51};
LD :=REF(LOW,1)-LOW{XG51};
DMP:=SUM(IF(HD>0&&HD>LD,HD,0),N){XG51};
DMM:=SUM(IF(LD>0&&LD>HD,LD,0),N){XG51};
pdi: DMP*100/MTR{XG51};
mdi: DMM*100/MTR{XG51};
ADX: MA(ABS(MDI-PDI)/(MDI+PDI)*100,M){XG51};
ADXR:(ADX+REF(ADX,M))/2{XG51};
看多线:20,DOTLINE,COLORWHITE{XG51};
MA5:=MA(C,5);MA10:=MA(C,10);MA20:=MA(C,20);MA30:=MA(C,30);MA60:=MA(C,60){XG51};
MAX1:=MAX(MA5,MA10){XG51};
MAX2:=MAX(MAX1,MA20){XG51};
MAX3:=MAX(MAX2,MA30){XG51};
MAXH:=MAX(MAX3,MA60){XG51};
MIN1B:=MIN(MA5,MA10){XG51};
MIN2:=MIN(MIN1B,MA20){XG51};
MIN3:=MIN(MIN2,MA30){XG51};
MINL:=MIN(MIN3,MA60){XG51};
粘合度:=(MAXH-MINL)/MINL*100{XG51};
多头发散:=MA5>REF(MA5,1) AND MA5>MA10 AND MA10>=REF(MA10,1) AND MA10>MA20 AND MA20>=REF(MA20,1) AND MA20>MA30 AND MA30>=REF(MA30,1) AND MA30>MA60 AND MA60>=REF(MA60,1){XG51};
选股:BArslAstCOUNT(粘合度<=5)=2 AND 多头发散{XG51};
DRAWTEXT(crOSS(PDI,MDI) AND EXIST(粘合度<=8,5) AND MA(C,20)-REF(MA(C,20),1)>REF(MA(C,20),1)-REF(MA(C,20),2)
AND MA(C,5)>REF(MA(C,5),1) AND MA(C,10)>REF(MA(C,10),1),38,'多'),COLORWHITE{XG51};
DRAWTEXT(CROSS(PDI,MDI) AND EXIST(粘合度<=8,5) AND MA(C,20)-REF(MA(C,20),1)>REF(MA(C,20),1)-REF(MA(C,20),2)
AND MA(C,5)>REF(MA(C,5),1) AND MA(C,10)>REF(MA(C,10),1),48,'看'),COLORWHITE{XG51};
DRAWTEXT(CROSS(MDI,PDI),38,'看'),COLORCYAN{XG51};
DRAWTEXT(CROSS(MDI,PDI),26,'空'),COLORCYAN{XG51};
DRAWTEXT(CROSS(PDI,MDI) AND ADX>20 AND ADXR>20 AND MA(C,10)>REF(MA(C,10),1)
,28,'主'),COLORWHITE{XG51};
DRAWTEXT(CROSS(PDI,MDI) AND ADX>20 AND ADXR>20 AND MA(C,10)>REF(MA(C,10),1)
,18,'升'),COLORWHITE{XG51};
DRAWTEXT(CROSS(PDI,ADX) AND CROSS(PDI,ADXR) AND MDI<REF(MDI,1) AND ADX>REF(ADX,1) AND ADXR>REF(ADXR,1)
AND ATAN((PDI/REF(PDI,1)-1)*100)*180/3.1416>60 AND
ATAN(((2*REF(MDI,1)-MDI)/REF(MDI,1)-1)*100)*180/3.1416>45,58,'走'),COLORWHITE{XG51};
DRAWTEXT(CROSS(PDI,ADX) AND CROSS(PDI,ADXR) AND MDI<REF(MDI,1) AND ADX>REF(ADX,1) AND ADXR>REF(ADXR,1)
AND ATAN((PDI/REF(PDI,1)-1)*100)*180/3.1416>60 AND
ATAN(((2*REF(MDI,1)-MDI)/REF(MDI,1)-1)*100)*180/3.1416>45,48,'牛'),COLORWHITE{XG51};
升1:=CROSS(ADXR,20) AND ATAN((ADXR/REF(ADXR,1)-1)*100)*180/3.1416>60{XG51};
升2:=CROSS(ADX,20) AND ATAN((ADX/REF(ADX,1)-1)*100)*180/3.1416>60{XG51};
升3:=CROSS(PDI,20) AND ATAN((PDI/REF(PDI,1)-1)*100)*180/3.1416>60{XG51};
升4:=CROSS(20,MDI) AND ATAN(((2*REF(MDI,1)-MDI)/REF(MDI,1)-1)*100)*180/3.1416>45{XG51};
反降:=MDI<REF(MDI,1) AND ATAN(((2*REF(MDI,1)-MDI)/REF(MDI,1)-1)*100)*180/3.1416>45{XG51};
升:=升1 OR 升2 OR 升3 OR 升4{XG51};
DRAWTEXT(升 AND 反降 AND ADX>20 AND ADXR>20 AND PDI>20 AND ADX>REF(ADX,1) AND PDI>=REF(PDI,1) AND MA(C,5)>REF(MA(C,5),1),46,'升'),COLORWHITE{XG51};
DRAWTEXT(升 AND 反降 AND ADX>20 AND ADXR>20 AND PDI>20 AND ADX>REF(ADX,1) AND PDI>=REF(PDI,1) AND MA(C,5)>REF(MA(C,5),1),36,'势'),COLORWHITE{XG51};
DRAWTEXT(ADX<REF(ADX,1) AND ADXR<REF(ADXR,1) AND PDI<REF(PDI,1) AND MDI>REF(MDI,1)
AND MA(C,5)<REF(MA(C,5),1),44,'降'),COLORCYAN{XG51};
DRAWICON(CROSS(PDI,MDI),PDI,1){XG51};
DRAWICON(CROSS(MDI,PDI),MDI,2){XG51};
DRAWTEXT(CROSS(PDI,ADXR) AND ATAN((PDI/REF(PDI,1)-1)*100)*180/3.1416>60 AND MDI<=REF(MDI,1) AND MA(C,5)>REF(MA(C,5),1) AND PDI>MDI,22,'短'),COLORWHITE{XG51};
DRAWTEXT(CROSS(PDI,ADXR) AND ATAN((PDI/REF(PDI,1)-1)*100)*180/3.1416>60 AND MDI<=REF(MDI,1) AND MA(C,5)>REF(MA(C,5),1) AND PDI>MDI,18,'升'),COLORWHITE{XG51};
RR1:=MA(CLOSE,27){XG51};
RR2:=(CLOSE-RR1)/RR1*100{XG51};
RRA:=MA(RR2,2){XG51};
RRB:=BARSLAST(CROSS(-10,RRA)=1){XG51};
RRD:=RRA<-10 AND RRB>3{XG51};
黄金坑:=IF(RRD,-120,0){XG51};
TYP:=(HIGH+LOW+CLOSE)/3{XG51};
CCI:=(TYP-MA(TYP,NC))/(0.015*AVEDEV(TYP,NC)){XG51};
DRAWTEXT(CROSS(CCI,0),66,'上'),COLORWHITE{XG51};
DRAWTEXT(CROSS(0,CCI),66,'下'),COLORCYAN{XG51};
DRAWTEXT(CROSS(CCI,100),56,'突'),COLORWHITE{XG51};
DRAWTEXT(CROSS(100,CCI),56,'落'),COLORCYAN{XG51};
DRAWTEXT(CROSS(100,CCI) AND MA(C,20)>REF(MA(C,20),1),60,'暂'),COLORCYAN{XG51};
叉1:=CROSS(ADX,0) AND ATAN((ADX/REF(ADX,1)-1)*100)*180/3.1416>60{XG51};
叉2:=CROSS(ADXR,0) AND ATAN((ADXR/REF(ADXR,1)-1)*100)*180/3.1416>60{XG51};
叉3:=CROSS(20,PDI) AND ATAN(((2*REF(PDI,1)-PDI)/REF(PDI,1)-1)*100)*180/3.1416>45{XG51};
叉4:=CROSS(MDI,20) AND ATAN((MDI/REF(MDI,1)-1)*100)*180/3.1416>45{XG51};
叉:=叉1 OR 叉2 OR 叉3 OR 叉4{XG51};
逆势:=MDI>REF(MDI,1) AND ATAN((MDI/REF(MDI,1)-1)*100)*180/3.1416>45 AND MDI>20{XG51};
DRAWTEXT(叉 AND 逆势 AND PDI<20 AND MDI>20 AND ADX>20 AND ADXR>20,54,'跌'),COLORCYAN{XG51};
DRAWTEXT(叉 AND 逆势 AND PDI<20 AND MDI>20 AND ADX>20 AND ADXR>20,50,'势'),COLORCYAN{XG51};
跌角1:=ATAN((ADXR/REF(ADXR,1)-1)*100)*180/3.1416>60 AND ATAN((ADXR/REF(ADXR,1)-1)*100)*180/3.1416>60
AND ATAN((MDI/REF(MDI,1)-1)*100)*180/3.1416>60 AND ADXR>20 AND ADX>20 AND MDI>20 AND MDI>REF(MDI,1){XG51};
DRAWTEXT(跌角1 AND ATAN(((2*REF(PDI,1)-PDI)/REF(PDI,1)-1)*100)*180/3.1416>45 AND MA(C,10)<REF(MA(C,10),1),34,'大'),COLORCYAN{XG51};
DRAWTEXT(跌角1 AND ATAN(((2*REF(PDI,1)-PDI)/REF(PDI,1)-1)*100)*180/3.1416>45 AND MA(C,10)<REF(MA(C,10),1),30,'跌'),COLORCYAN{XG51};
潜伏:=CROSS(PDI,MDI) AND MA(C,5)>REF(MA(C,5),1) AND MA(C,10)>REF(MA(C,10),1) AND
MA(C,20)-REF(MA(C,20),1)>REF(MA(C,20),1)-REF(MA(C,20),2) AND EXIST(粘合度<=8,5){XG51};
潜伏2:=CROSS(PDI,MDI) AND MA(C,5)>REF(MA(C,5),1) AND MA(C,10)>REF(MA(C,10),1) AND
MA(C,20)-REF(MA(C,20),1)>REF(MA(C,20),1)-REF(MA(C,20),2) AND EXIST(粘合度<=8,5) AND EXIST(黄金坑,10){XG51};
DRAWTEXT(潜伏,14,'潜'),COLORBLUE{XG51};
DRAWTEXT(潜伏,10,'伏'),COLORBLUE{XG51};
DRAWTEXT(潜伏2,6,'潜'),COLORWHITE{XG51};
DRAWTEXT(潜伏2,2,'伏'),COLORWHITE{X*G?5.1*C*N*{};