通达信战神推荐主图未加密选股指标公式源码

源码正文：

短高H:=(20*H+19*REF(H,1)+18*REF(H,2)+17*REF(H,3)+16*REF(H,4)+15*REF(H,5)+14*REF(H,6)
+13*REF(H,7)+12*REF(H,8)+11*REF(H,9)+10*REF(H,10)+9*REF(H,11)+8*REF(H,12)
+7*REF(H,13)+6*REF(H,14)+5*REF(H,15)+4*REF(H,16)+3*REF(H,17)+2*REF(H,18)+
REF(H,20))/210,COLORYELLOW,LINETHICK1{XG51};
短低L:=(20*L+19*REF(L,1)+18*REF(L,2)+17*REF(L,3)+16*REF(L,4)+15*REF(L,5)+14*REF(L,6)
+13*REF(L,7)+12*REF(L,8)+11*REF(L,9)+10*REF(L,10)+9*REF(L,11)+8*REF(L,12)
+7*REF(L,13)+6*REF(L,14)+5*REF(L,15)+4*REF(L,16)+3*REF(L,17)+2*REF(L,18)+
REF(L,20))/210,COLORYELLOW,LINETHICK1{XG51};
D90H:=ema(短高H,90)-(Ema(短高H,90)-EMA(短低L,90))*0.2,COLORWHITE,LINETHICK1{XG51};
D90L:=EMA(短低L,90)+(EMA(短高H,90)-EMA(短低L,90))*0.2,COLORWHITE,LINETHICK1{XG51};
高0:=(xma(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),LINETHICK1,COLORRED{XG51};
低0:=XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK1,COLORRED{XG51};
多头定位:=(高0+低0)/2>(D90H+D90L)/2{XG51};
空头定位:=(高0+低0)/2<(D90H+D90L)/2{XG51};
波段顶0:=(XMA(XMA(H,120),120)-XMA(XMA(L,120),120))*4+XMA(XMA(H,120),120),LINETHICK1,COLORWHITE{XG51};
波段底0:=XMA(XMA(L,120),120)-(XMA(XMA(H,120),120)-XMA(XMA(L,120),120))*4,LINETHICK1,COLORCYAN{XG51};
stICKLINE(多头定位=1,波段顶0,波段底0,5,0),COLOR001050{XG51};
STICKLINE(空头定位=1,波段顶0,波段底0,5,0),COLOR404050{XG51};
中中中:=((XMA(XMA(H,15),15)+XMA(XMA(H,20),20)+XMA(XMA(H,30),30)+XMA(XMA(H,40),40))/4+(XMA(XMA(L,15),15)+XMA(XMA(L,20),20)+XMA(XMA(L,30),30)+XMA(XMA(L,40),40))/4)/2,LINETHICK0,COLORCYAN{XG51};
EMA中中中:=EMA(中中中,10),LINETHICK0,COLORRED{XG51};
A:=(3*C+L+O+H)/6{XG51};
B:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)
+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
REF(A,20))/210,COLORWHITE,LINETHICK1{XG51};
D:=MA(B,10),COLORWHITE,LINETHICK1{XG51};
D14:=MA(B,14),COLORWHITE,LINETHICK1{XG51};
D21:=MA(B,21),COLORWHITE,LINETHICK1{XG51};
A1:=MA((3*C+L+O+H)/6,28){XG51};
B1:=(20*A1+19*REF(A1,1)+18*REF(A1,2)+17*REF(A1,3)+16*REF(A1,4)+15*REF(A1,5)+14*REF(A1,6)
+13*REF(A1,7)+12*REF(A1,8)+11*REF(A1,9)+10*REF(A1,10)+9*REF(A1,11)+8*REF(A1,12)
+7*REF(A1,13)+6*REF(A1,14)+5*REF(A1,15)+4*REF(A1,16)+3*REF(A1,17)+2*REF(A1,18)+
REF(A1,12))/210,COLORCYAN,LINETHICK1{XG51};
D1:=MA(B1,14),COLORCYAN,LINETHICK1{XG51};
DRAWBAND(B1,RGB(255,0,0),D1,RGB(255,255,0)){XG51};
DRAWBAND(D14,RGB(255,0,0),D21,RGB(255,255,0)){XG51};
DRAWBAND(B,RGB(255,0,0),D,RGB(255,255,0)){XG51};
中中顶:=(XMA(XMA(H,15),15)+XMA(XMA(H,20),20)+XMA(XMA(H,30),30)+XMA(XMA(H,40),40))/4*2-(XMA(XMA(L,15),15)+XMA(XMA(L,20),20)+XMA(XMA(L,30),30)+XMA(XMA(L,40),40))/4,LINETHICK2,COLORCYAN{XG51};
中中底:=(XMA(XMA(L,15),15)+XMA(XMA(L,20),20)+XMA(XMA(L,30),30)+XMA(XMA(L,40),40))/4*2-(XMA(XMA(H,15),15)+XMA(XMA(H,20),20)+XMA(XMA(H,30),30)+XMA(XMA(H,40),40))/4,LINETHICK2,COLORCYAN{XG51};
短中顶:=(XMA(XMA(H,5),5)+XMA(XMA(H,8),8)+XMA(XMA(H,11),11)+XMA(XMA(H,14),14)+XMA(XMA(H,4),4))/5+((XMA(XMA(H,5),5)+XMA(XMA(H,8),8)+XMA(XMA(H,11),11)+XMA(XMA(H,14),14)+XMA(XMA(H,4),4))/5-(XMA(XMA(L,5),5)+XMA(XMA(L,8),8)+XMA(XMA(L,11),11)+XMA(XMA(L,14),14)+XMA(XMA(L,4),4))/5)/2,LINETHICK0,COLORRED{XG51};
短中底:=(XMA(XMA(L,5),5)+XMA(XMA(L,8),8)+XMA(XMA(L,11),11)+XMA(XMA(L,14),14))/4-((XMA(XMA(H,5),5)+XMA(XMA(H,8),8)+XMA(XMA(H,11),11)+XMA(XMA(H,14),14)+XMA(XMA(H,4),4))/5-(XMA(XMA(L,5),5)+XMA(XMA(L,8),8)+XMA(XMA(L,11),11)+XMA(XMA(L,14),14)+XMA(XMA(L,4),4))/5)/2,LINETHICK0,COLORRED{XG51};
中顶:=(XMA(XMA(H,30),30)+XMA(XMA(H,40),40)+XMA(XMA(H,50),50)+XMA(XMA(H,60),60))/4*2.03-(XMA(XMA(L,30),30)+XMA(XMA(L,40),40)+XMA(XMA(L,50),50)+XMA(XMA(L,60),60))/4,LINETHICK2,COLORWHITE{XG51};
中底:=(XMA(XMA(L,30),30)+XMA(XMA(L,40),40)+XMA(XMA(L,50),50)+XMA(XMA(L,60),60))/4*1.97-(XMA(XMA(H,30),30)+XMA(XMA(H,40),40)+XMA(XMA(H,50),50)+XMA(XMA(H,60),60))/4,LINETHICK2,COLORWHITE{XG51};
长顶:=(XMA(XMA(H,90),90)+XMA(XMA(H,120),120)+XMA(XMA(H,150),150))/3*2.08-(XMA(XMA(L,90),90)+XMA(XMA(L,120),120)+XMA(XMA(L,150),150))/3,LINETHICK2,COLORBLUE{XG51};
长底:=(XMA(XMA(L,90),90)+XMA(XMA(L,120),120)+XMA(XMA(L,150),150))/3*1.92-(XMA(XMA(H,90),90)+XMA(XMA(H,120),120)+XMA(XMA(H,150),150))/3,LINETHICK2,COLORBLUE{XG51};
波段顶:(XMA(XMA(H,120),120)-XMA(XMA(L,120),120))*4+XMA(XMA(H,120),120),LINETHICK1,COLORBLUE{XG51};
波段底:XMA(XMA(L,120),120)-(XMA(XMA(H,120),120)-XMA(XMA(L,120),120))*4,LINETHICK1,COLORBLUE{XG51};
AF长:=EMA((CLOSE+HIGH+LOW)/3,18){XG51};
BF长:=REF(AF长,1){XG51};
AF中:=EMA((CLOSE+HIGH+LOW)/3,10){XG51};
BF中:=REF(AF中,1){XG51};
AF5:=EMA((CLOSE+HIGH+LOW)/3,6){XG51};
BF5:=REF(AF5,1){XG51};
AF3:=EMA((CLOSE+HIGH+LOW)/3,3){XG51};
BF3:=REF(AF3,1){XG51};
买入定位:=AF长>BF长 OR AF中>BF中 OR AF5>BF5 OR AF3>BF3{XG51};
卖出定位:=AF长<BF长 OR AF中<BF中 OR AF5<BF5{XG51};
顶底定位:=AF长<BF长 OR AF中<BF中 OR AF5<BF5 OR AF3<BF3{XG51};
STICKLINE(买入定位=1,LOW,HIGH,0.0,1),COLORWHITE{XG51};
STICKLINE(买入定位=1,CLOSE,OPEN,2,1),COLORWHITE{XG51};
STICKLINE(AF中<BF中,LOW,HIGH,0.0,0),COLORCYAN{XG51};
STICKLINE(AF中<BF中,CLOSE,OPEN,2,1),COLORCYAN{XG51};
STICKLINE(卖出定位=1 AND 中中顶>中顶,LOW,HIGH,0.0,1),COLORCYAN{XG51};
STICKLINE(卖出定位=1 AND 中中顶>中顶,CLOSE,OPEN,2,1),COLORCYAN{XG51};
STICKLINE(顶底定位=1 AND H>中中顶 AND H>中顶,CLOSE,OPEN,2,1),COLORCYAN{XG51};
STICKLINE(顶底定位=1 AND H>中中顶 AND H>中顶,LOW,HIGH,0.0,1),COLORCYAN{XG51};
加仓定位1:=卖出定位=1 AND 中中顶>中顶{XG51};
加仓定位2:=顶底定位=1 AND H>中中顶 AND H>中顶{XG51};
DRAWTEXT(中中中<EMA中中中 AND crOSS(AF中,BF中) AND 短中底<中中底 AND 短中底<中底,L*0.97,'↖战神推荐'),COLORFF00FF{XG51};
DRAWTEXT(中中中>=EMA中中中 AND CROSS(AF中,BF中) AND 短中底<中中底,L*0.97,'↖强烈推荐'),COLORFF00FF{XG51};
DRAWTEXT(CROSS(BF3,AF3) AND H>中中顶 AND H>中顶,H*1.03,'↙【逃顶】'),COLORCYAN{XG51};
DRAWTEXT(加仓定位1=0 AND 加仓定位2=0 AND CROSS(AF中,BF中) AND 中中中>=EMA中中中,L*0.995,'↖加'),COLORBLUE{XG51};
DRAWTEXT(CROSS(AF长,BF长) AND 中底<长底,L*0.97,'↖【抄底】'),COLORWHITE{XG51};
DRAWTEXT(CROSS(AF长,BF长) AND 中底<长底 AND 中底>长底,L*0.97,'↖中底'),COLORBLUE{XG51};
STICKLINE(AF中>BF中 AND 短中底<中底 AND 短中底<中底,CLOSE,OPEN,2,0),COLORWHITE{XG51};
DRAWTEXT(AF3>BF3 AND 短中底<中中底 AND H<中中底,L*0.985,'↖投机'),COLORRED{XG51};
STICKLINE(AF3>BF3 AND 短中底<中中底 AND H<中中底,CLOSE,OPEN,1,0),COLORWHITE{XG51};
STICKLINE(中中中>=EMA中中中 AND CROSS(AF中,BF中) AND AF中<中中中 AND AF中<(中顶+中底)/2 AND H<短中顶,CLOSE,OPEN,3,0),COLORWHITE{XG51};
DRAWTEXT(中中中>=EMA中中中 AND CROSS(AF中,BF中) AND AF中<中中中 AND AF中<(中顶+中底)/2 AND H<短中顶,L*0.97,'↖【买】'),COLORFFFF00{XG51};
DRAWTEXT(CROSS(BF中,AF中) AND 中中中<EMA中中中,H*1.01,'↙卖'),COLORCYAN{XG51};
DRAWICON(AF中<中中中 AND AF中<(中顶+中底)/2 AND H<短中顶 AND CROSS(AF中,BF中) AND 中中中<EMA中中中,L*0.99,1){XG51};
DRAWTEXT(CROSS((高0+低0)/2,(D90H+D90L)/2),波段底0*0.965,'↖【空转多】'),COLORWHITE{XG51};
DRAWTEXT(CROSS((D90H+D90L)/2,(高0+低0)/2),波段顶0*1.04,'↙【多转空】'),COLORRED{XG51};
DX:DRAWLINE(HIGH>=HHV(HIGH,12),HIGH,LOW<=LLV(LOW,12),HHV(HIGH,4),1),LINETHICK1,COLORLIMAGENTA{XG51};
KX:DRAWLINE(LOW<=LLV(LOW,12),LOW,HIGH>=HHV(HIGH,12),LLV(LOW,4),1),LINETHICK1,COLORRED{XG51};
DRAWTEXT(ISLASTBAR,波段底,'底'),COLORBLUE{XG51};
DRAWTEXT(ISLASTBAR,波段顶,'顶'),COLORBLUE{X*G+5^1*C*N*{};

源码正文：

N:=12;N1:=26;M:=9{XG51};
difF:ema(CLOSE,12)-Ema(CLOSE,26){XG51};
DEA:EMA(DIFF,9){XG51};
macd:2*(DIFF-DEA),NODRAW{XG51};
连续走强:BArslAstCOUNT(MacD>REF(MACD,1) AND MACD>0),NODRAW,COLOR0030FF,{XG51};
强势回调:BARSLASTCOUNT(MACD<REF(MACD,1) AND MACD>0),NODRAW,COLOR0030FF,{XG51};
连续走弱:BARSLASTCOUNT(MACD<REF(MACD,1) AND MACD<0),NODRAW,COLOR00FF30,;{XG51};
连续反弹:BARSLASTCOUNT(MACD>REF(MACD,1) AND MACD<0),NODRAW,COLOR00FF30,;{XG51};
STICKLINE(MACD>=0,MACD,0,4,1),COLORF00FF0{XG51};
STICKLINE(MACD<0,MACD,0,4,1),COLORRED{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,4,0 ),COLOR00AAFF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,3.3,0 ),COLOR00BBFF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2.2,0 ),COLOR00CCFF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,1.65,0 ),COLOR00ddfF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,1.1,0 ),COLOR00EEFF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,0.55,0 ),COLOR00FFFF{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,4 ,0 ),COLOR0000AA{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,3.3 ,0 ),COLOR0011BB{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2.2,0 ),COLOR0022CC{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,1.65 ,0 ),COLOR0033DD{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,1.1 ,0 ),COLOR0044EE{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,0.55 ,0 ),COLOR0055FF{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,4,0 ),COLORAA00BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,3.3 ,0 ),COLORBB11BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2.2,0 ),COLORCC22BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,1.65,0 ),COLORDD33BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,1.1,0 ),COLOREE44BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,0.55 ,0 ),COLORFF55BB{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,4,0 ),COLORFFAA00{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,3.3 ,0 ),COLORFFBB11{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2.2,0 ),COLORFFCC22{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,1.65 ,0 ),COLORFFDD33{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,1.1 ,0 ),COLORFFEE44{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,0.55 ,0 ),COLORFFFF55{XG51};
IF(DIFF<0,DIFF,0),COLORWHITE,LINETHICK1{XG51};
IF(DIFF<0,0,DIFF),COLORBLUE,LINETHICK1{XG51};
IF(DIFF<DEA,DIFF,DEA),COLOR00FF00,LINETHICK1{XG51};
IF(DIFF>DEA,DEA,DEA),COLORYELLOW,LINETHICK1{XG51};
低位金叉:=crOSS(DIFF,DEA) AND DIFF<-0.1{XG51};
STICKLINE(低位金叉,0,-0.10,3,0),COLORBLUE{XG51};
DRAWTEXT(低位金叉,-0.05,' 低位金叉'),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,-0.10,3,0),COLORFF00FF{XG51};
DRAWICON(二次金叉,DEA*1.04,13) {XG51};
DRAWTEXT(二次金叉,-0.08,' 二次金叉'),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,0.13,3,0),COLORWHITE{XG51};
DRAWTEXT(底背离,DEA,' 底背离'),COLORWHITE{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};
DRAWTEXT(顶背离,DEA,' 顶背离'),COLORCYAN{XG51};
A11:=DIFF<0 AND DEA<0{XG51};
A22:=A11>REF(A11,1){XG51};
A3:=BARSLAST(A22){XG51};
A4:=COUNT(DEA>0 AND DIFF>0,A3)=0{XG51};
A5:=CROSS(DIFF,DEA){XG51};
A6:=BARSLAST(A5){XG51};
A7:=REF(A6,A6+1)+A6{XG51};
A8:=(DIFF+DEA)/2{XG51};
A9:=(HIGH+LOW)/2{XG51};
A110:=A5 AND A7<A3 AND A4 AND A8>REF(A8,A7) AND A9<REF(A9,A7) AND MACD>0{XG51};
DRAWTEXT(A110,DIFF*0.95,'★金叉介入'),COLORBLUE{X-G-5_1-C-N-{};