macd柱子面积的计算-公式代码

1、用数字表示的DIF:EMA(CLOSE,12)-EMA(CLOSE,26);DEA:EMA(DIF,9);MACD:(DIF-DEA)*2,COLORSTICK;红面积:SUM(MACD,BARSLAST(MACD0),COLOR0000FF,NODRAW;绿面积：SUM(MACD,BARSLAST(MACD0)*(MACD0,SUM(MACD,BARSLAST(MACD0),0),NODRAW,COLORRE D;绿柱面积:ABS(IF(MACD0),0),NODRAW,COL ORLIGREEN;MACD 面积:=IF(MACD0,红柱面积，绿柱面积),NODRAW,COLORFFFF00

2、;位置:=MAX(HHV(DIFF,100),ABS(LLV(DIFF,100);MACD重建-避免遮挡STICKLINE(MACD0,0,MACD,1,0),COLORRED;STICKLINE(MACD0 ANDMACD=REF(MACD,1),0,MACD,1,0),COLORYELLOW;STICKLINE(MACD=REF(MACD,1),0,MACD,1,0),COLORWHITE;NOTEXTDIFF:EMA(CLOSE,N1) - EMA(CLOSE,N2),COLORWHITE;NOTEXTDEA:EMA(DIFF,N3),COLORYELLOW;数显开关:1为打开,0为关闭

3、DRAWNUMBER(数显开关=1 AND LONGCROSS(DEA,DIFF,3),位置*0.8,REF (红柱面积,1),COLORRED;DRAWNUMBER(数显开关=1 AND LONGCROSS(DIFF,DEA,3),0-位置*0.5,REF (绿柱面积,1),COLORGREEN;NOTEXTLMH: DRAWNUMBER (数显开关=1 AND ISLASTBAR AND MACD0,位置*0.8，红柱面积),COLORRED;NOTEXTLML: DRAWNUMBER(数显开关=1 AND ISLASTBAR ANDMACD0 AND REF(MACD,1)0) OR (

4、MACD0) ,MACD,MACD+REF(SMACD,1);IF(fun2 OR fun=1)显示数字DRAWTEXT(MACD0 AND REF(MACD,1)0) OR (MACD0),dea,TOSTRING(REF(SMACD,1),2);IF(fun=2)鼠标提示TIPTEXT(MACD0 AND REF(MACD,1)0) OR (MACD0),MACD,柱子和:+TOSTRING(REF(SMACD,1),2);当然也可以修改均线公式，在主图中显示上述内容本文转载自 鼎砥投资论坛 欢迎交流学习。在学缠论时，利用MACD来辅助判断背驰与盘整背驰，涉及面积比较。现在把面积用数呈现出

5、来，方便大家比较。此公式是我在网上搜集，非我原创，不敢掠人之美，也不敢私藏，于同好共享。上面的公式是用于飞狐的下面的用于大智慧L2版的通达信版的，请大家改写，谢谢。红绿柱面积公式源码一一飞狐和大智慧L2版MACD红绿柱面积(飞狐副图)参数：p=26； s=12； m=9DIFF1:=EMA(CLOSE,s) - EMA(CLOSE,p);DEA1:=EMA(DIFF1,m);MACD:2*(DIFF1-DEA1),COLORSTICK,LINETHICK0;MACDhs:=IF(MACD0 AND MACDREF(MACD,1),MACD,0);MACDhx:=IF(MACD0 AND MAC

6、DREF(MACD,1),MACD,0);MACDlx:=IF(MACD0 AND MACDREF(MACD,1),MACD,0);MACDls:=IF(MACDREF(MACD,1),MACD,0);STICKLINE(MACDhs0,0,MACD,7,0),Color0000EE;STICKLINE(MACDhs0,0,MACD,6,0),Color0000FF;STICKLINE(MACDhs0,0,MACD,5,0),Color0033FF;STICKLINE(MACDhs0,0,MACD,4,0),Color3355FF;STICKLINE(MACDhs0,0,MACD,3,0),C

7、olor6677FF;STICKLINE(MACDhs0,0,MACD,2,0),Color8888FF;STICKLINE(MACDhs0,0,MACD,1,0),Color9999FF;STICKLINE(MACDhx0,0,MACD,7,0),Color0099CC;STICKLINE(MACDhx0,0,MACD,6,0),Color00AADD;STICKLINE(MACDhx0,0,MACD,5,0),Color00BBDD;STICKLINE(MACDhx0,0,MACD,4,0),Color00CCEE;STICKLINE(MACDhx0,0,MACD,3,0),Color00

8、DDEE;STICKLINE(MACDhx0,0,MACD,2,0),Color00EEFF;STICKLINE(MACDhx0,0,MACD,1,0),Color00FFFF;STICKLINE(MACDlx0,MACD,0,7,0),Color990000;STICKLINE(MACDlx0,MACD,0,6,0),ColorAA2200;STICKLINE(MACDlx0,MACD,0,5,0),ColorBB4400;STICKLINE(MACDlx0,MACD,0,4,0),ColorCC7700;STICKLINE(MACDlx0,MACD,0,3,0),ColorDD9900;S

9、TICKLINE(MACDlx0,MACD,0,2,0),ColorEEBB00;STICKLINE(MACDlx0,MACD,0,1,0),ColorFFCC00;STICKLINE(MACDls0,MACD,0,7,0),Color005500;STICKLINE(MACDls0,MACD,0,6,0),Color007700;STICKLINE(MACDls0,MACD,0,5,0),Color009900;STICKLINE(MACDls0,MACD,0,4,0),Color00BB00;STICKLINE(MACDls0,MACD,0,3,0),Color00DD00;STICKLI

10、NE(MACDls0,MACD,0,2,0),Color00EE00;STICKLINE(MACDls0,SUM(MACD,BARSLAST(MACD0),0),LINETHICK0,Color0000FF;绿柱面积:IF(MACD0),0),LINETHICK0,Color006000;平均面积：IF(MACD0,10*红柱面积/BARSLAST(MACD0),LINETHICK0,ColorFF00FF;DRAWNUMBER(ref(MACD,1)0 andMACD0 andMACD=0,HHV(MACD,4),ref(平均面积,1),2),ALIGN1,pxup35,ColorFF00F

11、F;DRAWNUMBER(ref(MACD,1)=0,LLV(MACD,4),ref(abs(绿柱面积),1),2),ALIGN1,pxdn5,Color006000;DRAWNUMBER(ref(MACD,1)=0,LLV(MACD,4),ref(abs(平均面积),1),2),ALIGN1,pxdn30,ColorFF00FF;DRAWNUMBER(BARSTATUS=2 AND MACD0,LLV(MACD,4),abs(绿 柱 面积),2),align2,pxdn5,Color006000;DRAWNUMBER(BARSTATUS=2 AND MACD0,HHV(MACD,4),abs

12、(红柱面积),2),align2,pxup10,colorred;DRAWNUMBER(BARSTATUS=2 AND MACD0,HHV(MACD,4),abs(平均面积),2),align2,pxup35,ColorFF00FF;DRAWNUMBER(MACD0 AND MACD=HHV(MACD,BARSLAST(MACD=REFX(MACD,1)ANDMACD=REFX(MACD,2),MACD,MACD,2),align0,pxup20,ColorFF0000;DRAWNUMBER(MACD0) ANDMACD=REFX(MACD,1)ANDMACDT1 AND P2T2 ;ZD:=

13、MAX(T1,T2);ZG:=MIN(P1,P2);LL:=MIN(T1,T2);HH:=MAX(P1,P2);TJ2:=FILTER(ZGZD,2);TJ3:=ZG=REF(ZG,BARSLAST(TJ2) OR ZD=REF(ZD,BARSLAST(TJ2);TJ4:=TJ1&TJ2&NOT(TJ3);TJ5:=BETWEEN(ZD,REF(ZD,REF(BARSLAST(TJ4),1),REF(ZG,REF(BARSLAST(TJ4 ),1);TJ6:=BETWEEN(ZG,REF(ZD,REF(BARSLAST(TJ4),1),REF(ZG,REF(BARSLAST(TJ4 ),1);

14、TJ7:=ZGREF(ZG,REF(BARSLAST(TJ4),1)&ZDREF(ZD,REF(BARSLAST(TJ4),1) );TJ8:=TJ4&NOT(TJ5 OR TJ6 OR TJ7);ZSD:=IF(TJ8,ZD,DRAWNULL);ZSG:=IF(TJ8,ZG,DRAWNULL);ZSH:=IF(TJ8,HH,DRAWNULL);ZSL:=IF(TJ8,LL,DRAWNULL);STICKLINE(TJ8,ZSH,ZSL,0，- 1),COLORMAGENTA;STICKLINE(TJ8,ZSD,ZSG,IF(DISP=1,3,0),1),COLORMAGENTA;DRAWTE

15、XT(DISP=2,ZSH,中枢),COLORWHITE;中枢高:PLOYLINE(DISP=2,REF(ZSD,BARSLAST(TJ8),CIRCLEDOT,COLORLIRED;中枢低:PLOYLINE(DISP=2,REF(ZSG,BARSLAST(TJ8),CIRCLEDOT,COLORLIGREEN;中枢最高:PLOYLINE(DISP=2,REF(ZSH,BARSLAST(TJ8),POINTDOT,COLORRED;中枢最低:PLOYLINE(DISP=2,REF(ZSL,BARSLAST(TJ8),POINTDOT,COLORGREEN;趋势高:PLOYLINE(DISP=3

16、,ZIG(1,K*N1),COLORLIBLUE;趋势低:PLOYLINE(DISP=3,ZIG(2,K*N2),COLORLIBLUE;局部低点预选 A:=BACKSET(LLV(L,5)REF(HHV(H,4),1),4);局部高点预选B:=BACKSET(局部高点预选A=0 AND REF(局部高点预选A,1)=1,2);局部高点预选C:=IF(局部高点预选B=1 AND REF(局部高点预选B,1)=0,1,0);缺口判断:=IF(LREF(H,1),1,IF(HREF(距前低天,1) AND LLV(L,距前高天 +1)REF(LLV(L,距前高天+1),1),-1,0);低保留AB

17、:=IF(局部低点预选C=-1 AND REF(距前高天,1)=4 OR LLV(缺口 判断，距前高天)=-1 OR LLV(L,距 前低天+2)REF(LLV(L, 距前低天+1),1),-1,0);低保留 S:=IF(低保留 AA=-1 OR 低保留 AB=-1) AND L=4 OR LLV（缺口判断，距前高天A）=-1 OR判断XA=-1）,-1,0）;低保留X:=IF（低保留XA=-1 OR低保留XB=-1） AND LREF（H,距前高天A+1）,-1,0）;距前高天YA:=BARSLAST（高保留X=1）;距前低天YA:=BARSLAST（低保留X=-1）;预判YX:=IF（距前

18、低天YA4 AND HHV（缺口判断，距前低天YA）! = 1） OR REF（低保 留X,距前低天YA）=0,1,0）;判断YX:=IF（局部高点预选C=1 AND REF（距前低天YA,1）REF（距前高天YA,1） AND HHV（H,距前低天 YA+1）REF（HHV（H,距前低天 YA+1）,1）,1,0）;高保留YXB:=IF （局部高点预选C=1 AND REF（距前低天YA,1）=4 OR HHV（缺口判断，距 前低天 YA）=1）,1,0）;高保留 YX:=IF（高保留 YXA=1 OR 高保留 YXB=1 OR 判断 YX=1） AND HREF（L, 距前低天YA+1）,

19、1,0）;预判YXA:=IF（距前高天YA4 AND HHV（缺口判断，距前高天YA）! = 1） OR REF（高保 留YXA,距前高天YA）=0,1,0）;判断YXA:=IF （局部低点预选C=-1 AND REF（距前高天YA,1）REF（大值周期，距前高天YA） AND小值周期REF（小值周期，距前低天YA）,-1,0）; 低保留YXA:=IF （局部低点预选C=-1 AND REF（距前高天YA,1）REF （距前低天YA,1） AND LLV（ L,距前高天 YA+1）REF（LLV（L,距前高天 YA+1）,1）,-1,0）;低保留YXB:=IF（局部低点预选C=-1 AND R

20、EF（距前高天YA,1）=4 OR LLV（缺口判断，距前高天YA）=-1 OR判断 YXA=-1）,-1,0）;低保留YX:=IF（低保留YXA=-1 OR低保留YXB=-1） AND LREF（H,REF（距前高天 YA,1）+2）,1,IF（高保留 YX=1 AND 低保留 YX=-1 AND LREF（L,REF（距前低天 YA,1）+2）,-1,0）;极点保留:=IF（AAAD=0,高保留YX+低保留YX,AAAD）;局部极点:IF （极点保留=-1,L,IF （极点保留= 1,H,DRAWNULL） CIRCLEDOT COLORYELLOW;DRAWLINE （极点保留=-1,局

21、部极点，极点保留=1,局部极点,0）COLORLIRED;DRAWLINE（极点保留=1,局部极点，极点保留=-1,局部极点,0）COLORYELLOW;DD1:=BARSLAST（ABS（极点保留）! = 1）;DRAWTEXT（极点保留=1,局部极点，卖）,COLORGREEN;DRAWTEXT（极点保留=-1,局部极点,买）,COLORRED;MA5:MA（CLOSE,5）,COLORFF00FF,LINETHICK2;判:IF（MA5REF（MA5,1）,MA5,DRAWNULL）,COLORWHITE,LINETHICK2;其公式为前高手开发，现已闭关不再外发。其最大缺陷就是各级别的

22、中枢在高级别 显示时候，重叠显示。造成视觉效果很差。期望版主能继续研发，不胜感激。另外，缠论体系中，macd背离是重要辅助参考指标。但缠论中的macd背离与普通 概念背离含义不一样。是以每笔每段（红，黄线所对应的）。有过其他人编制的macd 面积公式，但感觉效果一般，现求助，多谢。昭安环能（日缱前复捌舰论。中枢高壬.4口中枢低就廷势高:-廷势低:-局部极点:-输出9：-输出1口：- MA5：39.21判:-； ?； A；H:；：?；:；M:-； X XX:； xz ：；：； :-；1通信大macd面积公式RR: 二 (HHV(EMA(EMA(C,5)-EMA(C,13),1),3)+ABS(L

23、LV(EMA(EMA(C,5)-EMA(C,13),1),3)/2;RR/4*4,C0L0R0000FF;RR/4*3,C0L0RAAAA00;RR/4*2,C0L0R00AA00;RR/4*1,C0L0R00AAAA;0000,P0INTD0T,C0L0RAAAAAA;-RR/4*1,C0L0R00AAAA;-RR/4*2,C0L0R00AA00;-RR/4*3,C0L0RAAAA00;-RR/4*4,C0L0R0000FF;R: 二 (HHV(EMA(EMA(C,5)-EMA(C,13),1),100)+ABS(LLV(EMA(EMA(C,5)-EMA(C,13),1),100)/2;R/

24、4*4,C0L0R0000AA;R/4*3,C0L0RAAAA00;R/4*2,P0INTD0T,C0L0R00AA00;R/4*1,P0INTD0T,C0L0R00AAAA;0000,P0INTD0T,C0L0RAAAAAA;-R/4*1,P0INTD0T,C0L0R00AAAA;-R/4*2,P0INTD0T,C0L0R00AA00;-R/4*3,C0L0RAAAA00;-R/4*4,C0L0R0000AA;00000:EMA(EMA(C,5)-EMA(C,13),1),LINETHICK2,C0L0RYELL0W;通信大macd面积一、MACD面积公式(通达信)DIFF := EMA(C

25、L0SE,12) - EMA(CL0SE,26);DEA := EMA(DIFF,9);MACD := 2*(DIFF-DEA), C0L0RSTICK;BV:=SUM(MACD,0);BA:=IF(MAX(BV,REF(BV,2)REF(BV,1),1,0);BC:=BARSLAST(BA)+1;SMACD:BV-REF(BV,BC),COLORSTICK;比较复杂的通信大macd面积公式注：调整参数可以自行更改，主要作用是放大或缩小MACD面积倍数，效果是一 样的。input:调整参数(20,0.0001,1000);p:=26;s:=12;m:=9;DIFF:EMA(c,s) - EMA

26、(c,p);DEA:EMA(DIFF,m);MACD:2*(DIFF-DEA),COLORSTICK;BV:=SUM(MACD/调整参数，0);BA:=IF(MAX(BV,REF(BV,2)REF(BV,1),1,0);BC:=BARSLAST(BA)+1;SMACD:=BV-REF(BV,BC);var3:=if(macd0,HHV(abs(macd),bc),LLV(macd,bc);var4: = (macd)/20;(图形比例缩小1/20,可修改var5:=SMACD*100;drawnumber(ref(var4,1)0 andvar4=0 ,ref(var3,1),ref(var5

27、,1),0),pxup100,colorgreen;drawnumber(ref(var4,1)=0 ,ref(var3,1),ref(abs(var5),1),0),pxdn40,colorff00ff;drawnumber(islastbar andvar40,ref(var3,1),var5,0),align2,colorgreen,pxdn100;M1:=REF(MACD,1);STICKLINE(macd0 and macd=m1,0,macd,3,0),coloryellow;STICKLINE(macd=m1,0,macd,3,0),colorwhite;(DRAWICON(ma

28、cdmacd and lref(l,1) and co,macd,10); DRAWICON(ref(macd,2)0 and ref(macd,1)0.01,macd,10); DRAWICON(diffref(diff,1) and macd=o and lref(l,1),macd,12); (DRAWICON(macd0 and ref(macd,1)macd and lo,macd,10); 日线 MACD:macd.macd#day，LINETHICK0,COLORFF0099;三十分 MACD:MACD.MACD#MIN30，colorred,linethick0;十五分 MAC

29、D:MACD.MACD#MIN15，linethick0;五分 MACD:MACD.MACD#MIN5，colorff00ff,linethick0;jc := dea-diff;绿柱面积:IF (MACD0,SUM(MACD,BARSLAST(jc0,SUM(MACD,BARSLAST(jc0),0),linethick0,colorred;LC:=REF(CLOSE,1);RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;e:=CROSS(83,RSI);DRAWICON(e,macd,10);日 RSI:引用 RSI.RSI

30、#day，colorff00ff,linethick0;六十分 RSI:引用 RSI.RSI#MIN60,colorff00ff,linethick0;三十分 RSI:引用 RSI.RSI#MIN30,colorff00ff,linethick0;十五分 RSI:引用 RSI.RSI#MIN15,colorff00ff,linethick0;五分 RSI:引用 RSI.RSI#MIN5,colorff00ff,linethick0;DRAWICON(CROSS(83,日 RSI),macd,1);STICKLINE(CROSS(83,日 RSI),diff,0,6,0),Colorred;DR

31、AWICON(CROSS(83,六十分 RSI),macd,2);DRAWICON(CROSS(83,三十分 RSI),diff,3);DRAWICON(CROSS(83,十五分 RSI),-macd,4);DRAWICON(CROSS(83,五分 RSI),macd,6);日 WR:引用 WR.WR#day,colorff00ff,linethick0;六十分 WR:引用 WR.WR#MIN60,colorff00ff,linethick0;三十分 WR:引用 WR.WR#MIN30,colorff00ff,linethick0;十五分 WR:引用 WR.WR#MIN15,colorff00

32、ff,linethick0;五分 WR:引用 WR.WR#MIN5,colorff00ff,linethick0;PARTLINE(日 WR=1,diff),colorred,LINETHICK5;PARTLINE(六十分 wr=1,dea),colorgreen,LINETHICK4;PARTLINE(三十分 wr=1,diff),colorff00ff,LINETHICK3;PARTLINE (十五分 wr=1,dea),colorgreen,LINETHICK2;DRAWICON(五分 wr=1,macd,12);MACD背驰最好的副图指标通达信和大智慧1都可用DIFF:EMA(CLOS

33、E,12)-EMA(CLOSE,27);DEA:EMA(DIFF,9);MACD:2*(DIFF-DEA), COLORSTICK,LINETHICK2;低位金叉:=CROSS(DIFF,DEA) AND DIFF=0);二次金叉：二CROSS(DIFF,DEA) AND DEACLOSE AND DIFFREF(DIFF,A1+1) ANDCROSS(DIFF,DEA);STICKLINE(底背离,0,0.03,6,0),COLOR00FF00;底背:DRAWLINE(A1=0,DEA,底背离，DEA,0),COLORRED,LINETHICK4;DRAWTEXT(底背离，0.12,底背离)

34、，COLORFF00FF;A2:=BARSLAST(REF(CROSS(DEA,DIFF),1);顶背离:=REF(CLOSE,A2+1)DIFF ANDCROSS(DEA,DIFF);顶背：DRAWLINE(A2=0,DEA,顶背离，DEA,0),COLORGREEN,LINETHICK4;DRAWTEXT(低位金叉AND二次金叉AND底背离,0.25,三全项 ),COLOR0000FF,LINETHICK2;MACD (面)积背离公式short 2 200 12long 2 200 26m 2 200 9DIFF : EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);D

35、EA : EMA(DIFF,M);MACD : 2*(DIFF-DEA), COLORSTICK;JC := DEA-DIFF;绿柱面积:=IF(MACD0,SUM(MACD,BARSLAST(JC0,SUM(MACD,BARSLAST(JC0),0); 本次最低价:二LLV(L,BARSLAST(JC0);X1:=IF (MACD0,BARSLAST(CROSS(DIFF,DEA),0);前次绿柱面积:二REF(绿柱面积,X1+1);前次最低价:二REF(本次最低价,X1+1);Y1:=IF(绿柱面积0 AND ABS(绿柱面积)ABS(前次绿柱面积)AND本次最低价前次最低价),1,0);

36、RS1:= MACD0 AND REF(MACD,1)0 AND C前次最低价AND ABS(绿柱面积)ABS(前次绿柱面积)AND ABS(MACD)=DEA,DIFF,DRAWNULL),COLORRED;守:IF(DEA=DIFF,DEA,DRAWNULL),COLORFF9900;纪：IF(DIFF=DEA,DEA,DRAWNULL),COLOR00FFFF;律:IF(DEA=DIFF,DIFF,DRAWNULL),COLOR00FF00;X2:=IF (MACD0,BARSLAST(CROSS(DEA,DIFF),0);前次红柱面积:二REF(红柱面积,X2+1);前次最高价:二RE

37、F(本次最高价,X2+1);Y2:=IF(红柱面积0 AND红柱面积前次红柱面积AND本次最高价前次最高 价),1,0);RS2:= MACD0 AND REF(MACD,1)0 AND C前次最高价 AND ABS(红柱面积)ABS(前 次红柱面积)AND ABS(MACD)ABS(REF(MACD,1);顶背驰：二 IF (CROSS(DEA,DIFF),REF(Y2,1),0);DRAWICON(顶背驰，0,19),COLOR00FF00;STICKLINE(顶背驰,0,-0.3,4,0),COLOR00FF00;DRAWTEXT(顶背驰,-0.3,积顶背)，COLORFF0000;通信大macd面积背离公式DIFF : EMA(CLOSE,SHORT) - EMA(CLOSE