通达信增强版MACD未加密选股指标公式源码

通达信增强版MACD未加密选股指标公式源码

源码正文：

difF : ema(CLOSE,12) - Ema(CLOSE,26){XG51};
DEA : EMA(DIFF,9){XG51};
macd : 2*(DIFF-DEA), COLORstICK{XG51};
HRULER:=CONST( IF(ISLASTBAR,HHV(MAX(Abs(DIFF),ABS(DEA)),90),0)),NODRAW{XG51};
绿柱面积:=IF(MacD<0,SUM(MACD,BArslAST(MACD>0)),0){XG51};
红柱面积:=IF(MACD>0,SUM(MACD,BARSLAST(MACD<0)),0){XG51};
本次最低绿柱:=IF(MACD<0,LLV(MACD,BARSLAST(MACD>0)),0){XG51};
本次最高红柱:=IF(MACD>0,HHV(MACD,BARSLAST(MACD<0)),0){XG51};
本次最低价:=LLV(L,BARSLAST(MACD>0)),NODRAW{XG51};
本次最高价:=HHV(H,BARSLAST(MACD<0)){XG51};
X1:=IF (MACD<0,BARSLAST(crOSS(DIFF,DEA)),0),NODRAW{XG51};
前次绿柱面积:=REF(绿柱面积,X1+1),NODRAW{XG51};
前次最低价:=REF(本次最低价,X1+1),NODRAW{XG51};
前次最低绿柱:=REF(本次最低绿柱,X1+1){XG51};
Y1:=IF((绿柱面积<0 AND ABS(绿柱面积)<ABS(前次绿柱面积)
AND 本次最低价<前次最低价 ),1,0),NODRAW{XG51};
Y11:=IF((绿柱面积<0 AND ABS(本次最低绿柱)<ABS(前次最低绿柱)
AND 本次最低价<前次最低价 ),1,0),NODRAW{XG51};
RS1:=MACD<0 AND REF(MACD,1)<0 AND 本次最低价<前次最低价
AND ABS(绿柱面积)<ABS(前次绿柱面积) AND ABS(MACD)<ABS(REF(MACD,1)){XG51};
UP3:=RS1 AND UPNDAY(MACD,3){XG51};
STEP1:=IF(UP3,(MACD-REF(MACD,1))*0.45+(MACD-REF(MACD,2))*0.17+(MACD-REF(MACD,3))*0.07,0){XG51};
N1:=IF(UP3,ABS(MACD)/ABS(STEP1),0),NODRAW{XG51};
补充绿柱面积:=IF(UP3,IF(N1>1,(N1-1)*MACD/2,0),0){XG51};
Y1补:=IF((绿柱面积<0 AND ABS(绿柱面积+补充绿柱面积)<ABS(前次绿柱面积)
AND 本次最低价<前次最低价 ),1,0){XG51};
底积将背:= IF( UP3,Y1补,0),NODRAW{XG51};
底柱将背:= IF(UP3,Y11,0),NODRAW{XG51};
底积背离:= IF (CROSS(DIFF,DEA),REF(Y1,1),0),NODRAW{XG51};
底柱背离:= IF(CROSS(DIFF,DEA),REF(Y11,1),0),NODRAW{XG51};
底背离:底积背离 AND 底柱背离,NODRAW{XG51};
底背程度:=IF(底积将背 OR 底积背离,ABS(前次绿柱面积)/ABS(绿柱面积+补充绿柱面积)*前次最低价/本次最低价,0),NODRAW{XG51};
底柱程度:=IF(底柱将背 OR 底柱背离,ABS(前次最低绿柱)/ABS(本次最低绿柱)*前次最低价/本次最低价,0),NODRAW{XG51};
PT:=MIN(DIFF,DEA)-HRULER/20{XG51};
PT1:=MAX(DIFF,DEA)+HRULER/20{XG51};
DRAWBAND(DIFF,RGB(200,50,55),DEA,RGB(50,100,10)){XG51};
STICKLINE(底积将背,PT,PT-MIN(底背程度,5)*HRULER/(4*5),2,0),COLORD33AE9{XG51};
DRAWICON(底积将背,PT-MIN(底背程度,5)*HRULER/(4*5)-HRULER/20,38),COLORBLUE{XG51};
STICKLINE(底柱将背,PT1,PT1+MIN(底柱程度,5)*HRULER/(4*5),2,0),COLORD33AE9{XG51};
DRAWICON(底柱将背,PT1+MIN(底柱程度,5)*HRULER/(4*5)+HRULER/10,1),COLORBLUE{XG51};
DRAWTEXT(底柱背离,PT1+HRULER/8,' 柱背'),COLOR00FFFF{XG51};
STICKLINE(底柱背离,PT1,PT1+MIN(底柱程度,5)*HRULER/(4*5),3,0),COLOR0000FF{XG51};
DRAWICON(底柱背离,PT1+MIN(底柱程度,5)*HRULER/(4*5)+HRULER/10,34),COLORBLUE{XG51};
DRAWTEXT(底积背离,PT-HRULER/8,' 积背'),COLOR00FFFF{XG51};
STICKLINE(底积背离,PT,PT-MIN(底背程度,5)*HRULER/(4*5),3,0),COLOR0000FF{XG51};
DRAWICON(底积背离,PT-MIN(底背程度,5)*HRULER/(4*5)-HRULER/20,23),COLORBLUE{XG51};
D_SCORE:=IF(底积背离 AND 底柱背离,100,
IF(底积背离 OR 底柱背离,80,
IF(底积将背 AND 底柱将背,90,
IF(底积将背 OR 底柱将背,70,
0)))){XG51};
DT_SOCRE:=IF(D_SCORE>0,D_SCORE,
IF(REF(D_SCORE,1)>0,REF(D_SCORE,1)*0.8,
IF(REF(D_SCORE,2)>0,REF(D_SCORE,2)*0.6,
IF(REF(D_SCORE,3)>0,REF(D_SCORE,3)*0.4,
IF(REF(D_SCORE,4)>0,REF(D_SCORE,4)*0.2,0) ) ) )),NODRAW{XG51};
X2:=IF (MACD>0,BARSLAST(CROSS(DEA,DIFF)),0){XG51};
前次红柱面积:=REF(红柱面积,X2+1){XG51};
前次最高价:=REF(本次最高价,X2+1){XG51};
前次最高红柱:=REF(本次最高红柱,X2+1){XG51};
Y2:=IF((红柱面积>0 AND 红柱面积<前次红柱面积 AND 本次最高价>前次最高价 ),1,0){XG51};
Y22:=IF((红柱面积>0 AND ABS(本次最高红柱)<ABS(前次最高红柱)
AND 本次最高价>前次最高价 ),1,0),NODRAW{XG51};
RS2:= MACD>0 AND REF(MACD,1)>0 AND C>前次最高价 AND ABS(红柱面积)<ABS(前次红柱面积) AND ABS(MACD)<ABS(REF(MACD,1)){XG51};
DOWN3:=RS2 AND DOWNNDAY(MACD,3){XG51};
STEP2:=IF(DOWN3,(MACD-REF(MACD,1))*0.45+(MACD-REF(MACD,2))*0.17+(MACD-REF(MACD,3))*0.07,0){XG51};
N2:=IF(DOWN3,ABS(MACD)/ABS(STEP2),0),NODRAW{XG51};
补充红柱面积:=IF(DOWN3,IF(N2>1,(N2-1)*MACD/2,0),0){XG51};
Y2补:=IF((红柱面积>0 AND ABS(红柱面积+补充红柱面积)<ABS(前次红柱面积)
AND 本次最高价>前次最高价 ),1,0){XG51};
顶积将背:= IF( DOWN3,Y2补,0),NODRAW{XG51};
顶柱将背:= IF(DOWN3,Y22,0),NODRAW{XG51};
顶积背离:= IF (CROSS(DEA,DIFF),REF(Y2,1),0),NODRAW{XG51};
顶柱背离:= IF(CROSS(DEA,DIFF),REF(Y22,1),0),NODRAW{XG51};
顶背离: 顶积背离 AND 顶柱背离,NODRAW{XG51};
顶背程度:=IF(顶积将背 OR 顶积背离,ABS(前次红柱面积)/ABS(红柱面积+补充红柱面积)*本次最高价/前次最高价,0),NODRAW{XG51};
顶柱程度:=IF(顶柱将背 OR 顶柱背离,ABS(前次最高红柱)/ABS(本次最高红柱)*本次最高价/前次最高价,0),NODRAW{XG51};
STICKLINE(顶积将背,PT,PT-MIN(顶背程度,5)*HRULER/(4*5),2,0),COLORFFFF00{XG51};
DRAWICON(顶积将背,PT-MIN(顶背程度,5)*HRULER/(4*5)-HRULER/20,39),COLORBLUE{XG51};
STICKLINE(顶柱将背,PT1,PT1+MIN(顶柱程度,5)*HRULER/(4*5),2,0),COLORFFFF00{XG51};
DRAWICON(顶柱将背,PT1+MIN(顶柱程度,5)*HRULER/(4*5)+HRULER/10,2),COLORBLUE{XG51};
DRAWTEXT(顶柱背离,PT1+HRULER/8,' 柱背'),COLOR00FFFF{XG51};
STICKLINE(顶柱背离,PT1,PT1+MIN(顶柱程度,5)*HRULER/(4*5),3,0),COLOR00FF00{XG51};
DRAWICON(顶柱背离,PT1+MIN(顶柱程度,5)*HRULER/(4*5)+HRULER/10,35),COLORBLUE{XG51};
DRAWTEXT(顶积背离,PT-HRULER/8,' 积背'),COLOR00FFFF{XG51};
STICKLINE(顶积背离,PT,PT-MIN(顶背程度,5)*HRULER/(4*5),3,0),COLOR00FF00{XG51};
DRAWICON(顶积背离,PT-MIN(顶背程度,5)*HRULER/(4*5)-HRULER/20,45),COLORBLUE{XG51};
NOTEXTSDIFF:DIFF,COLORRED{XG51};
NOTEXTSDEA:DEA,COLORBLUE{XG51};
NOTEXTMACDDRAW:MACD, COLORSTICK{X=G+5_1=C=N={};

通达信闪电主图未加密选股指标公式源码

源码正文：

红轨道:=ma(MA(CLOSE,3),1),LINETHICK1,COLORBLUE{XG51};
轨道:MA(MA(CLOSE,3),3),COLOR32CD32,LINETHICK2{XG51};
SHENG:=IF(红轨道>=轨道,轨道,DRAWNULL){XG51};
升:SHENG,COLORFF00FF,LINETHICK2{XG51};
N:=7{XG51};
T1:=CONst(LLVBARS(LOW,N)){XG51};
T1HIGH:=CONST(REF(HIGH,T1)){XG51};
CC:=CONST(CURRBARSCOUNT){XG51};
T2:=CONST(BArslAST((CURRBARSCOUNT >(CC+T1)) AND (HIGH>T1HIGH))){XG51};
T2HIGH:=CONST(REF(HIGH,T2)){XG51};
T3:=CONST(BARSLAST((CURRBARSCOUNT >(CC+T2)) AND (HIGH>T2HIGH))){XG51};
T3HIGH:=CONST(REF(HIGH,T3)){XG51};
突破杀入线:DRAWLINE(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),DOTLINE,COLOR1188FF{XG51};
DRAWTEXT(ISLASTBAR, T3HIGH, '突破加仓!'),LINETHICK1,COLOR1188FF{XG51};
AB:=ema(((2*C+H+L)/4-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,8){XG51};
BA:=EMA(AB,5){XG51};
A1:=REFDATE(REF(HHV(H,96),5),DATE){XG51};
B1:=REFDATE(REF(LLV(L,96),5),DATE){XG51};
DY:=((A1)+(B1))/2{XG51};
箱顶:IF(AB>0 AND AB-BA<=0,A1,A1),LINETHICK2,COLORCYAN{XG51};
箱腰:IF(AB>0 AND AB-BA<=0,DY,DY),DOTLINE,COLORBLUE{XG51};
箱低:IF(AB>0 AND AB-BA<=0,B1,B1),LINETHICK2,COLORWHITE{XG51};
DRAWTEXT(ISLASTBAR,箱顶,'箱顶'),COLORBLUE{XG51};
DRAWTEXT(ISLASTBAR,箱腰,'箱腰'),COLORBLUE{XG51};
DRAWTEXT(ISLASTBAR,箱低,'箱低'),COLORBLUE{XG51};
VARAA:=IF(CLOSE>150,91.3,0.913){XG51};
STICKLINE(crOSS(zig(3,5),REF(ZIG(3,5),1)),箱低,箱腰,0.1,-1),COLORWHITE{XG51};
STICKLINE(CROSS(REF(ZIG(3,5),1),ZIG(3,5)),箱顶,箱腰,0.1,-1),COLORCYAN{XG51};
DRAWICON(CROSS(ZIG(3,5),REF(ZIG(3,5),1)),箱腰,1){XG51};
DRAWICON(CROSS(REF(ZIG(3,5),1),ZIG(3,5)),箱腰,2){XG51};
SZ:=C>REF(C,1){XG51};
STICKLINE(SZ,HIGH,LOW,0,0),COLORWHITE{XG51};
STICKLINE(SZ,OPEN,CLOSE,3.1, 0),COLOR000077{XG51};
STICKLINE(SZ,OPEN,CLOSE,2.5, 0),COLOR000088{XG51};
STICKLINE(SZ,OPEN,CLOSE,2.2, 0),COLOR000099{XG51};
STICKLINE(SZ,OPEN,CLOSE,1.9, 0),COLOR0000AA{XG51};
STICKLINE(SZ,OPEN,CLOSE,1.7, 0),COLOR0000BB{XG51};
STICKLINE(SZ,OPEN,CLOSE,1.3, 0),COLOR0000CC;
STICKLINE(SZ,OPEN,CLOSE,1.0, 0),COLOR0000DD;
STICKLINE(SZ,OPEN,CLOSE,0.7, 0),COLOR0000EE{XG51};
STICKLINE(SZ,OPEN,CLOSE,0.2, 0),COLOR0000FF{XG51};
XD:=C<REF(C,1){XG51};
STICKLINE(XD,O,L,0,0),COLOR888800{XG51};
STICKLINE(XD,O,L,0,0),COLORFFFF00{XG51};
STICKLINE(XD,C,O,3.1,0),COLOR888800{XG51};
STICKLINE(XD,C,O,3.0,0),COLOR999900{XG51};
STICKLINE(XD,C,O,2.4,0),COLORAAAA00{XG51};
STICKLINE(XD,C,O,2.0,0),COLORBBBB00{XG51};
STICKLINE(XD,C,O,1.6,0),COLORCCCC00{XG51};
STICKLINE(XD,C,O,1.2,0),COLORDDDD00{XG51};
STICKLINE(XD,C,O,0.6,0),COLOREEEE00{XG51};
STICKLINE(XD,C,O,0.1,0),COLORFFFF00{XG51};
A81:=EMA(C,3),COLORRED{XG51};
A82:=EMA(C,5),COLORBLUE{XG51};
A83:=EMA(C,7),COLORLIMAGENTA{XG51};
A84:=EMA(C,12),COLORCYAN{XG51};
A85:=EMA(C,20),COLORWHITE{XG51};
A86:=EMA(C,50),COLORYELLOW,LINETHICK2{XG51};
SS8:=CROSS(A81,A85) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018 {XG51};
SSS8:=CROSS(A81,A85) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018{XG51};
DRAWICON(SS8 ,L-0.15,5){XG51};
DRAWTEXT(SS8,L-0.15,'↖绝密买点'),COLORBLUE{XG51};
ZYX1:="dmi.pdi"(12,6){XG51};
ZYX2:="DMI.mdi"(12,6){XG51};
ZYX3:=ZYX1>65 AND ZYX1>REF(ZYX1,1){XG51};
ZYX4:=LLV(ZYX1,0){XG51};
ZYX5:=BARSLAST(ZYX4=ZYX1){XG51};
ZYX6:=(0-REF(ZYX2,4))/(ZYX4-REF(ZYX2,ZYX5))>2{XG51};
ZYX7:=ZYX1>REF(ZYX1,1){XG51};
ZYX8:=vol>2*MA(VOL,30){XG51};
ZYX9:="DMI.ADX"(12,6){XG51};
ZYXA:="DMI.ADXR"(12,6){XG51};
ZYXB:=CLOSE>MA(CLOSE,30) AND CLOSE<MA(CLOSE,30)*1.04{XG51};
ZYXC:=MA(CLOSE,30)>REF(MA(CLOSE,30),1){XG51};
ZYXD:=BARSLAST(CROSS(MA(CLOSE,5),MA(CLOSE,10)))<BARSLAST(CROSS(MA(CLOSE,10),MA(CLOSE,5))){XG51};
ZYXF:=TROUGHBARS(3,15,1)<4{XG51};
ZYX10:=EMA(CLOSE,30)>REF(EMA(CLOSE,30),2){XG51};
ZYX11:=IF(ZYXF=1,50,0){XG51};
ZYX12:=CROSS(ZYX2,ZYX1) AND CROSS(ZYXA,ZYX9){XG51};
ZYX13:=CROSS(ZYX2,ZYX1) AND CROSS(ZYX9,ZYXA){XG51};
ZYX14:=ZYXB AND ZYXC AND ZYXD AND ZYX10 AND ZYX6 AND ZYX7 AND ZYX8*50{XG51};
ZYX15:=BARSLAST(CROSS(ZYX2,ZYX1)=1){XG51};
ZYX16:=BARSLAST(CROSS(ZYX1,ZYX2)=1){XG51};
ZYX17:=HHV(ZYX1,ZYX16){XG51};
ZYX18:=BARSLAST(ZYX1=ZYX17){XG51};
ZYX19:=ZYX3 OR ZYX12 OR ZYX13*100{XG51};
ZYX1A:=ZYX13*100{XG51};
DRAWICON(FILTER(ZYXF=1,3),MA(L,3),23){XG51};
DRAWTEXT(FILTER(ZYXF=1,3),箱低-0.1,'■■铁底■■'),COLORBLUE{XG51};
LC:=REF((O+H+L+2*C)/5,1){XG51};
W1:=C=HHV(C,20){XG51};
W2:=BARSLAST(W1){XG51};
W3:=IF(W2>0,REF(C,W2),REF(C,W2)){XG51};
W4:=CROSS(C,REF(W3,1)){XG51};
突破盘整:=W4 AND COUNT(W4,5)=1{XG51};
C6:=REF(C,1){XG51};
涨停:=IF((C-C6)*100/C6>=(10-0.01*100/C6),1,0){XG51};
STICKLINE(涨停,OPEN,CLOSE,1,0),COLORBLUE{XG51};
STICKLINE(涨停,H,L,0,0),COLORBLUE{XG51};
rsi1:=SMA(MAX(CLOSE-LC,0),3,1)/SMA(Abs(CLOSE-LC),3,1)*100{XG51};
SELL2:=(CROSS(88,RSI1)){XG51};
DRAWTEXT(SELL2,MA(H,3),'↙★出'),COLOR00FF00{XG51};
VB1:=C-REF(C,1){XG51};
VB2:=100*EMA(EMA(VB1,6),6)/EMA(EMA(ABS(VB1),6),6){XG51};
VB3:=IF(LLV(VB2,2)=LLV(VB2,7) AND COUNT(VB2<0,2) AND CROSS(VB2,MA(VB2,2)),1,0){XG51};
VB4:=FILTER(VB3=1,5){XG51};
DRAWTEXT(VB4,MA(L,3),'↖★买'),COLOR00FFFF{XG51};
VARD1:=(C+H+O+L)/4{XG51};
卖出:=xma(VARD1,20)*(1+80/1000),COLORFFFFFF,LINETHICK3{XG51};
买入:=XMA(VARD1,32)*(1-100/1000),COLOR0000FF,LINETHICK3{XG51};
机会来临:=REF(IF((MA(C,5)-C)/C>0.04 AND (MA(C,10)-MA(C,5))/MA(C,5)>0.04,30,0),1),COLORF00FF0,LINETHICK2{XG51};
RSV2:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K2:=REF(MA(RSV2,3),1)+(RSV2-REF(MA(RSV2,3),1))/3{XG51};
DD2:=REF(MA(K2,3),1)+(K2-REF(MA(K2,3),1))/3{XG51};
J2:=3*K2-2*DD2{XG51};
BB1:=EMA(J2,5){XG51};
BB2:=REF(BB1,1){XG51};
金叉:=CROSS(BB1,BB2){XG51};

DRAWICON(CROSS(C,买入) AND 金叉 AND 机会来临 ,MA(L,3),13){XG51};
DRAWTEXT(CROSS(C,买入) AND 金叉 AND 机会来临,MA(L,3),'↖【绝杀点】'),COLORBLUE{X_G^5.1_C_N_{};