以下是我把大機構(gòu)macd修改了一點點 希望大家喜歡（無源碼的請下載附件導入）

我把大機構(gòu)MACD修改了一點點 希望大家喜歡

我修改的版本只能用于日線或以上，  因為文字的坐標固定，　　
 用于分鐘周期的時候就有缺陷，
 在分鐘周期柱線會被壓扁，

 希望有大神能幫忙修改
 文件包含我修改的和原始的代碼

 上圖是我改的，下圖是原來的

 說明：DIF線紅色是多頭，紫色是空頭，黃色是轉(zhuǎn)變信號；
macd柱線的空心柱是多頭，實心柱是空頭。
 

源碼：

{我修改的macd}

{大機構(gòu)MACD的柱線}
MACD2:=2*("MACD.DIF"-"MACD.DEA");
(CLOSE<0 AND CROSS("MACD.DIF",0),H*1.3),COLOR000080,NODRAW;
(CLOSE<0 AND CROSS(MACD2,0),H*1.3),COLOR000080,NODRAW;
(CLOSE<0 AND CROSS(0,"MACD.DIF"),H*1.3),COLOR808080,NODRAW;
(CLOSE<0 AND CROSS(0,MACD2),H*1.3),COLOR808080,NODRAW;
DU0:=CROSS("MACD.DIF",0);
UD0:=CROSS(0,"MACD.DIF");
TDU0:=BARSLAST(DU0);
TUD0:=BARSLAST(UD0);
DU3:=REF(DU0,1);
UD3:=REF(UD0,1);
TDU3:=BARSLAST(DU3);
TUD3:=BARSLAST(UD3);
UDGLINE:=IF(TDU3<>
JDU0:=REF(CLOSE,1)<=REF(UDGLINE,1) AND CLOSE>UDGLINE AND TDU0<>
JUD0:=REF(CLOSE,1)>=REF(UDGLINE,1) AND CLOSE<> JDU1:=JDU0 AND COUNT(JDU0,TDU0)=1;
JUD1:=JUD0 AND COUNT(JUD0,TUD0)=1;
JDU2:=JDU1 AND REF(BARSLAST(JUD1),1)<>
JUD2:=JUD1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);
JDU3:=JDU1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);
JUD3:=JUD1 AND REF(BARSLAST(JUD1),1)<>
BSLINE:=IF(BARSLAST(JDU2)<>
STICKLINE(MACD2>=0,0,MACD2,2,1),COLORRED;{0上紅空心MACD柱}
STICKLINE(MACD2>=0 AND MACD2<>
STICKLINE(MACD2<0,0,MACD2,2,0),COLORCYAN;{0下亮藍實心柱}
STICKLINE(MACD2<0 AND MACD2>REF(MACD2,1),0,MACD2,2,1),COLORFF8000;{0下藍空心MACD柱}

{--------------圖標}
DEFUT:=BARSLAST(CROSS(MACD2,0));
DEFDT:=BARSLAST(CROSS(0,MACD2));
DEFUL:=IF(MACD2>=0,HHV(MACD2,DEFUT 1),REF(HHV(MACD2,DEFUT 1),DEFDT 1));
DEFDL:=IF(MACD2<0,LLV(MACD2,DEFDT 1),REF(LLV(MACD2,DEFDT 1),DEFUT 1));
DEFU2L:=REF(DEFUL,DEFUT 1);
DEFD2L:=REF(DEFDL,DEFDT 1);
DRAWICON(LLV(MACD2,4)>0 AND MACD2REF(MACD2,2) AND REF(MACD2,2)>REF(MACD2,3),MACD2,2);
DRAWICON(HHV(MACD2,4)<0 AND MACD2>REF(MACD2,1) AND REF(MACD2,1)<> DRAWICON((JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1)) AND MACD2>=0 AND REF(MACD2,1)DEFU2L,MACD2,5);
DRAWICON((JDU1 OR BARSLAST(JDU1)<0="" ref(macd2,1)="">REF(DEFD2L,1) AND MACD2<>
VAR111:=JDU1 OR BARSLAST(JDU1)<>
VAR112:=HHV(MACD2,4)<0 AND MACD2>REF(MACD2,1) AND REF(MACD2,1)<><="" p="">

{DIF和DEA線}
SHORT:=12;LONG:=26;MID:=9;
VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV1:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
OBV2:=EMA(OBV1,3)-MA(OBV1,9);
OBV3:=EMA(IF(OBV2>0,OBV2,0),3);
MAC3:=MA(C,3);
DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG)COLORYELLOW,LINETHICK2;{黃線}
DEA:EMA(DIF,MID)COLORBLUE;{藍線}
DIF1:IF(DIF>REF(DIF,1),DIF,DRAWNULL),COLOR8000FF,LINETHICK2;{玫紅線}
DIF2:IF(DIF<>< p=""> <>

{金叉和背離的標識}
低位金叉:=CROSS(DIF,DEA) AND DIF<-0.1;
DRAWTEXT(低位金叉,-0.5,'★低位金叉'),COLORWHITE;

JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
DRAWICON(二次金叉,DEA*0.9,1) ;
DRAWTEXT(二次金叉,0.5,'★二次金叉'),COLORYELLOW;

A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
底背離:=REF(CLOSE,A1 1)>CLOSE AND DIF>REF(DIF,A1 1) AND CROSS(DIF,DEA);
DRAWTEXT(底背離,-1,'▲底背離'),COLORFF00FF;

A2:=BARSLAST(REF(CROSS(DEA,DIF),1));
頂背離:=REF(CLOSE,A2 1)DIF AND CROSS(DEA,DIF);
DRAWTEXT(頂背離,1,'●頂背離'),COLORGREEN;

DRAWTEXT(低位金叉 AND 二次金叉 AND 底背離,0,'★三項全能'),COLORYELLOW;

--------------------------------------------------------------------------------------

{大機構(gòu)macd}
{參數(shù)：LONG 20  100  26
SHORT  5  40  12
M  2 60  9}
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD2:=2*(DIFF-DEA);
(CLOSE<0 AND CROSS(DIFF,0),H*1.3),COLOR000080,NODRAW;
(CLOSE<0 AND CROSS(MACD2,0),H*1.3),COLOR000080,NODRAW;
(CLOSE<0 AND CROSS(0,DIFF),H*1.3),COLOR808080,NODRAW;
(CLOSE<0 AND CROSS(0,MACD2),H*1.3),COLOR808080,NODRAW;
DU0:=CROSS(DIFF,0);
UD0:=CROSS(0,DIFF);
TDU0:=BARSLAST(DU0);
TUD0:=BARSLAST(UD0);
DU3:=REF(DU0,1);
UD3:=REF(UD0,1);
TDU3:=BARSLAST(DU3);
TUD3:=BARSLAST(UD3);
UDGLINE:=IF(TDU3<>
JDU0:=REF(CLOSE,1)<=REF(UDGLINE,1) AND CLOSE>UDGLINE AND TDU0<>
JUD0:=REF(CLOSE,1)>=REF(UDGLINE,1) AND CLOSE<> JDU1:=JDU0 AND COUNT(JDU0,TDU0)=1;
JUD1:=JUD0 AND COUNT(JUD0,TUD0)=1;
JDU2:=JDU1 AND REF(BARSLAST(JUD1),1)<>
JUD2:=JUD1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);
JDU3:=JDU1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);
JUD3:=JUD1 AND REF(BARSLAST(JUD1),1)<>
BSLINE:=IF(BARSLAST(JDU2)<>
STICKLINE(MACD2>=0,0,MACD2,2,1),COLOR0000FF;
STICKLINE(MACD2>=0 AND MACD2<>
STICKLINE(MACD2<0,0,MACD2,2,0),COLORFFFF00;
STICKLINE(MACD2<0 AND MACD2>REF(MACD2,1),0,MACD2,2,1),COLORFFFF00;
DIF:DIFF,LINETHICK2,COLOR0000FF;
MACD:DEA,COLORFF0000;
DEF:MACD2,LINETHICK0,COLORFFFF00;
STICKLINE(CLOSE>0,0,0,2,0),COLOR808080;
DEFUT:=BARSLAST(CROSS(MACD2,0));
DEFDT:=BARSLAST(CROSS(0,MACD2));
DEFUL:=IF(MACD2>=0,HHV(MACD2,DEFUT 1),REF(HHV(MACD2,DEFUT 1),DEFDT 1));
DEFDL:=IF(MACD2<0,LLV(MACD2,DEFDT 1),REF(LLV(MACD2,DEFDT 1),DEFUT 1));
DEFU2L:=REF(DEFUL,DEFUT 1);
DEFD2L:=REF(DEFDL,DEFDT 1);
DRAWICON(LLV(MACD2,4)>0 AND MACD2REF(MACD2,2) AND REF(MACD2,2)>REF(MACD2,3),MACD2,2);
DRAWICON(HHV(MACD2,4)<0 AND MACD2>REF(MACD2,1) AND REF(MACD2,1)<> DRAWICON((JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1)) AND MACD2>=0 AND REF(MACD2,1)DEFU2L,MACD2,5);
DRAWICON((JDU1 OR BARSLAST(JDU1)<0="" ref(macd2,1)="">REF(DEFD2L,1) AND MACD2<>
VAR111:=JDU1 OR BARSLAST(JDU1)<>
VAR112:=HHV(MACD2,4)<0 AND MACD2>REF(MACD2,1) AND REF(MACD2,1)<>