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

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

源码正文：

0{XG51};
SJV:=FINANCE(34){XG51};
市净率:C/SJV,NODRAW,COLOR00FF00{XG51};
每股税后利润:=(FINANCE(1)/FINANCE(29)){XG51};
市盈率:C/FINANCE(33),NODRAW,COLORFFFF00{XG51};
dif:=ema(CLOSE,10)-Ema(CLOSE,22){XG51};
DE:=EMA(DIF,7.5){XG51};
macdA:=2*(DIF-DE),{XG51};
HZL:=crOSS(MacDA,0){XG51};
LZH:=CROSS(0,MACDA){XG51};
BC:=BArslAst(HZL OR LZH)+1{XG51};
ZGHZ:=IF(MACDA>0,HHV(MACDA,BC),0){XG51};
ZGLZ:=IF(MACDA<0,LLV(MACDA,BC),0){XG51};
DRAWBAND(ZGHZ,RGB(105,77,77),0,RGB(77,77,77)){XG51};
DRAWBAND(ZGLZ,RGB(80,0,0),0,RGB(66,88,66)){XG51};
DIFF:EMA(CLOSE,10)-EMA(CLOSE,22),COLORFFFFFF{XG51};
DEA:EMA(DIFF,7.5),COLOR00FFFF{XG51};
MACD:2*(DIFF-DEA), COLORSTICK,LINETHICK0{XG51};
STICKLINE(MACD>0 AND MACD>REF(MACD,1),0,MACD,1.5,1),COLORWHITE{XG51};
STICKLINE(MACD>0 AND MACD<REF(MACD,1),0,MACD,1.5,0),COLOR90FF00{XG51};
STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,1.5,1),COLOREFFF00{XG51};
STICKLINE(MACD<0 AND MACD>REF(MACD,1),0,MACD,1.5,0),COLORFFAAFF{XG51};
STICKLINE(MACD>0 AND MACD=HHV(MACD,BARSLAST(MACD<0)) AND MACD>=REFX(MACD,1) AND MACD>=REFX(MACD,2),MACD,MACD*0.5,0.6,1),COLOR00F0FF{XG51};
STICKLINE(MACD<0 AND MACD=LLV(MACD,BARSLAST(MACD>0)) AND MACD<=REFX(MACD,1) AND MACD<=REFX(MACD,2),MACD,MACD*0.5,0.6,1),COLORFFAAFF{XG51};
↑:TROUGHBARS(3,3,1),COLOR0000FF,NODRAW{XG51};
↓:PEAKBARS(3,3,1),COLOR00FF00,NODRAW{XG51};
低:IF(↑=0,DIFF,IF(↓<↑,TROUGH(3,3,1),REF(TROUGH(3,3,1),1))),COLOR00FFFF,NODRAW{XG51};
高:IF(↓=0,DIFF,IF(↑<↓,PEAK(3,3,1),REF(PEAK(3,3,1),1))),COLOR00FF00,NODRAW{XG51};
STICKLINE(↑=0 AND DIFF<0 AND DIFF<DEA,0,DIFF,0,0),COLORFFAAFF{XG51};
STICKLINE(↓=0 AND DIFF>0 AND DIFF>DEA,DIFF,0,0,0),COLOR00FF00{XG51};
DRAWTEXT(↑=0 AND DIFF<0 AND DIFF<DEA,DIFF,'低'),COLORFFAAFF{XG51};
DRAWTEXT(↓=0 AND DIFF>0 AND DIFF>DEA,DIFF,'高'),COLOR00FF00{XG51};
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1{XG51};
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0)){XG51};
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1{XG51};
AA1:=BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
底背离:=(REF(L,AA1+1)>L OR REF(C,AA1+1)>C) AND (L,DIFF)>REF((L,DIFF),AA1+1) AND CROSS(DIFF,DEA){XG51};
DRAWLINE(AA1=0,DEA,底背离,DEA,0),COLOR0000FF,LINETHICK1{XG51};
AA2:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
顶背离:=(REF(C,AA2+1)<C OR REF(H,AA2+1)<H) AND REF((H,DIFF),AA2+1)>(H,DIFF) AND CROSS(DEA,DIFF){XG51};
DRAWLINE(AA2=0,DEA,顶背离,DEA,0),COLORCYAN,LINETHICK1{XG51};
DRAWICON(CROSS(DIFF,DEA) AND DIFF>0,DEA,36){XG51};
DRAWICON(CROSS(DEA,DIFF) AND DIFF>0,DEA,37){XG51};
DRAWICON(CROSS(DIFF,DEA) AND DIFF<0,DEA,1){XG51};
DRAWICON(二次金叉,DEA*0.9,36) {XG51};
解盘1:=CONST(IF(MACD>0,1,0)){XG51};
解盘2:=CONST(IF(MACD<0,1,0)){XG51};
解盘A:=IF(解盘1=1,'【精华8个字 买小卖小，缩头缩脚】 当股价一波比一波高时，反而红柱的堆，
一堆比一堆小，证明产生了顶背离现象，应该及时卖出',
IF(解盘2=1,'【精华8个字 买小卖小，缩头缩脚】 当股价一波比一波低时，
反而绿柱的堆一堆比一堆小，证明产生了底背离，应该买进',
DRAWNULL)){XG51};
DRAWTEXT_FIX((解盘1=1 OR 解盘2=1),0.16,0,0,解盘A),COLORFFEE00{X*G-5*1*C*N*{};

通达信动能未加密选股指标公式源码

源码正文：

AA:=ema((2*C+H+L)/4,3){XG51};
A1:=SLOPE(AA*5-REF(AA,5),5)+C{XG51};
Ddif:=Ema(A1,3) - EMA(A1,13){XG51};
ddeA:=EMA(ddiF,3){XG51};
k线动能:=(DDIF-DDEA)*50{XG51};
stICKLINE((K线动能 > 0),0,K线动能,2,0),COLORBLUE{XG51};
STICKLINE((K线动能 > 0),0,K线动能*0.9,2,0),COLORBLUE{XG51};
STICKLINE((K线动能 > 0),0,K线动能*0.8,2,0),COLORBLUE{XG51};
STICKLINE((K线动能 > 0),0,K线动能*0.7,2,0),COLOR0000FF{XG51};
STICKLINE((K线动能 > 0),0,K线动能*0.6,2,0),COLOR0000FF{XG51};
STICKLINE((K线动能 > 0),0,K线动能*0.5,2,0),COLOR0000FF{XG51};
STICKLINE((K线动能 > 0),0,K线动能*0.4,2,0),COLOR0000FF{XG51};
STICKLINE((K线动能 > 0),0,K线动能*0.3,2,0),COLOR0000FF{XG51};
STICKLINE((K线动能 > 0),0,K线动能*0.2,2,0),COLOR0000FF{XG51};
STICKLINE((K线动能 > 0),0,K线动能*0.1,2,0),COLOR0000FF{XG51};
STICKLINE((K线动能 < 0),0,K线动能,2,0),COLOR00FF00{XG51};
STICKLINE((K线动能 < 0),0,K线动能*0.9,2,0),COLOR00FF00{XG51};
STICKLINE((K线动能 < 0),0,K线动能*0.8,2,0),COLOR00FF00{XG51};
STICKLINE((K线动能 < 0),0,K线动能*0.7,2,0),COLORFF9900{XG51};
STICKLINE((K线动能 < 0),0,K线动能*0.6,2,0),COLORFF9900{XG51};
STICKLINE((K线动能 < 0),0,K线动能*0.5,2,0),COLORFF9900{XG51};
STICKLINE((K线动能 < 0),0,K线动能*0.4,2,0),COLORFF9900{XG51};
STICKLINE((K线动能 < 0),0,K线动能*0.3,2,0),COLORFF9900{XG51};
STICKLINE((K线动能 < 0),0,K线动能*0.2,2,0),COLORFF9900{XG51};
STICKLINE((K线动能 < 0),0,K线动能*0.1,2,0),COLORFF9900{XG51};
M1:=(DCLOSE-CLOSE)*50{XG51};
M2:EMA(EMA(M1,2),5){XG51};
IF(M2>0,M2,DRAWNULL)COLORWHITE,LINETHICK2{XG51};
IF(M2<0,M2,DRAWNULL)COLORYELLOW,LINETHICK2{XG51};
STICKLINE(crOSS(M2,0),0,25,3,0)COLORLIMAGENTA{XG51};
STICKLINE(CROSS(0,M2),0,-25,3,0)COLORRED{XG51};
VC:=(2*CLOSE+HIGH+LOW)/4{XG51};
K:=SLOPE(WMA(VC,5),9)*5+VC,COLOR00FFFF{XG51};
D:=WMA(K,3),COLOR00FF00{XG51};
J:=2.8*K-1.8*D,COLOR0099FF,LINETHICK2{XG51};
K3:=EMA(K,3){XG51};
D3:=EMA(D,3){XG51};
kd:=(K3+D3)/2{XG51};
KDCD:=EMA(KD,5)-EMA(KD,13){XG51};
KDCD3:EMA(KDCD,3)*50{XG51};
IF(KDCD3>REF(KDCD3,1),KDCD3,DRAWNULL),COLORWHITE{XG51};
IF(KDCD3<REF(KDCD3,1),KDCD3,DRAWNULL),COLORYELLOW{XG51};
DRAWTEXT(CROSS(M2,KDCD3),KDCD3=M2,'▲'),COLOR00FFFF{XG51};
DRAWTEXT(CROSS(KDCD3,M2),KDCD3=M2,'▼'),COLOR00FF00{X~G!5*1~C~N~{};