通达信超牛MACD未加密选股指标公式源码

源码正文：

difF:ema(CLOSE,12)-Ema(CLOSE,26){XG51};
DEA:EMA(DIFF,9){XG51};
macd:2*(DIFF-DEA),LINETHICK0{XG51};
连续走强:LAst(MacD>REF(MACD,1) AND MACD>0,9,3),LINETHICK0,COLOR0030FF{XG51};
强势回调:LAST(MACD<REF(MACD,1) AND MACD>0,7,3),LINETHICK0,COLOR0030FF{XG51};
连续走弱:LAST(MACD<REF(MACD,1) AND MACD<0,9,5),LINETHICK0,COLOR00FF30;{XG51};
连续反弹:LAST(MACD>REF(MACD,1) AND MACD<0,5,3),LINETHICK0,COLOR00FF30;{XG51};
STICKLINE(MACD>=0,MACD,0,2,1),COLORF00FF0{XG51};
STICKLINE(MACD<0,MACD,0,2,1),COLORRED{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,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,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,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,6,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,6,0),COLORFF00FF{XG51};
DRAWICON(二次金叉,DEA*1.04,13) {XG51};
DRAWTEXT(二次金叉,-0.08,' 二次金叉'),COLORFF00FF{XG51};
A11:=BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
底背离:=REF(CLOSE,A11+1)>CLOSE AND DIFF>REF(DIFF,A11+1) AND CROSS(DIFF,DEA){XG51};
STICKLINE(底背离,0,0.13,6,0),COLORWHITE{XG51};
DRAWTEXT(底背离,DEA,' 底背离'),COLORWHITE{XG51};
A22:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
顶背离:=REF(CLOSE,A22+1)<CLOSE AND REF(DIFF,A22+1)>DIFF AND CROSS(DEA,DIFF){XG51};
DRAWTEXT(顶背离,DEA,' 顶背离'),COLORCYAN{XG51};
A1:=DIFF<0 AND DEA<0{XG51};
A2:=A1>REF(A1,1){XG51};
A3:=BARSLAST(A2){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};
A10:=A5 AND A7<A3 AND A4 AND A8>REF(A8,A7) AND A9<REF(A9,A7) AND MACD>0{XG51};
DRAWTEXT(A10,DIFF*0.95,'★金叉介入'),COLORBLUE{X!G.5-1!C!N!{};

源码正文：

N:=13;P1:=80;P2:=100{XG51};
VAR2:=CLOSE*vol{XG51};
VAR3:=ema((expma(VAR2,3)/EXPma(VOL,3)+EXPMA(VAR2,6)/EXPMA(VOL,6)+EXPMA(VAR2,12)/EXPMA(VOL,12)+EXPMA(VAR2,24)/EXPMA(VOL,24))/4,N){XG51};
VAR4:=EXPMA(CLOSE,9){XG51};
上轨:EXPMA(VAR4*1.11,5),COLORCYAN,NODRAW{XG51};
下轨:EXPMA(VAR4*0.89,5),COLORLIMAGENTA,NODRAW{XG51};
DRAWBAND(MA(CLOSE,10),RGB(100,50,50),上轨,RGB(100,50,50)){XG51};
DRAWBAND(MA(CLOSE,10),RGB(0,60,100),下轨,RGB(0,60,100)){XG51};
stICKLINE(MA(C,30)<MA(C,20)AND MA(C,20)<MA(C,10)AND MA(C,10)<MA(C,5),MA(CLOSE,10),下轨,0,4),COLORYELLOW{XG51};
STICKLINE(MA(C,30)<MA(C,20)AND MA(C,20)<MA(C,10)AND MA(C,10)<MA(C,5),下轨*1.01,下轨,4,0),COLORWHITE,LINETHICK4{XG51};
STICKLINE(C>MA(CLOSE,10) ,H,L,0,0),COLORWHITE{XG51};
STICKLINE(C>MA(CLOSE,10) ,O,C,3,1),COLORWHITE{XG51};
STICKLINE(C>MA(CLOSE,10)AND C<=O ,H,L,0,0),COLORCYAN{XG51};
STICKLINE(C>MA(CLOSE,10)AND C<=O ,O,C,3,1),COLORCYAN{XG51};
STICKLINE(C<=MA(CLOSE,10) ,H,L,0,0),COLORGRAY{XG51};
STICKLINE(C<=MA(CLOSE,10) ,O,C,3,1),COLORGRAY{XG51};
STICKLINE(上轨>LOW AND 上轨<HIGH,上轨,MAX(上轨,MAX(OPEN,CLOSE)),3,0),COLORCYAN{XG51};
STICKLINE(上轨>MIN(C,O) AND 上轨<MAX(C,O),上轨,MAX(OPEN,CLOSE),3,0),COLORCYAN{XG51};
STICKLINE(上轨>LOW AND 上轨<HIGH,上轨,HIGH,0,0),COLORCYAN{XG51};
STICKLINE(上轨<LOW,OPEN,CLOSE,3,0),COLORCYAN{XG51};
STICKLINE(上轨<LOW,HIGH,LOW,0,0),COLORCYAN{XG51};
STICKLINE(下轨>LOW AND 下轨<HIGH,下轨,MIN(MIN(OPEN,CLOSE),下轨),3,0),COLORLIMAGENTA{XG51};
STICKLINE(下轨>MIN(C,O) AND 下轨<MAX(C,O),下轨,MIN(OPEN,CLOSE),3,0),COLORLIMAGENTA{XG51};
STICKLINE(下轨>LOW AND 下轨<HIGH,下轨,LOW,0,0),COLORLIMAGENTA{XG51};
STICKLINE(下轨>HIGH,OPEN,CLOSE,3,0),COLORLIMAGENTA{XG51};
STICKLINE(下轨>HIGH,HIGH,LOW,0,0),COLORLIMAGENTA{XG51};
MA6:=MA(C,5),COLORRED{XG51};
买进价:=((C-REF(MA6,1))/6+MA6)*1.004{XG51};
买进条件:=crOSS(C,买进价) AND 买进价>REF(买进价,1)AND C>MA(CLOSE,10){XG51};
STICKLINE(买进条件,H,L,0,1),COLORBLUE,LINETHICK2{XG51};
STICKLINE(买进条件,O,C,2,0),COLORBLUE,LINETHICK2{XG51};
买线:=EMA(C,2){XG51};
卖线:=EMA(SLOPE(C,26)*15+C,45){XG51};
BU:=CROSS(买线,卖线){XG51};
趋势线:MA(CLOSE,10),COLORBLUE,LINETHICK2{XG51};
IF(趋势线<REF(趋势线,1),趋势线,DRAWNULL),COLORCYAN,LINETHICK2;
IF(趋势线>REF(趋势线,1),趋势线,DRAWNULL),COLORWHITE,LINETHICK2;
SEL:=CROSS(卖线,买线){XG51};
JC:=(REF(C,3)+REF(C,5)+REF(C,7)+REF(C,8)+REF(C,13)+REF(C,21))/6{XG51};
参考价:=SMA(JC,5,1),COLORGREEN{XG51};
价:=IF(C>=参考价,参考价,参考价*0.98 ), CIRCLEDOT,COLOR0000FF{XG51};
十日乖离:(CLOSE-MA(CLOSE,10))/MA(CLOSE,10)*100,COLORBLUE,NODRAW{XG51};
STICKLINE(十日乖离>30,MA(CLOSE,10)*1.3,MA(CLOSE,10)*1.305,8,0),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.00,0.00,0,'主题投资：')COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.07,0.00,0,EXTERNSTR(0,1))COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.00,0.08,0,'主营业务：')COLORFF00FF{XG51};
DRAWTEXT_FIX(1,0.07,0.08,0,EXTERNSTR(0,2))COLORBLUE{XG51};
超B:=L2_AMO(0,2)/10000.0{XG51};
大B:=L2_AMO(1,2)/10000.0{XG51};
中B:=L2_AMO(2,2)/10000.0{XG51};
小B:=L2_AMO(3,2)/10000.0{XG51};
超S:=L2_AMO(0,3)/10000.0{XG51};
大S:=L2_AMO(1,3)/10000.0{XG51};
中S:=L2_AMO(2,3)/10000.0{XG51};
小S:=L2_AMO(3,3)/10000.0{XG51};
TESTSKIP(NOT(超B OR 大B OR 中B OR 小B OR 超S OR 大S OR 中S OR 小S)!=0){XG51};
大宗进:=(超B)+(大B),NODRAW{XG51};
大宗出:=(超S)+(大S),NODRAW{XG51};
非大宗进:=(中B)+(小B),NODRAW{XG51};
非大宗出:=(中S)+(小S),NODRAW{XG51};
DAZHIV:=CONST(MAX(Abs(大宗进),MAX(ABS(大宗出),MAX(ABS(非大宗进),ABS(非大宗出))))),NODRAW{XG51};
DRAwrECTREL(0,CONST(950-(ABS(大宗进)*250/DAZHIV))-20,30,950,IF(CONST(大宗进>0),RGB(255,0,0),RGB(23,125,255))){XG51};
DRAWRECTREL(32,CONST(950-(ABS(大宗出)*250/DAZHIV))-20,62,950,IF(CONST(大宗出>0),RGB(23,125,255),RGB(255,0,0))){XG51};
DRAWRECTREL(92,CONST(950-(ABS(非大宗进)*250/DAZHIV))-20,122,950,IF(CONST(非大宗进>0),RGB(255,0,0),RGB(23,125,255))){XG51};
DRAWRECTREL(124,CONST(950-(ABS(非大宗出)*250/DAZHIV))-20,154,950,IF(CONST(非大宗出>0),RGB(23,125,255),RGB(255,0,0))){XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.015,1,0,'主力进出'),COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.107,1,0,'散户进出'),COLORGREEN{X-G-5_1-C-N-{};