通达信MACD交易主图未加密选股指标公式源码

源码正文：

SHORT:=12;LONG:=26;M:=12{XG51};
dif:=ema(CLOSE,SHORT)-Ema(CLOSE,LONG){XG51};
DEA:=EMA(DIF,M){XG51};
macd:=2*(DIF-DEA){XG51};
KK:=IF(DIF>DEA,5,-5){XG51};
JCSC:=(M-1)/(M+1)*DEA/(1-2/(M+1)){XG51};
DD:=(MacD/2+(DEA*(M-1)/(M+1)))/(1-2/(M+1)){XG51};
DIF拐头价:=(DIF*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1)))COLORCYAN,POINTDOT{XG51};
金死叉价:=(JCSC*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),NODRAW{XG51};
柱变向价:=(DD*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORBLUE,POINTDOT{XG51};
黄铢消失见顶:=IF(柱变向价>=DIF拐头价,柱变向价,DRAWNULL),COLORBLUE,CIRCLEDOT,LINETHICK1{XG51};
上拐:IF(DIF拐头价<柱变向价,DIF拐头价,DRAWNULL),COLORWHITE,LINETHICK4{XG51};
下拐:IF(DIF拐头价>=柱变向价,DIF拐头价,DRAWNULL),COLOR33FF33,POINTDOT,LINETHICK4{XG51};
ZJ:=上拐,COLOR0000FF{XG51};
HY:=金死叉价,COLORFF00FF{XG51};
IF(ZJ>REF(ZJ,1),ZJ,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
IF(HY>REF(HY,1),HY,DRAWNULL),COLORLIMAGENTA,LINETHICK2,NODRAW{XG51};
IF(HY<REF(HY,1),HY,DRAWNULL),COLORYELLOW,LINETHICK2,NODRAW{XG51};
stICKLINE(C>ZJ AND C>O,H,C,0,0 ),COLORWHITE{XG51};
STICKLINE(C>ZJ AND C>O,L,O,0,0 ),COLORWHITE{XG51};
STICKLINE(C>ZJ AND C>O,O,C,2.8,1),COLORWHITE{XG51};
STICKLINE(C>ZJ AND C<=O,H,L,0,0 ),COLORWHITE{XG51};
STICKLINE(C>ZJ AND C<=O,O,C,2.8,0),COLORWHITE{XG51};
STICKLINE(CLOSE=ZJ,H,L,3,0),COLORRED{XG51};
STICKLINE(CLOSE<ZJ,H,L,0,0),COLORBLUE{XG51};
STICKLINE(CLOSE<ZJ,O,C,2.5,0),COLORBLUE{XG51};
STICKLINE(C<HY AND C>O,H,C,0,0),COLORGREEN{XG51};
STICKLINE(C<HY AND C>O,O,L,0,0),COLORGREEN{XG51};
STICKLINE(C<HY AND C>O,O,C,2.8,1),COLORGREEN{XG51};
STICKLINE(C<HY AND C<=O,H,L,0,0),COLORGREEN{XG51};
STICKLINE(C<HY AND C<=O,O,C,2.8,0),COLORGREEN{XG51};
HD0:=crOSS(DIF,DEA){XG51};
金收:REF(L,BArslAST(HD0)),COLORBLUE,DOTLINE{XG51};
DRAWNUMBER(ISLASTBAR,金收,金收),COLORGREEN{XG51};
LD0:=CROSS(DEA,DIF){XG51};
死收:REF(H,BARSLAST(LD0)),COLOR00FF00,DOTLINE;
买入准备:DRAWICON(CROSS(柱变向价,DIF拐头价),上拐,34){XG51};
卖出准备:DRAWICON(CROSS(DIF拐头价,柱变向价),下拐,35){XG51};
SBL:=STRCAT(STRCAT(STRCAT(STRCAT(DYBLOCK,HYBLOCK),FGBLOCK),GNBLOCK),ZDBLOCK){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.01,0.005,0,SBL),COLORGREEN{XG51};
总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿'){XG51};
流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(CAPITAL/1000000,2)),'亿'){XG51};
全流通:=STRCAT(' 全流通: ',CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000),2)){XG51};
市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'亿'){XG51};
上市日期:=STRCAT(' 上市天数: ',CON2STR(FInaNCE(42),0)){XG51};
股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值),上市日期)){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.01,0.045,0,股本市值),COLOR0090FF{X~G?5_1~C~N~{};

源码正文：

DRAWGBK(C>0, RGB(10,20,60),RGB(38,0,0),0,'11',0){XG51};
N:=20{XG51};
JJ:=(HIGH+LOW+CLOSE)/3{XG51};
QJ0:=vol/IF(HIGH=LOW,4,HIGH-LOW){XG51};
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW))){XG51};
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN)))){XG51};
QJ3:=IF(CAPITAL=0,QJ0*(HIGH-maX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE)))){XG51};
QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ))){XG51};
ddx:((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,1000000,10000),COLOR00AAAA,LINETHICK{XG51};
DX:=MA(DDX,5)*N{XG51};
stICKLINE(DDX>0,0,DDX,3,0),COLOR000088{XG51};
STICKLINE(DDX>0,0,DDX,2.5,0),COLOR0000AA{XG51};
STICKLINE(DDX>0,0,DDX,1.5,0),COLOR0000CC{XG51};
STICKLINE(DDX>0,0,DDX,1,0),COLOR0000EE{XG51};
STICKLINE(DDX<0,0,DDX,3,0),COLOR008800{XG51};
STICKLINE(DDX<0,0,DDX,2.5,0),COLOR00AA00{XG51};
STICKLINE(DDX<0,0,DDX,1.5,0),COLOR00CC00{XG51};
STICKLINE(DDX<0,0,DDX,1,0),COLOR00EE00{XG51};
DDX1:=SMA(DX,3,1),COLORFFFFFF{XG51};
DDX2:=SMA(DDX1,3,1),COLOR00FFFF{XG51};
DDX3:=WMA(DDX2,5),COLORFF00FF{XG51};
预警:DDX>0 AND MA(V,5)>MA(MA(V,5),5) AND crOSS(DDX1,DDX2),LINETHICK{XG51};
DRAWICON(预警,DDX*0.99,5){XG51};
涨家数:INDEXADV,COLOR0000EE,NODRAW{XG51};
跌家数:INDEXDEC,COLOR00EE00,NODRAW{XG51};
大盘成交:INDEXV,COLOR00EEEE,NODRAW{XG51};
DRAWTEXT_FIX(1,0.001,0.05,0,'【 庄 家 资 金 进 出'),COLORBLUE{X~G~5?1~C~N~{};