通达信精确找牛股选股指标公式源码

通达信精确找牛股选股指标公式源码

源码正文：

ma5:=MA(CLOSE,5){XG51};
MA15:=MA(CLOSE,15){XG51};
MA30:=MA(CLOSE,30){XG51};
MA60:=MA(CLOSE,60){XG51};
离散量30:100*(MA5-(MA15+MA30)/2)/MA30,COLORBLUE,LINETHICK1{XG51};
离散量60:100*(MA5-(MA15+MA30+MA60)/3)/MA60,COLORGREEN{XG51};
粘合K:-2*(离散量30-离散量60),COLORWHITE,LINETHICK2{XG51};
粘合D:=ema(粘合K,3),COLORBLUE{XG51};
主升:BArslAst(crOSS(粘合K,粘合D))*(粘合K>粘合D),NODRAW,COLORCYAN{XG51};
粘合:=Abs(粘合K)+ABS(离散量60),COLORCYAN{XG51};
离差:(粘合K-离散量30)*(离散量30>REF(离散量30,1)),NODRAW{XG51};
CC:=粘合K-离散量30{XG51};
GZ1:=(ABS(粘合-粘合K)<3 AND 粘合K>粘合D) OR (粘合K>-0.5 AND 粘合K<1 AND 粘合K>粘合D) OR (CC>0 AND CC<2 AND 离散量30>REF(离散量30,1)){XG51};
STICKLINE(GZ1,0,-1,0.8,1),COLORBLUE{XG51};
关注1:IF(GZ1,1,0),COLORBLUE,NODRAW{XG51};
VAR1:=IF(GZ1=1 AND 粘合K>REF(粘合K,1),1/ABS(粘合-粘合K),0){XG51};
GZ2:=IF(VAR1>10,10,IF(VAR1<0.5,0,IF(VAR1<1,1,VAR1))){XG51};
STICKLINE(GZ2>0,0,-GZ2,2,0),COLORLIMAGENTA{XG51};
关注2:IF(GZ2>0,1,0),COLORLIMAGENTA,NODRAW{XG51};

VAR3:=REF(离散量30,3)>=REF(离散量30,1) AND REF(离散量30,1)<=离散量30 AND (离散量30-粘合K<2) AND 主升>0{XG51};
STICKLINE(VAR3,粘合K+1,粘合K-1,1,0),COLORCYAN{XG51};
鸭嘴:IF(VAR3,1,0),COLORCYAN,NODRAW{XG51};
{XG51};
三金点:关注1+关注2+鸭嘴,NODRAW{XG51};
VAR4:=IF(离散量30<-5 AND REF(离散量30,2)>REF(离散量30,1) AND 离散量30>REF(离散量30,1),1,0){XG51};
STICKLINE(VAR4,离散量30+2,离散量30,1,0),COLORBLUE{XG51};
反弹:IF(VAR4,1,0),COLORBLUE,NODRAW{XG51};
0,COLORRED;0,COLORRED{X!G!5=1!C!N!{};