通达信短线强势阻击买入点选股指标公式源码

通达信短线强势阻击买入点选股指标公式源码

源码正文：

A1:=(((2 * CLOSE) + HIGH) + LOW) / 4{XG51};
A2:=LLV(LOW,34){XG51};
A3:=HHV(HIGH,34){XG51};
A4:=ema((((A1 - A2) / (A3 - A2)) * 100),13){XG51};
A5:=Ema(((0.667 * (REF(A4,1))) + (0.333 * A4)),2){XG51};
A6:=(HHV(HIGH,9)) - (LLV(LOW,9)){XG51};
A7:=(HHV(HIGH,9)) - CLOSE{XG51};
A8:=CLOSE - (LLV(LOW,9)){XG51};
A9:=((A7 / A6) * 100) - 70{XG51};
A10:=((CLOSE - (LLV(LOW,60))) / ((HHV(HIGH,60)) - (LLV(LOW,60)))) * 100{XG51};
A11:=SMA(((A8 / A6) * 100),3,1){XG51};
A12:=(SMA(A11,3,1)) - (SMA(A9,9,1)){XG51};
A13:=IF((A12 > 100),(A12 - 100),0){XG51};
快线:EMA((((A1 - A2) / (A3 - A2)) * 100),5),COLORRED,LINETHICK1{XG51};
慢线:EMA(快线,13),COLORCYAN,LINETHICK1{XG51};
红柱:IF((快线 - 慢线) > 0,(快线 - 慢线),0),LINETHICK0{XG51};
蓝柱:IF((快线 - 慢线) < 0,(Abs(快线 - 慢线)),0),LINETHICK0{XG51};
stICKLINE(((快线 - 慢线) > 0),快线,慢线,0.05,-1),COLORWHITE{XG51};
STICKLINE(((快线 - 慢线) < 0),快线,慢线,0.05,-1),COLORFFCC00{XG51};
AA05:=MA(C,5){XG51};
五日乖离率:=(C-AA05)/AA05*100{XG51};
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416{XG51};
速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1){XG51};
加速度5:=EMA((速度5-REF(速度5,1)),3){XG51};
AA10:=MA(C,10);AA20:=MA(C,20){XG51};
BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416{XG51};
AA30:=MA(C,30){XG51};
三拾日乖离率:=(C-AA30)/AA30*100{XG51};
VAR1:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1){XG51};
VAR2:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1){XG51};
VAR3:=IF(CLOSE>REF(CLOSE,1),88,0){XG51};
VAR4:=IF(CLOSE/REF(CLOSE,1)>1.050  AND HIGH/CLOSE<1.010 AND VAR3>0, 91, 0){XG51};
短线买入:FILTER(VAR4>1,5),COLOR0099FF,POINTDOT{XG51};
STICKLINE(crOSS(VAR3,VAR4),55,0,4,0),COLOR0099FF{XG51};
BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416{XG51};
强势狙击:FILTER(BB30>30 AND BB10>45 AND CROSS(BB05,60),10){XG51};
加仓:FILTER(COUNT(CROSS(BB05,30),5)>=1 AND AA05>REF(AA05,1)  AND 三拾日乖离率>REF(三拾日乖离率,1) AND AA10>REF(AA10,1)
AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1)  ,10) {XG51};
MR:=COUNT(CROSS(五日乖离率,0),3)>=1 AND 三拾日乖离率>REF(三拾日乖离率,1) AND AA05>REF(AA05,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)<AA30{XG51};
买入:FILTER(MR,10){X~G.5~1~C~N~{};