通达信火焰潜伏未加密选股指标公式源码

源码正文：

dif:=ema(CLOSE,12) - Ema(CLOSE,26){XG51};
DEA:=EMA(DIF,9){XG51};
macd:=(DIF-DEA)*2,COLORstICK{XG51};
主力潜伏:=COUNT(MacD<0,10)=10{XG51};
主力潜伏选:=REF(主力潜伏,1)=1 AND 主力潜伏<1 ,COLORBLUE{XG51};
VARK1:=EMA(HHV(HIGH,500),21){XG51};
VARK2:=EMA(HHV(HIGH,250),21){XG51};
VARK3:=EMA(HHV(HIGH,90),21){XG51};
VARK4:=EMA(LLV(LOW,500),21){XG51};
VARK5:=EMA(LLV(LOW,250),21){XG51};
VARK:=EMA(LLV(LOW,90),21){XG51};
VARK7:=EMA((VARK4*0.96+VARK5*0.96+VARK*0.96+VARK1*0.558+VARK2*0.558+VARK3*0.558)/6,21){XG51};
VARK8:=EMA((VARK4*1.25+VARK5*1.23+VARK*1.2+VARK1*0.55+VARK2*0.55+VARK3*0.65)/6,21){XG51};
VARK9:=EMA((VARK4*1.3+VARK5*1.3+VARK*1.3+VARK1*0.68+VARK2*0.68+VARK3*0.68)/6,21){XG51};
VARKA:=EMA((VARK7*3+VARK8*2+VARK9)/6*1.738,21){XG51};
VARKB:=REF(LOW,1){XG51};
VARKC:=SMA(Abs(LOW-VARKB),3,1)/SMA(MAX(LOW-VARKB,0),3,1)*100{XG51};
VARkd:=EMA(IF(CLOSE*1.35<=VARKA,VARKC*10,VARKC/10),3){XG51};
VARKE:=LLV(LOW,30){XG51};
VARKF:=HHV(VARKD,30){XG51};
VARK10:=IF(MA(CLOSE,58),1,0){XG51};
火焰山:=EMA(IF(LOW<=VARKE,(VARKD+VARKF*2)/2,0),3)/618*VARK10{XG51};
EVERY(火焰山>5,5) AND 主力潜伏选{X_G^5+1_C_N_{};

源码正文：

A1:=(Dvol/C)/2,NODRAW{XG51};
A2:=SUM(IF(A1>100 AND CLOSE>REF(CLOSE,1),A1,0),0){XG51};
A3:=SUM(IF(A1>100 AND CLOSE<REF(CLOSE,1),A1,0),0){XG51};
A4:=SUM(IF(A1<100 AND CLOSE>REF(CLOSE,1),A1,0),0){XG51};
A5:=SUM(IF(A1<100 AND CLOSE<REF(CLOSE,1),A1,0),0){XG51};
A6:=A2+A3+A4+A5{XG51};
机买:(A2/A6)*100,LINETHICK2,COLORWHITE{XG51};
机卖:(A3/A6)*100,LINETHICK2,COLORCYAN{XG51};
散买:(A4/A6)*100,LINETHICK0{XG51};
散卖:(A5/A6)*100,LINETHICK0{XG51};
主力差:机买-机卖,LINETHICK2,NODRAW{XG51};
散户差:散买-散卖,LINETHICK0,NODRAW{XG51};
DRAWTEXT(主力差>0 AND REF(主力差,1)<=0,C*0.85,'●机构'),COLORWHITE{XG51};
DRAWTEXT(主力差<0 AND REF(主力差,1)>=0,-C*0.85,'○机构'),COLORRED{XG51};
DRAWTEXT(散户差>0 AND REF(散户差,1)<=0,C*0.15,'▲散户'),COLORGREEN{XG51};
DRAWTEXT(散户差<0 AND REF(散户差,1)>=0,-C*0.15,'△散户'),COLORRED{X*G-5_1*C*N*{};