通达信短线一绝主图未加密选股指标公式源码

源码正文：

AA05:ma(C,5),LINETHICK3,COLOR00CCFF{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),NODRAW{XG51};
IF(BB05>30 AND AA05>REF(AA05,1), AA05,DRAWNULL),LINETHICK3,COLORWHITE{XG51};
AA10:MA(C,10);AA20:=MA(C,20){XG51};
BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416{XG51};
IF(BB05<0 AND AA05<REF(AA05,1), AA05,DRAWNULL),LINETHICK3,COLORCYAN{XG51};
AA30:MA(C,30){XG51};
三拾日乖离率:(C-AA30)/AA30*100,NODRAW{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};
BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416{XG51};
IF(BB30>15 AND AA30>REF(AA30,1), AA30,DRAWNULL),LINETHICK3,COLORFF00FF{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};
清仓:=FILTER(COUNT(CROSS(30,BB05),5)>=1 AND (C>AA30 OR O>AA30) AND AA05<REF(AA05,1) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10<REF(AA10,1),10){XG51};
DRAWTEXT(加仓 ,LOW*0.98,'←加仓'),COLORWHITE{XG51};
JC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10>REF(AA10,1) {XG51};
减仓:=FILTER(JC,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){XG51};
DRAWTEXT(减仓,HIGH*1.02,'←减仓'),COLORGREEN{XG51};
DRAWTEXT(买入,LOW*0.98,'←买入'),COLORBLUE{XG51};
DRAWTEXT(清仓 ,HIGH*1.02,'←清仓'),COLORCYAN{XG51};
DRAWTEXT(强势狙击,LOW*0.98,'←强势狙击'),COLORBLUE{XG51};
VAR21:=MAX(Abs(HIGH-AMOUNT/vol/100),ABS(AMOUNT/VOL/100-LOW)){XG51};
VAR3:=ABS((OPEN+CLOSE)/2-AMOUNT/VOL/100){XG51};
MV:=(VAR21+VAR3)/AMOUNT*VOL*100*50{X-G+5?1-C-N-{};

源码正文：

A:=vol*C; B:=SUM(A,1)/SUM(VOL,1){XG51};
B1:=ema(B,17); 资金:=(B-B1)*100/B; difF:Ema(资金,12)-EMA(资金,26){XG51};
DEA: EMA(DIFF,9); M: 2*(DIFF-DEA), COLORstICK{XG51};
STICKLINE(M>=REF(M,1)AND M>0,0,M,2.2,0),COLOR000088{XG51};
STICKLINE(M>=REF(M,1)AND M>0,0,M,1.5,0),COLOR0000AA{XG51};
STICKLINE(M>=REF(M,1)AND M>0,0,M,0.5,0),COLOR0000CC{XG51};
STICKLINE(M>=REF(M,1)AND M>0,0,M,0.1,0),COLOR0000EE{XG51};
STICKLINE(M<REF(M,1)AND M>0,0,M,2.2,0),COLOR338888{XG51};
STICKLINE(M<REF(M,1)AND M>0,0,M,1.3,0),COLOR33AAAA{XG51};
STICKLINE(M<REF(M,1)AND M>0,0,M,0.9,0),COLOR33CCCC{XG51};
STICKLINE(M<REF(M,1)AND M>0,0,M,0.1,0),COLOR33EEEE{XG51};
STICKLINE(M>REF(M,1)AND M<0,0,M,2.2,0),COLORCC00CC{XG51};
STICKLINE(M>REF(M,1)AND M<0,0,M,1.1,0),COLOREE00EE{XG51};
STICKLINE(M>REF(M,1)AND M<0,0,M,0.1,0)COLORFF00FF{XG51};
STICKLINE(M<=REF(M,1)AND M<0,0,M,2.2,0),COLOR009900{XG51};
STICKLINE(M<=REF(M,1)AND M<0,0,M,1.5,0),COLOR00BB00{XG51};
STICKLINE(M<=REF(M,1)AND M<0,0,M,1.1,0),COLOR00DD00{XG51};
STICKLINE(M<=REF(M,1)AND M<0,0,M,0.1,0),COLOR00FF00{XG51};
IF(DIFF<0,DIFF,0),COLORWHITE,LINETHICK2{XG51};
IF(DIFF<0,0,DIFF),COLORBLUE,LINETHICK2{XG51};
IF(DIFF<DEA,DIFF,DEA),COLOR00FF00,LINETHICK2{XG51};
IF(DIFF>DEA,DEA,DEA),COLORRED,LINETHICK1{XG51};
低金叉:=crOSS(DIFF,DEA) AND DIFF<-0.1{XG51};
STICKLINE(低金叉,-4,-2,2.5,0),COLOR338888{XG51};
STICKLINE(低金叉,-4,-2,1.5,0),COLOR33AAAA{XG51};
STICKLINE(低金叉,-4,-2,0.9,0),COLOR33CCCC{XG51};
STICKLINE(低金叉,-4,-2,0.1,0),COLOR33EEEE{XG51};
STICKLINE(低金叉,-0.4,-2,0.3,1),COLOREE00EE{XG51};
DRAWTEXT(低金叉,-3,' 低位金叉'),COLORBLUE{XG51};
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BArslAST(DEA>=0)){XG51};
二金:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1{XG51};
STICKLINE(二金,0,-2.5,2,0),COLORCC00CC{XG51};
STICKLINE(二金,0,-2.5,1.5,0),COLOREE00EE{XG51};
STICKLINE(二金,0,-2.5,0.1,0)COLORFF00FF{XG51};
DRAWICON(二金,DEA*1.2,23) {XG51};
DRAWTEXT(二金,-2,' 二次金叉'),COLORFF00FF{XG51};
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
底背:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1)AND CROSS(DIFF,DEA){XG51};

STICKLINE(底背,0,2.5,2.5,0),COLOR009900{XG51};
STICKLINE(底背,0,2.5,1.4,0),COLOR00BB00{XG51};
STICKLINE(底背,0,2.5,0.5,0),COLOR00DD00{XG51};
STICKLINE(底背,0,2.5,0.1,0),COLOR00FF00{XG51};
STICKLINE(底背,4.5,2.5,0.3,1),COLOR0000FF{XG51};
DRAWLINE(A1=0,DEA,底背,DEA,0),COLORWHITE,LINETHICK2{XG51};
DRAWTEXT(底背,2,' 底背离'),COLOR00FF00{XG51};
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
顶背:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF){XG51};

STICKLINE(顶背,2.5,4,2.5,0),COLORFF4400{XG51};
STICKLINE(顶背,2.5,4,1.5,0),COLORFF8800{XG51};
STICKLINE(顶背,2.5,4,0.2,0),COLORFFCC00{XG51};
STICKLINE(顶背,0.4,2.5,0,0),COLORFFFFFF{XG51};
STICKLINE(顶背,5,4,4,0),COLOR999999;
STICKLINE(顶背,5,4,3,0),COLORBBBBBB{XG51};
STICKLINE(顶背,5,4,2,0),COLORDDDDDD{XG51};
STICKLINE(顶背,5,4,1,0),COLORFFFFFF{XG51};
DRAWLINE(A2=0,DEA,顶背,DEA,0),COLORFFFF00,LINETHICK2{XG51};
DRAWTEXT(顶背,3.6,' 顶背离'),COLORFFFF00{X_G!5.1_C_N_{};