通达信斋主精品MACD选股指标公式源码

通达信斋主精品MACD选股指标公式源码

源码正文：

W:=1{XG51};
M:=1{XG51};
MM:=9*M{XG51};
SHORT:=MM*4/3{XG51};
LONG:=MM*26/9{XG51};
difF:=(ema(CLOSE,SHORT)-Ema(CLOSE,LONG)){XG51};
DEA:=EMA(DIFF,MM),COLOR58FF58{XG51};
macd:=2*(DIFF-DEA),COLORFFFF00,LINETHICK0{XG51};
红柱:DRAWBAND(MacD,RGB(180,50,50),0,RGB(0,128,0)){XG51};
绿柱:DRAWBAND(0,RGB(0,128,0),MACD,RGB(180,50,50)){XG51};
A00:=SUM(IF((CLOSE > REF(CLOSE, 1.000)),vol,IF((CLOSE < REF(CLOSE, 1.000)),(0 - VOL),0)),0){XG51};
A01:=SUMBARS(VOL,CAPITAL){XG51};
A02:=IF((CLOSE > LLV(CLOSE,A01)), 1.000,(0 -  1.000)) * IF((A00 > LLV(A00,A01)), 1.000,(0 -  1.000)){XG51};
A03:=(COUNT((IF((A02 = (0 -  1.000)), 1.000,0) =  1.000), 8.000) >  2.000){XG51};
A04:=((CLOSE - dma(((( 3.000 * HIGH + LOW) + OPEN) +  2.000 * CLOSE) /  7.000,VOL / SUM(AMOUNT, 13.000) /
AMOUNT / VOL /  100.000 /  100.000)) / DMA(((( 3.000 * HIGH + LOW) + OPEN) +  2.000 * CLOSE) /  7.000,VOL /
SUM(AMOUNT, 13.000) / AMOUNT / VOL /  100.000 /  100.000) *  100.000 < (0 -  18.000)){XG51};
A05:=((CLOSE - MIN(REF(CLOSE, 5.000) *  0.865,REF(CLOSE, 21.000) *  0.772)) / CLOSE <  0.009){XG51};
A06:=((A03 AND A04) AND A05){XG51};
A07:=(((((OPEN < EMA(CLOSE, 5.000)) AND (CLOSE = HIGH)) AND (CLOSE / OPEN >=  1.105)) AND (VOL / CAPITAL >=
0.019)) AND (VOL / CAPITAL <=  0.200)){XG51};
A08:=(A07 AND (COUNT(A07, 5.000) =  1.000)){XG51};
A09:=((((((((((((MA(CLOSE, 3.000) > REF(MA(CLOSE, 3.000), 1.000)) AND (MA(CLOSE, 5.000) > REF(MA(CLOSE,
5.000), 1.000))) AND (MA(CLOSE, 10.000) > REF(MA(CLOSE, 10.000), 1.000))) AND (VOL /  240.000 > REF(VOL,
30.000) *  1.200 /  240.000 *  1.500)) AND (CLOSE > LOW *  1.059)) AND (CLOSE > REF(MA(CLOSE, 3.000),
1.000))) AND REF(CLOSE, 1.000)) AND (MA(CLOSE, 5.000) > REF(MA(CLOSE, 5.000), 1.000))) AND (MA(CLOSE,
10.000) > REF(MA(CLOSE, 10.000), 1.000))) AND (MA(CLOSE, 20.000) > REF(MA(CLOSE, 20.000), 1.000))) AND (MA
(VOL, 5.000) > REF(MA(VOL, 5.000), 1.000))) AND ((MA(CLOSE, 5.000) - MA(CLOSE, 10.000)) <=  0.579)){XG51};
A0A:=FILTER(A09, 5.000){XG51};
牛股:stICKLINE((A06 OR A07) AND A0A,0,0.5,2,0),COLORWHITE{XG51};
AMACD:=Abs(MACD){XG51};
VAR7Z:=EMA(AMOUNT/VOL/100,3){XG51};
VAR8Z:=EMA(VAR7Z,88){XG51};
VAR9Z:=EMA(VAR7Z,88)*0.85{XG51};
VARA:=VAR9Z*0.87{XG51};
VARB:=LOW<VARA AND CLOSE>REF(CLOSE,1)*1.02{XG51};
STICKLINE(FILTER(VARB,6),0,0.3,3,0),COLORWHITE{XG51};
N1:=7{XG51};
LC:=REF(CLOSE,1){XG51};
X:=SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100{XG51};
Y:=DRAWLINE(X>=HHV(X,N1),X,X<=LLV(X,N1),X,1){XG51};
TJ1:=X=Y{XG51};
TJ2:=X<REF(X,1){XG51};
绝对买底:STICKLINE(TJ1 AND TJ2,0,-0.22,2,0),COLORBLUE{XG51};
红柱面积 := IF (MACD>0,SUM(AMACD,BArslAST(MACD<0)),0),LINETHICK0,COLORWHITE{XG51};
绿柱面积 := IF (MACD<0,SUM(AMACD,BARSLAST(MACD>0)),0),LINETHICK0,COLORYELLOW{XG51};
BV:=SUM(MACD,0){XG51};
红转绿:=crOSS(MACD,0){XG51};
绿转红:=CROSS(0,MACD){XG51};
BC:=BARSLAST(红转绿 OR 绿转红)+1{XG51};
最高红柱子:IF(MACD>0,HHV(MACD,BC),0),NODRAW{XG51};
最低绿柱子:IF(MACD<0,LLV(MACD,BC),0),NODRAW{XG51};
DRAWTEXT(绿转红 ,REF(最高红柱子,1),''+REF(INTPART((红柱面积)*10)/10,1)),COLORWHITE{XG51};
DRAWTEXT(红转绿 ,REF(最低绿柱子,1),''+REF(INTPART((绿柱面积)*10)/10,1)),COLORWHITE{XG51};
CDIFF:DIFF;CDEA:DEA{XG51};
金叉:=CROSS(DIFF,DEA) AND DIFF<0.3{XG51};
STICKLINE(金叉,0,-0.2,3,0),COLOR0000FF{XG51};
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA){XG51};
A2:=BARSLAST(REF(CROSS("kdj.K"(9,3,3),"kdJ.D"(9,3,3)),1)){XG51};
B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)){XG51};
A3:=BARSLAST(REF(CROSS("rsi.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1)){XG51};
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)){XG51};
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF){XG51};
C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1)){XG51};
D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)){XG51};
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1)){XG51};
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)){XG51};
DIFF,COLORCYAN{XG51};
DEA,COLORBLUE{XG51};
强:IF(DIFF>MA(DIFF,2),DIFF,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
弱:IF(DEA>MA(DEA,2),DEA,DRAWNULL),COLORLIMAGENTA,LINETHICK2{XG51};
A:=REF(DIFF,1)<REF(DIFF,2) AND REF(DIFF,2)<REF(DIFF,3) AND DIFF>REF(DIFF,1){XG51};
B:=REF(DIFF,1)>REF(DIFF,2) AND REF(DIFF,2)>REF(DIFF,3) AND DIFF<REF(DIFF,1){XG51};
DD:=C=HHV(C,180){XG51};
EE:=DEA< REF(DEA,1) AND REF(DEA< REF(DEA,1),1)=1{XG51};
CC:=C> REF(C,1) AND REF(C> REF(C,1),1)=1{XG51};
上升背离:(CC AND EE)*DEA,COLOR00FFFF{XG51};
顶背离:(DD AND EE AND DEA< HHV(DEA,180))*DEA,STICK,LINETHICK3,COLORCYAN{XG51};
FF:=C=LLV(C,180){XG51};
GG:= DEA> REF(DEA,1) AND REF(DEA> REF(DEA,1),1)=1{XG51};
LL:=C< REF(C,1) AND REF(C< REF(C,1),1)=1{XG51};
下降背离:(LL AND GG)*DEA,COLORLIMAGENTA{XG51};
底背离:(FF AND GG AND DEA> LLV(DEA,180))*DEA,STICK,LINETHICK3,COLORWHITE{XG51};
MMZ:=IF(MACD< 0,MACD,0){XG51};
JJ:=MMZ> REF(MMZ,1){XG51};
ZZ:=REF(JJ,1)=1{XG51};
介入区:(JJ AND ZZ)*DEA,POINTDOT,COLORBLUE{XG51};
STICKLINE(介入区=DEA,DEA,DIFF,0.5,1),COLORBLUE{XG51};
上穿零线:STICKLINE(COUNT(DIFF>=0,60)=1 AND DIFF>=0,0,0.2,2,0),COLORBLUE{XG51};
下穿零线:STICKLINE(COUNT(DIFF<=0,60)=1 AND DIFF<=0,0.2,0.25,3,0),COLORCYAN{XG51};
低位金叉:IF(CROSS(DIFF,DEA) AND DIFF<-0.1,0.3,0),COLORBLUE,POINTDOT{XG51};
STICKLINE(低位金叉,0,-0.2,8,1),COLORBLUE{XG51};
DRAWICON(低位金叉,-0.3,1){XG51};
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0)){XG51};
二次金叉:IF(CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1,0.2,0),COLORFF00FF,POINTDOT{XG51};
STICKLINE(二次金叉,0,0.15,8,1),COLORFF00FF{XG51};
A1Z:=BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
底背离Z:IF(REF(CLOSE,A1Z+1)>CLOSE AND DIFF>REF(DIFF,A1Z+1) AND CROSS(DIFF,DEA),0.1,0),COLORWHITE,POINTDOT{XG51};
STICKLINE(底背离Z,0,-0.15,8,1),COLORLIMAGENTA{XG51};
DRAWLINE(A1Z=0,DEA,底背离Z,DEA,0),COLORLIMAGENTA,LINETHICK3{XG51};
A2Z:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
顶背离Z:IF(REF(CLOSE,A2Z+1)<CLOSE AND REF(DIFF,A2Z+1)>DIFF AND CROSS(DEA,DIFF),0.3,0),COLORCYAN{XG51};
DRAWLINE(A2Z=0,DEA,顶背离Z,DEA,0),COLORYELLOW,LINETHICK3{XG51};
A3Z:=CROSS(DIFF,DEA) AND DEA<0{XG51};
零下二次金叉:IF(FILTER(COUNT(A3Z,21)=2,10),0.05,0),COLORRED,POINTDOT{XG51};
STICKLINE(零下二次金叉,0,-0.1,8,1),COLORRED{XG51};
金叉1:DRAWICON(CROSS(DIFF,DEA),DIFF,1){XG51};
死叉1:DRAWICON(CROSS(DEA,DIFF),DIFF,2){XG51};
DRAWTEXT(REF(CLOSE,A2Z+1)<CLOSE AND REF(DIFF,A2Z+1)>DIFF AND CROSS(DEA,DIFF),0.25,'顶背离'),COLORCYAN{XG51};
DRAWTEXT(REF(CLOSE,A1Z+1)>CLOSE AND DIFF>REF(DIFF,A1Z+1) AND CROSS(DIFF,DEA),-0.14,'底背离'),COLORWHITE,POINTDOT{XG51};
DRAWTEXT(COUNT(DIFF>=0,60)=1 AND DIFF>=0,0.18,'上穿零线'),COLORBLUE{XG51};
DRAWTEXT(COUNT(DIFF<=0,60)=1 AND DIFF<=0,0.2,'下穿零线'),COLORCYAN{XG51};
DRAWTEXT(CROSS(DIFF,DEA ),-0.16,'金↗'),COLORBLUE{XG51};
DRAWTEXT(CROSS(DEA,DIFF ),0.1,'死↘'),COLORFFFF00{XG51};
DRAWTEXT(FILTER(VARB,6),0.26,'坚决买进'),COLORFF00FF{XG51};
DRAWTEXT(TJ1 AND TJ2,-0.23,'绝对买底'),COLORBLUE{XG51};
DRAWICON(CROSS(DIFF,DEA),DEA,26){XG51};
DRAWICON(CROSS(DEA,DIFF),DEA,27){XG51};
DRAWICON(B,DIFF,2){XG51};
DRAWTEXT((A06 OR A07) AND A0A,0.51,'▲&larr;超级黑马'),COLORWHITE{X+G*5~1+C+N+{};