通达信熊市捉妖选股指标公式源码

通达信熊市捉妖选股指标公式源码

源码正文：

A7A:=CLOSE-REF(CLOSE,1){XG51};
A8A:=100*ema(Ema(A7A,6),6)/EMA(EMA(Abs(A7A),6),6){XG51};
出关线:=(-50){XG51};
XG1:=crOSS(A8A,出关线){XG51};
PER1:=5{XG51};
MMA:=EMA(CLOSE,PER1){XG51};
SMMA:=EMA(MMA,PER1){XG51};
IMPETMMA:=MMA-REF(MMA,1){XG51};
IMPETSMMA:=SMMA-REF(SMMA,1){XG51};
DIVMA:=ABS(MMA-SMMA){XG51};
AVERIMPET:=(IMPETMMA+IMPETSMMA)/2{XG51};
TDF:=POW(DIVMA,1)*POW(AVERIMPET,3){XG51};
NTDF:=TDF/HHV(ABS(TDF),PER1*3){XG51};
A:=(-0.05){XG51};
B:=0.05{XG51};
XG2:=CROSS(NTDF,(-0.6)){XG51};
VAR4:=EMA(CLOSE,3){XG51};
VAR5:=LLV(HIGH,240){XG51};
VAR6:=100*(CLOSE-VAR5)/VAR5{XG51};
VARF:=EMA(100*(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100)),5)/4{XG51};
XG1A:=COUNT(REF(VAR4,1)<REF(VAR4,2),5)=5 AND VAR4>REF(VAR4,1){XG51};
XG2A:=FILTER(COUNT(VAR6<0,5) AND CROSS(VAR6,0) AND VARF>REF(VARF,1) AND CLOSE>OPEN,3){XG51};
XG3A:=XG1A OR XG2A{XG51};
AA:=REF(CLOSE,1){XG51};
BBB:=SMA(MAX(CLOSE-AA,0),34,1)/SMA(ABS(CLOSE-AA),34,1)*1000{XG51};
HHH:=BBB-LLV(BBB,36){XG51};
短期:=(MA(HHH,2)*3+HHH*13)/16{XG51};
中期:=MA(HHH,10){XG51};
CCC:=LLV(BBB,36)-BBB{XG51};
短期二:=(MA(CCC,2)*3+CCC*13)/16{XG51};
中期二:=MA(CCC,10){XG51};
XG4A:=CROSS(短期,中期) AND CROSS(中期二,短期二){XG51};
XG3:=XG3A AND XG4A{XG51};
PRD1:=5{XG51};
stEP:=(SQRT(5)-1)/2{XG51};
A1:=IF(CLOSE>MA(CLOSE,PRD1),10,IF(CLOSE<MA(CLOSE,PRD1),(-10),0)){XG51};
A2:=IF(CLOSE>MA(CLOSE,PRD1/STEP),10,IF(CLOSE<MA(CLOSE,PRD1/STEP),(-10),0)){XG51};
A3:=IF(CLOSE>MA(CLOSE,INTPART(PRD1/POW(STEP,2))),10,IF(CLOSE<MA(CLOSE,INTPART(PRD1/POW(STEP,2))),(-10),0)){XG51};
A4:=IF(CLOSE>MA(CLOSE,INTPART(PRD1/POW(STEP,3))),10,IF(CLOSE<MA(CLOSE,INTPART(PRD1/POW(STEP,3))),(-10),0)){XG51};
A5:=IF(CLOSE>MA(CLOSE,INTPART(PRD1/POW(STEP,4))),10,IF(CLOSE<MA(CLOSE,INTPART(PRD1/POW(STEP,4))),(-10),0)){XG51};
A6:=IF(CLOSE>MA(CLOSE,INTPART(PRD1/POW(STEP,5))),10,IF(CLOSE<MA(CLOSE,INTPART(PRD1/POW(STEP,5))),(-10),0)){XG51};
A7:=IF(CLOSE>MA(CLOSE,INTPART(PRD1/POW(STEP,6))),10,IF(CLOSE<MA(CLOSE,INTPART(PRD1/POW(STEP,6))),(-10),0)){XG51};
A8:=IF(CLOSE>MA(CLOSE,INTPART(PRD1/POW(STEP,7))-1),10,IF(CLOSE<MA(CLOSE,INTPART(PRD1/POW(STEP,7))-1),(-10),0)){XG51};
A9:=IF(CLOSE>MA(CLOSE,INTPART(PRD1/POW(STEP,8))-1),10,IF(CLOSE<MA(CLOSE,INTPART(PRD1/POW(STEP,8))-1),(-10),0)){XG51};
A10:=IF(CLOSE>MA(CLOSE,INTPART(PRD1/POW(STEP,9))-3),10,IF(CLOSE<MA(CLOSE,INTPART(PRD1/POW(STEP,9))-3),(-10),0)){XG51};
XGB:=A1+A2+A3+A4+A5+A6+A7+A8+A9+A10{XG51};
XG4:=CROSS(XGB,(-99)){XG51};
K:=(CLOSE+HIGH+LOW)/3{XG51};
D:=MA(K,4){XG51};
XG1C:=REF(CLOSE,1)<D AND CLOSE>D AND D<REF(D,1){XG51};
VAR1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*50{XG51};
Aac:=EMA(VAR1,3)*2{XG51};
XG2C:=CROSS(AAC,20){XG51};
XG5:=XG2C AND XG1C{XG51};
捉妖:XG1 AND XG2 AND XG3 AND XG4 AND XG5,COLORWHITE,LINETHICK2{X=G*5^1=C=N={};