把【二指金叉】改成通达信版

编写条件：

求：把【二指金叉】改成通达信版！ 【二指金叉】（副图）源码： DIF:(EMA(CLOSE,12)-EMA(CLOSE,26))*100,color0000ff,LINETHICK3; DEA:EMA(DIF,9),Colorffffff,LINETHICK3; MACD:(DIF-DEA)*2,COLORSTICK; RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K:SMA(RSV,3,1),COLORYELLOW; D:SMA(K,3,1),COLORffff00; J:3*K-2*D,COLORMAGENTA; {partline(j,j>=ref(j,1),rgb(255,0,0),j编写方法：

  

DIF:(EMA(CLOSE,12)-EMA(CLOSE,26))*100,COLOR0000FF,LINETHICK3;

DEA:EMA(DIF,9),COLORFFFFFF,LINETHICK3;

macd:(DIF-DEA)*2,COLORSTICK;

 

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

K:SMA(RSV,3,1),COLORYELLOW;

D:SMA(K,3,1),COLORFFFF00;

J:3*K-2*D,COLORMAGENTA;

{PARTLINE(J,J>=REF(J,1),RGB(255,0,0),J<REF(J,1),RGB(0,255,0)),LINETHICK1;}

 

M周金叉:IF(crOSS("MACD.DIF#WEEK","MACD.DEA#WEEK"),-50,0),COLOR0000FF,LINETHICK2;

DRAWTEXT(M周金叉,-45,' MACD周金叉'),COLOR0000FF;

M周死叉:IF(CROSS("MACD.DEA#WEEK","MACD.DIF#WEEK"),-50,0),COLOR00FF00,LINETHICK2;

DRAWTEXT(M周死叉,-45,' MACD周死叉'),COLOR00FF00;

M月金叉:IF(CROSS("MACD.DIF#MONTH","MACD.DEA#MONTH"),-60,0),COLOR00FFFF,LINETHICK2;

DRAWTEXT(M月金叉,-55,' MACD月金叉'),COLOR00FFFF;

M月死叉:IF(CROSS("MACD.DEA#MONTH","MACD.DIF#MONTH"),-60,0),COLORFF6600,LINETHICK2;

DRAWTEXT(M月死叉,-55,' MACD月死叉'),COLORFF6600;

 

K周金叉:IF(CROSS("kdj.K#WEEK","kdJ.D#WEEK"),50,0),COLOR0000FF,LINETHICK2;

DRAWTEXT(K周金叉,50,' KDJ周金叉'),COLOR0000FF;

K周死叉:IF(CROSS("KDJ.D#WEEK","KDJ.K#WEEK"),50,0),COLOR00FF00,LINETHICK2;

DRAWTEXT(K周死叉,50,' KDJ周死叉'),COLOR00FF00;

K月金叉:IF(CROSS("KDJ.K#MONTH","KDJ.D#MONTH"),60,0),COLOR00FFFF,LINETHICK2;

DRAWTEXT(K月金叉,60,' KDJ月金叉'),COLOR00FFFF;

K月死叉:IF(CROSS("KDJ.D#MONTH","KDJ.K#MONTH"),60,0),COLORFF6600,LINETHICK2;

DRAWTEXT(K月死叉,60,' KDJ月死叉'),COLORFF6600;