|
以下是通达信精准熊市捉妖副图/选股预警 源码（无源码的请下载附件导入）
A7A:=CLOSE-REF(CLOSE,1);
A8A:=100*EMA(EMA(A7A,6),6)/EMA(EMA(ABS(A7A),6),6);
出关线:=(-50);
XG1:=CROSS(A8A,出关线);
PER1:=5;
MMA:=EMA(CLOSE,PER1);
SMMA:=EMA(MMA,PER1);
IMPETMMA:=MMA-REF(MMA,1);
IMPETSMMA:=SMMA-REF(SMMA,1);
DIVMA:=ABS(MMA-SMMA);
AVERIMPET:=(IMPETMMA+IMPETSMMA)/2;
TDF:=POW(DIVMA,1)*POW(AVERIMPET,3);
NTDF:=TDF/HHV(ABS(TDF),PER1*3);
A:=(-0.05);
B:=0.05;
XG2:=CROSS(NTDF,(-0.6));
VAR4:=EMA(CLOSE,3);
VAR5:=LLV(HIGH,240);
VAR6:=100*(CLOSE-VAR5)/VAR5;
VARF:=EMA(100*(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100)),5)/4;
XG1A:=COUNT(REF(VAR4,1)<REF(VAR4,2),5)=5 AND VAR4>REF(VAR4,1);
XG2A:=FILTER(COUNT(VAR6<0,5) AND CROSS(VAR6,0) AND VARF>REF(VARF,1) AND CLOSE>OPEN,3);
XG3A:=XG1A OR XG2A;
AA:=REF(CLOSE,1);
BBB:=SMA(MAX(CLOSE-AA,0),34,1)/SMA(ABS(CLOSE-AA),34,1)*1000;
HHH:=BBB-LLV(BBB,36);
短期:=(MA(HHH,2)*3+HHH*13)/16;
中期:=MA(HHH,10);
CCC:=LLV(BBB,36)-BBB;
短期二:=(MA(CCC,2)*3+CCC*13)/16;
中期二:=MA(CCC,10);
XG4A:=CROSS(短期,中期) AND CROSS(中期二,短期二);
XG3:=XG3A AND XG4A;
PRD1:=5;
STEP:=(SQRT(5)-1)/2;
A1:=IF(CLOSE>MA(CLOSE,PRD1),10,IF(CLOSE<MA(CLOSE,PRD1),(-10),0));
A2:=IF(CLOSE>MA(CLOSE,PRD1/STEP),10,IF(CLOSE<MA(CLOSE,PRD1/STEP),(-10),0));
A3:=IF(CLOSE>MA(CLOSE,INTPART(PRD1/POW(STEP,2))),10,IF(CLOSE<MA(CLOSE,INTPART(PRD1/POW(STEP,2))),(-10),0));
A4:=IF(CLOSE>MA(CLOSE,INTPART(PRD1/POW(STEP,3))),10,IF(CLOSE<MA(CLOSE,INTPART(PRD1/POW(STEP,3))),(-10),0));
A5:=IF(CLOSE>MA(CLOSE,INTPART(PRD1/POW(STEP,4))),10,IF(CLOSE<MA(CLOSE,INTPART(PRD1/POW(STEP,4))),(-10),0));
A6:=IF(CLOSE>MA(CLOSE,INTPART(PRD1/POW(STEP,5))),10,IF(CLOSE<MA(CLOSE,INTPART(PRD1/POW(STEP,5))),(-10),0));
A7:=IF(CLOSE>MA(CLOSE,INTPART(PRD1/POW(STEP,6))),10,IF(CLOSE<MA(CLOSE,INTPART(PRD1/POW(STEP,6))),(-10),0));
A8:=IF(CLOSE>MA(CLOSE,INTPART(PRD1/POW(STEP,7))-1),10,IF(CLOSE<MA(CLOSE,INTPART(PRD1/POW(STEP,7))-1),(-10),0));
A9:=IF(CLOSE>MA(CLOSE,INTPART(PRD1/POW(STEP,8))-1),10,IF(CLOSE<MA(CLOSE,INTPART(PRD1/POW(STEP,8))-1),(-10),0));
A10:=IF(CLOSE>MA(CLOSE,INTPART(PRD1/POW(STEP,9))-3),10,IF(CLOSE<MA(CLOSE,INTPART(PRD1/POW(STEP,9))-3),(-10),0));
XGB:=A1+A2+A3+A4+A5+A6+A7+A8+A9+A10;
XG4:=CROSS(XGB,(-99));
K:=(CLOSE+HIGH+LOW)/3;
D:=MA(K,4);
XG1C:=REF(CLOSE,1)<D AND CLOSE>D AND D<REF(D,1);
VAR1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*50;
AAC:=EMA(VAR1,3)*2;
XG2C:=CROSS(AAC,20);
XG5:=XG2C AND XG1C;
TDXSTEP494:XG1 AND XG2 AND XG3 AND XG4 AND XG5,COLORRED,LINETHICK2;
125777153.png
1256411013.png
|
