日韩黑丝制服一区视频播放|日韩欧美人妻丝袜视频在线观看|九九影院一级蜜桃|亚洲中文在线导航|青草草视频在线观看|婷婷五月色伊人网站|日本一区二区在线|国产AV一二三四区毛片|正在播放久草视频|亚洲色图精品一区

搜索
分享

秋葉正紅的三級聯(lián)立MACD公式源碼

 agl2722 2014-06-15

感謝秋葉正紅

 

本博提示：1、思路絕對沒問題；2、三級不夠；3、各級之間不同步，存在相位差；4、參數(shù)需要個性化優(yōu)化，沒有改進MACD的滯后性；5、將其中的收盤價改為AMOUNT即變?yōu)閂MACD，同樣存在上面三個問題；

 

 

秋葉正紅的三級聯(lián)立MACD公式源碼

http://blog.sina.com.cn/s/blog_5101bb000100iga9.html

 

以下是在分鐘K線圖上顯示上兩個級別MACD的公式，1F、5F、30F的公式周期不一樣，一定按公式說明的周期使用，否則顯示的MACD是不對的。只有飛狐和大智慧L2的源碼，其它軟件的源碼沒有編寫，哪位網友有興趣可以幫忙改寫。


{用在1分鐘K線圖上的5分鐘/30分鐘MACD紅綠柱面積(大智慧L2版)，在1分鐘K線圖上顯示5分鐘、30分鐘的MACD}

 

DIFF1:=EMA(CLOSE,60) - EMA(CLOSE,130);
DEA1:=EMA(DIFF1,45);
MACD:=2*(DIFF1-DEA1);
DIFF30:=EMA(CLOSE,360) - EMA(CLOSE,780);
DEA30:=EMA(DIFF30,270);
MACD30:=2*(DIFF30-DEA30);
MACD5分鐘:MACD,Color0000FF,LINETHICK0;
DIFF5分鐘:DIFF1,Color0000FF;
DEA5分鐘:DEA1,ColorFF9999;
MACD30分鐘:MACD30,ColorFF00FF,LINETHICK0;
DIFF30分鐘:DIFF30,ColorFF00FF;
DEA30分鐘:DEA30,Color00FF00;
綠柱面積:10*IF (MACD<0,SUM(MACD,BARSLAST(MACD>0)),0),LINETHICK0,colorred;
紅柱面積:10*IF (MACD>0,SUM(MACD,BARSLAST(MACD<0)),0),LINETHICK0,Color00ff00;
MACDhs:=IF(MACD>0 AND MACD>=REF(MACD,1),MACD,0);
MACDhx:=IF(MACD>0 AND MACD<=REF(MACD,1),MACD,0);
MACDlx:=IF(MACD<0 AND MACD<REF(MACD,1),MACD,0);
MACDls:=IF(MACD<0 AND MACD>REF(MACD,1),MACD,0);
STICKLINE(MACD30>0 AND MACD30>=REF(MACD30,1),0,MACD30,9,0),ColorFF99FF;
STICKLINE(MACD30>0 AND MACD30<REF(MACD30,1),0,MACD30,9,0),Color99ffFF;
STICKLINE(MACD30<0 AND MACD30<=REF(MACD30,1),0,MACD30,9,0),ColorFFff99;
STICKLINE(MACD30<0 AND MACD30>REF(MACD30,1),0,MACD30,9,0),ColorbbFFbb;
STICKLINE(MACDhs>0,0,MACD,9,0),Color0000BB;
STICKLINE(MACDhs>0,0,MACD,8,0),Color0000CC;
STICKLINE(MACDhs>0,0,MACD,7,0),Color0011CC;
STICKLINE(MACDhs>0,0,MACD,6,0),Color1122DD;
STICKLINE(MACDhs>0,0,MACD,5,0),Color2233DD;
STICKLINE(MACDhs>0,0,MACD,4,0),Color3344EE;
STICKLINE(MACDhs>0,0,MACD,3,0),Color4455EE;
STICKLINE(MACDhs>0,0,MACD,2,0),Color5566FF;
STICKLINE(MACDhs>0,0,MACD,1,0),Color6677FF;
STICKLINE(MACDhx>0,0,MACD,9,0),Color0077BB;
STICKLINE(MACDhx>0,0,MACD,8,0),Color0088CC;
STICKLINE(MACDhx>0,0,MACD,7,0),Color0099CC;
STICKLINE(MACDhx>0,0,MACD,6,0),Color00AADD;
STICKLINE(MACDhx>0,0,MACD,5,0),Color00BBDD;
STICKLINE(MACDhx>0,0,MACD,4,0),Color00CCEE;
STICKLINE(MACDhx>0,0,MACD,3,0),Color00DDEE;
STICKLINE(MACDhx>0,0,MACD,2,0),Color00EEFF;
STICKLINE(MACDhx>0,0,MACD,1,0),Color00FFFF;
STICKLINE(MACDlx<0,MACD,0,9,0),Color770000;
STICKLINE(MACDlx<0,MACD,0,8,0),Color881100;
STICKLINE(MACDlx<0,MACD,0,7,0),Color992200;
STICKLINE(MACDlx<0,MACD,0,6,0),ColorAA3300;
STICKLINE(MACDlx<0,MACD,0,5,0),ColorBB4400;
STICKLINE(MACDlx<0,MACD,0,4,0),ColorCC5500;
STICKLINE(MACDlx<0,MACD,0,3,0),ColorDD6600;
STICKLINE(MACDlx<0,MACD,0,2,0),ColorEE7700;
STICKLINE(MACDlx<0,MACD,0,1,0),ColorFF8800;
STICKLINE(MACDls<0,MACD,0,9,0),Color005500;
STICKLINE(MACDls<0,MACD,0,8,0),Color007700;
STICKLINE(MACDls<0,MACD,0,7,0),Color009900;
STICKLINE(MACDls<0,MACD,0,6,0),Color00AA00;
STICKLINE(MACDls<0,MACD,0,5,0),Color00BB00;
STICKLINE(MACDls<0,MACD,0,4,0),Color00CC00;
STICKLINE(MACDls<0,MACD,0,3,0),Color00DD00;
STICKLINE(MACDls<0,MACD,0,2,0),Color00EE00;
STICKLINE(MACDls<0,MACD,0,1,0),Color00FF00;
DRAWTEXT(ref(MACD,1)>0 and MACD<=0 ,HHV(MACD,8),''+ref(紅柱面積,1)),ALIGN1,VALIGN1,colorred;
DRAWTEXT(ref(MACD,1)<0 and MACD>=0 ,LLV(MACD,4),''+ref(abs(綠柱面積),1)),ALIGN1,Color00ff00;
DRAWTEXT(BARSTATUS=2 AND MACD<0,LLV(MACD,8),''+abs(綠柱面積)),align2,Color00AA00;
DRAWTEXT(BARSTATUS=2 AND MACD>0,HHV(MACD,4),''+abs(紅柱面積)),align2,VALIGN1,colorred;

 

{用在5分鐘K線圖上的30分鐘/日線MACD紅綠柱面積(大智慧L2版)，在5分鐘K線圖上顯示30分鐘、日線MACD}
DIFF1:=EMA(CLOSE,60) - EMA(CLOSE,130);
DEA1:=EMA(DIFF1,45);
MACD:=2*(DIFF1-DEA1);
DIFFr:=EMA(CLOSE,576) - EMA(CLOSE,1248);
DEAr:=EMA(DIFFr,432);
MACDr:=2*(DIFFr-DEAr);
MACD30分鐘:MACD,Color0000FF,LINETHICK0;
DIFF30分鐘:DIFF1,Color0000FF;
DEA30分鐘:DEA1,ColorFF0000;
MACD日線:MACDr,ColorFF00FF,LINETHICK0;
DIFF日線:DIFFr,ColorFF00FF;
DEA日線:DEAr,Color00FF00;
綠柱面積:10*IF (MACD<0,SUM(MACD,BARSLAST(MACD>0)),0),LINETHICK0,colorred;
紅柱面積:10*IF (MACD>0,SUM(MACD,BARSLAST(MACD<0)),0),LINETHICK0,Color00ff00;
MACDhs:=IF(MACD>0 AND MACD>=REF(MACD,1),MACD,0);
MACDhx:=IF(MACD>0 AND MACD<=REF(MACD,1),MACD,0);
MACDlx:=IF(MACD<0 AND MACD<REF(MACD,1),MACD,0);
MACDls:=IF(MACD<0 AND MACD>REF(MACD,1),MACD,0);
STICKLINE(MACDr>0 AND MACDr>=REF(MACDr,1),0,MACDr,6,1),ColorFF99FF;
STICKLINE(MACDr>0 AND MACDr<REF(MACDr,1),0,MACDr,6,1),Color99ffFF;
STICKLINE(MACDr<0 AND MACDr<=REF(MACDr,1),0,MACDr,6,1),ColorFFbb99;
STICKLINE(MACDr<0 AND MACDr>REF(MACDr,1),0,MACDr,6,1),ColorbbFFbb;
STICKLINE(MACDhs>0,0,MACD,9,0),Color0000BB;
STICKLINE(MACDhs>0,0,MACD,8,0),Color0000CC;
STICKLINE(MACDhs>0,0,MACD,7,0),Color0011CC;
STICKLINE(MACDhs>0,0,MACD,6,0),Color1122DD;
STICKLINE(MACDhs>0,0,MACD,5,0),Color2233DD;
STICKLINE(MACDhs>0,0,MACD,4,0),Color3344EE;
STICKLINE(MACDhs>0,0,MACD,3,0),Color4455EE;
STICKLINE(MACDhs>0,0,MACD,2,0),Color5566FF;
STICKLINE(MACDhs>0,0,MACD,1,0),Color6677FF;
STICKLINE(MACDhx>0,0,MACD,9,0),Color0077BB;
STICKLINE(MACDhx>0,0,MACD,8,0),Color0088CC;
STICKLINE(MACDhx>0,0,MACD,7,0),Color0099CC;
STICKLINE(MACDhx>0,0,MACD,6,0),Color00AADD;
STICKLINE(MACDhx>0,0,MACD,5,0),Color00BBDD;
STICKLINE(MACDhx>0,0,MACD,4,0),Color00CCEE;
STICKLINE(MACDhx>0,0,MACD,3,0),Color00DDEE;
STICKLINE(MACDhx>0,0,MACD,2,0),Color00EEFF;
STICKLINE(MACDhx>0,0,MACD,1,0),Color00FFFF;
STICKLINE(MACDlx<0,MACD,0,9,0),Color770000;
STICKLINE(MACDlx<0,MACD,0,8,0),Color881100;
STICKLINE(MACDlx<0,MACD,0,7,0),Color992200;
STICKLINE(MACDlx<0,MACD,0,6,0),ColorAA3300;
STICKLINE(MACDlx<0,MACD,0,5,0),ColorBB4400;
STICKLINE(MACDlx<0,MACD,0,4,0),ColorCC5500;
STICKLINE(MACDlx<0,MACD,0,3,0),ColorDD6600;
STICKLINE(MACDlx<0,MACD,0,2,0),ColorEE7700;
STICKLINE(MACDlx<0,MACD,0,1,0),ColorFF8800;
STICKLINE(MACDls<0,MACD,0,9,0),Color005500;
STICKLINE(MACDls<0,MACD,0,8,0),Color007700;
STICKLINE(MACDls<0,MACD,0,7,0),Color009900;
STICKLINE(MACDls<0,MACD,0,6,0),Color00AA00;
STICKLINE(MACDls<0,MACD,0,5,0),Color00BB00;
STICKLINE(MACDls<0,MACD,0,4,0),Color00CC00;
STICKLINE(MACDls<0,MACD,0,3,0),Color00DD00;
STICKLINE(MACDls<0,MACD,0,2,0),Color00EE00;
STICKLINE(MACDls<0,MACD,0,1,0),Color00FF00;
DRAWTEXT(ref(MACD,1)>0 and MACD<=0 ,HHV(MACD,8),''+ref(紅柱面積,1)),ALIGN1,VALIGN1,colorred;
DRAWTEXT(ref(MACD,1)<0 and MACD>=0 ,LLV(MACD,4),''+ref(abs(綠柱面積),1)),ALIGN1,Color00ff00;
DRAWTEXT(BARSTATUS=2 AND MACD<0,LLV(MACD,8),''+abs(綠柱面積)),align2,Color00AA00;
DRAWTEXT(BARSTATUS=2 AND MACD>0,HHV(MACD,4),''+abs(紅柱面積)),align2,VALIGN1,colorred;

 

{用在30分鐘K線圖上的日線/周線MACD紅綠柱面積(大智慧L2版)，在30分鐘K線圖上顯示日線、周線MACD}
DIFF1:=EMA(CLOSE,96) - EMA(CLOSE,208);
DEA1:=EMA(DIFF1,72);
MACD:=2*(DIFF1-DEA1);
DIFFz:=EMA(CLOSE,480) - EMA(CLOSE,1040);
DEAz:=EMA(DIFFz,360);
MACDz:=2*(DIFFz-DEAz);
MACD日線:MACD,COLOR0000FF,LINETHICK0;
DIFF日線:DIFF1,Color0000FF;
DEA日線:DEA1,ColorFF0000;
MACD周線:MACDz,ColorFF00FF,LINETHICK0;
DIFF周線:DIFFz,ColorFF00FF;
DEA周線:DEAz,Color00FF00;
綠柱面積:10*IF (MACD<0,SUM(MACD,BARSLAST(MACD>0)),0),LINETHICK0,colorred;
紅柱面積:10*IF (MACD>0,SUM(MACD,BARSLAST(MACD<0)),0),LINETHICK0,Color00ff00;
MACDhs:=IF(MACD>0 AND MACD>=REF(MACD,1),MACD,0);
MACDhx:=IF(MACD>0 AND MACD<=REF(MACD,1),MACD,0);
MACDlx:=IF(MACD<0 AND MACD<REF(MACD,1),MACD,0);
MACDls:=IF(MACD<0 AND MACD>REF(MACD,1),MACD,0);
STICKLINE(MACDz>0 AND MACDz>=REF(MACDz,1),0,MACDz,6,1),ColorFF99FF;
STICKLINE(MACDz>0 AND MACDz<REF(MACDz,1),0,MACDz,6,1),Color99ffFF;
STICKLINE(MACDz<0 AND MACDz<=REF(MACDz,1),0,MACDz,6,1),ColorFFbb99;
STICKLINE(MACDz<0 AND MACDz>REF(MACDz,1),0,MACDz,6,1),ColorbbFFbb;
STICKLINE(MACDhs>0,0,MACD,9,0),Color0000BB;
STICKLINE(MACDhs>0,0,MACD,8,0),Color0000CC;
STICKLINE(MACDhs>0,0,MACD,7,0),Color0011CC;
STICKLINE(MACDhs>0,0,MACD,6,0),Color1122DD;
STICKLINE(MACDhs>0,0,MACD,5,0),Color2233DD;
STICKLINE(MACDhs>0,0,MACD,4,0),Color3344EE;
STICKLINE(MACDhs>0,0,MACD,3,0),Color4455EE;
STICKLINE(MACDhs>0,0,MACD,2,0),Color5566FF;
STICKLINE(MACDhs>0,0,MACD,1,0),Color6677FF;
STICKLINE(MACDhx>0,0,MACD,9,0),Color0077BB;
STICKLINE(MACDhx>0,0,MACD,8,0),Color0088CC;
STICKLINE(MACDhx>0,0,MACD,7,0),Color0099CC;
STICKLINE(MACDhx>0,0,MACD,6,0),Color00AADD;
STICKLINE(MACDhx>0,0,MACD,5,0),Color00BBDD;
STICKLINE(MACDhx>0,0,MACD,4,0),Color00CCEE;
STICKLINE(MACDhx>0,0,MACD,3,0),Color00DDEE;
STICKLINE(MACDhx>0,0,MACD,2,0),Color00EEFF;
STICKLINE(MACDhx>0,0,MACD,1,0),Color00FFFF;
STICKLINE(MACDlx<0,MACD,0,9,0),Color770000;
STICKLINE(MACDlx<0,MACD,0,8,0),Color881100;
STICKLINE(MACDlx<0,MACD,0,7,0),Color992200;
STICKLINE(MACDlx<0,MACD,0,6,0),ColorAA3300;
STICKLINE(MACDlx<0,MACD,0,5,0),ColorBB4400;
STICKLINE(MACDlx<0,MACD,0,4,0),ColorCC5500;
STICKLINE(MACDlx<0,MACD,0,3,0),ColorDD6600;
STICKLINE(MACDlx<0,MACD,0,2,0),ColorEE7700;
STICKLINE(MACDlx<0,MACD,0,1,0),ColorFF8800;
STICKLINE(MACDls<0,MACD,0,9,0),Color005500;
STICKLINE(MACDls<0,MACD,0,8,0),Color007700;
STICKLINE(MACDls<0,MACD,0,7,0),Color009900;
STICKLINE(MACDls<0,MACD,0,6,0),Color00AA00;
STICKLINE(MACDls<0,MACD,0,5,0),Color00BB00;
STICKLINE(MACDls<0,MACD,0,4,0),Color00CC00;
STICKLINE(MACDls<0,MACD,0,3,0),Color00DD00;
STICKLINE(MACDls<0,MACD,0,2,0),Color00EE00;
STICKLINE(MACDls<0,MACD,0,1,0),Color00FF00;
DRAWTEXT(ref(MACD,1)>0 and MACD<=0 ,HHV(MACD,8),''+ref(紅柱面積,1)),ALIGN1,VALIGN1,colorred;
DRAWTEXT(ref(MACD,1)<0 and MACD>=0 ,LLV(MACD,4),''+ref(abs(綠柱面積),1)),ALIGN1,Color00ff00;
DRAWTEXT(BARSTATUS=2 AND MACD<0,LLV(MACD,8),''+abs(綠柱面積)),align2,Color00AA00;
DRAWTEXT(BARSTATUS=2 AND MACD>0,HHV(MACD,4),''+abs(紅柱面積)),align2,VALIGN1,colorred;

 

{用在1分鐘K線圖上的5分鐘/30分鐘MACD紅綠柱面積(飛狐纏友版)，在1分鐘K線圖上顯示5分鐘、30分鐘的MACD}
DIFF30:=EMA(CLOSE,360) - EMA(CLOSE,780);
DEA30:=EMA(DIFF30,270);
MACD30:=2*(DIFF30-DEA30){,COLORSTICK},LINETHICK0;
STICKLINE(MACD30>0 AND MACD30>=REF(MACD30,1),0,MACD30,9,0),ColorFF99FF;
STICKLINE(MACD30>0 AND MACD30<REF(MACD30,1),0,MACD30,9,0),Color99ffFF;
STICKLINE(MACD30<0 AND MACD30<=REF(MACD30,1),0,MACD30,9,0),ColorFFff99;
STICKLINE(MACD30<0 AND MACD30>REF(MACD30,1),0,MACD30,9,0),ColorbbFFbb;
DIFF1:=EMA(CLOSE,60) - EMA(CLOSE,130);
DEA1:=EMA(DIFF1,45);
MACD:=2*(DIFF1-DEA1){,COLORSTICK},LINETHICK0;
MACD5分鐘:MACD,Color0000FF,LINETHICK0;
MACDhs:=IF(MACD>0 AND MACD>=REF(MACD,1),MACD,0);
MACDhx:=IF(MACD>0 AND MACD<=REF(MACD,1),MACD,0);
MACDlx:=IF(MACD<0 AND MACD<REF(MACD,1),MACD,0);
MACDls:=IF(MACD<0 AND MACD>REF(MACD,1),MACD,0);
STICKLINE(MACDhs>0,0,MACD,9,0),Color0000BB;
STICKLINE(MACDhs>0,0,MACD,8,0),Color0000CC;
STICKLINE(MACDhs>0,0,MACD,7,0),Color0011CC;
STICKLINE(MACDhs>0,0,MACD,6,0),Color1122DD;
STICKLINE(MACDhs>0,0,MACD,5,0),Color2233DD;
STICKLINE(MACDhs>0,0,MACD,4,0),Color3344EE;
STICKLINE(MACDhs>0,0,MACD,3,0),Color4455EE;
STICKLINE(MACDhs>0,0,MACD,2,0),Color5566FF;
STICKLINE(MACDhs>0,0,MACD,1,0),Color6677FF;
STICKLINE(MACDhx>0,0,MACD,9,0),Color0077BB;
STICKLINE(MACDhx>0,0,MACD,8,0),Color0088CC;
STICKLINE(MACDhx>0,0,MACD,7,0),Color0099CC;
STICKLINE(MACDhx>0,0,MACD,6,0),Color00AADD;
STICKLINE(MACDhx>0,0,MACD,5,0),Color00BBDD;
STICKLINE(MACDhx>0,0,MACD,4,0),Color00CCEE;
STICKLINE(MACDhx>0,0,MACD,3,0),Color00DDEE;
STICKLINE(MACDhx>0,0,MACD,2,0),Color00EEFF;
STICKLINE(MACDhx>0,0,MACD,1,0),Color00FFFF;
STICKLINE(MACDlx<0,MACD,0,9,0),Color770000;
STICKLINE(MACDlx<0,MACD,0,8,0),Color881100;
STICKLINE(MACDlx<0,MACD,0,7,0),Color992200;
STICKLINE(MACDlx<0,MACD,0,6,0),ColorAA3300;
STICKLINE(MACDlx<0,MACD,0,5,0),ColorBB4400;
STICKLINE(MACDlx<0,MACD,0,4,0),ColorCC5500;
STICKLINE(MACDlx<0,MACD,0,3,0),ColorDD6600;
STICKLINE(MACDlx<0,MACD,0,2,0),ColorEE7700;
STICKLINE(MACDlx<0,MACD,0,1,0),ColorFF8800;
STICKLINE(MACDls<0,MACD,0,9,0),Color005500;
STICKLINE(MACDls<0,MACD,0,8,0),Color007700;
STICKLINE(MACDls<0,MACD,0,7,0),Color009900;
STICKLINE(MACDls<0,MACD,0,6,0),Color00AA00;
STICKLINE(MACDls<0,MACD,0,5,0),Color00BB00;
STICKLINE(MACDls<0,MACD,0,4,0),Color00CC00;
STICKLINE(MACDls<0,MACD,0,3,0),Color00DD00;
STICKLINE(MACDls<0,MACD,0,2,0),Color00EE00;
STICKLINE(MACDls<0,MACD,0,1,0),Color00FF00;
DIFF5分鐘:DIFF1,Color0000FF;
DEA5分鐘:DEA1,ColorFF0000;
MACD30分鐘:MACD30,ColorFF00FF,LINETHICK0;
DIFF30分鐘:DIFF30,ColorFF00FF;
DEA30分鐘:DEA30,Color00FF00;
紅柱面積:10*IF(MACD>0,SUM(MACD,BARSLAST(MACD<0)),0),LINETHICK0,Color0000FF;
綠柱面積:10*IF(MACD<0,SUM(MACD,BARSLAST(MACD>0)),0),LINETHICK0,Color006000;
DRAWNUMBER(ref(MACD,1)>0 and MACD<=0 ,HHV(MACD,4),ref(紅柱面積,1),2),ALIGN1,pxup10,colorred;
DRAWNUMBER(ref(MACD,1)<0 and MACD>=0 ,LLV(MACD,4),ref(abs(綠柱面積),1),2),ALIGN1,pxdn5,Color006000;
DRAWNUMBER(BARSTATUS=2 AND MACD<0,LLV(MACD,4),abs(綠柱面積),2),align2,pxdn5,Color006000;
DRAWNUMBER(BARSTATUS=2 AND MACD>0,HHV(MACD,4),abs(紅柱面積),2),align2,pxup10,colorred;
DRAWNUMBER(MACD>0 AND MACD=HHV(MACD,BARSLAST(MACD<0)) AND MACD>=REFX(MACD,1) AND MACD>=REFX(MACD,2),MACD,MACD,2),align0,pxup20,ColorFF0000;
DRAWNUMBER(MACD<0 AND MACD=LLV(MACD,BARSLAST(MACD>0)) AND MACD<=REFX(MACD,1) AND MACD<=REFX(MACD,2),MACD,MACD,2),align0,pxup10,ColorFF00FF;
0,Color000000;


{用在5分鐘K線圖上的30分鐘/日線MACD紅綠柱面積(飛狐纏友版)，在5分鐘K線圖上顯示30分鐘、日線MACD}
DIFFr:=EMA(CLOSE,576) - EMA(CLOSE,1248);
DEAr:=EMA(DIFFr,432);
MACDr:=2*(DIFFr-DEAr){,COLORSTICK},LINETHICK0;
STICKLINE(MACDr>0 AND MACDr>=REF(MACDr,1),0,MACDr,9,0),ColorFF99FF;
STICKLINE(MACDr>0 AND MACDr<REF(MACDr,1),0,MACDr,9,0),Color99ffFF;
STICKLINE(MACDr<0 AND MACDr<=REF(MACDr,1),0,MACDr,9,0),ColorFFbb99;
STICKLINE(MACDr<0 AND MACDr>REF(MACDr,1),0,MACDr,9,0),ColorbbFFbb;
DIFF1:=EMA(CLOSE,72) - EMA(CLOSE,156);
DEA1:=EMA(DIFF1,54);
MACD:=2*(DIFF1-DEA1){,COLORSTICK},LINETHICK0;
MACD30分鐘:MACD,Color0000FF,LINETHICK0;
MACDhs:=IF(MACD>0 AND MACD>=REF(MACD,1),MACD,0);
MACDhx:=IF(MACD>0 AND MACD<=REF(MACD,1),MACD,0);
MACDlx:=IF(MACD<0 AND MACD<REF(MACD,1),MACD,0);
MACDls:=IF(MACD<0 AND MACD>REF(MACD,1),MACD,0);
STICKLINE(MACDhs>0,0,MACD,9,0),Color0000BB;
STICKLINE(MACDhs>0,0,MACD,8,0),Color0000CC;
STICKLINE(MACDhs>0,0,MACD,7,0),Color0011CC;
STICKLINE(MACDhs>0,0,MACD,6,0),Color1122DD;
STICKLINE(MACDhs>0,0,MACD,5,0),Color2233DD;
STICKLINE(MACDhs>0,0,MACD,4,0),Color3344EE;
STICKLINE(MACDhs>0,0,MACD,3,0),Color4455EE;
STICKLINE(MACDhs>0,0,MACD,2,0),Color5566FF;
STICKLINE(MACDhs>0,0,MACD,1,0),Color6677FF;
STICKLINE(MACDhx>0,0,MACD,9,0),Color0077BB;
STICKLINE(MACDhx>0,0,MACD,8,0),Color0088CC;
STICKLINE(MACDhx>0,0,MACD,7,0),Color0099CC;
STICKLINE(MACDhx>0,0,MACD,6,0),Color00AADD;
STICKLINE(MACDhx>0,0,MACD,5,0),Color00BBDD;
STICKLINE(MACDhx>0,0,MACD,4,0),Color00CCEE;
STICKLINE(MACDhx>0,0,MACD,3,0),Color00DDEE;
STICKLINE(MACDhx>0,0,MACD,2,0),Color00EEFF;
STICKLINE(MACDhx>0,0,MACD,1,0),Color00FFFF;
STICKLINE(MACDlx<0,MACD,0,9,0),Color770000;
STICKLINE(MACDlx<0,MACD,0,8,0),Color881100;
STICKLINE(MACDlx<0,MACD,0,7,0),Color992200;
STICKLINE(MACDlx<0,MACD,0,6,0),ColorAA3300;
STICKLINE(MACDlx<0,MACD,0,5,0),ColorBB4400;
STICKLINE(MACDlx<0,MACD,0,4,0),ColorCC5500;
STICKLINE(MACDlx<0,MACD,0,3,0),ColorDD6600;
STICKLINE(MACDlx<0,MACD,0,2,0),ColorEE7700;
STICKLINE(MACDlx<0,MACD,0,1,0),ColorFF8800;
STICKLINE(MACDls<0,MACD,0,9,0),Color005500;
STICKLINE(MACDls<0,MACD,0,8,0),Color007700;
STICKLINE(MACDls<0,MACD,0,7,0),Color009900;
STICKLINE(MACDls<0,MACD,0,6,0),Color00AA00;
STICKLINE(MACDls<0,MACD,0,5,0),Color00BB00;
STICKLINE(MACDls<0,MACD,0,4,0),Color00CC00;
STICKLINE(MACDls<0,MACD,0,3,0),Color00DD00;
STICKLINE(MACDls<0,MACD,0,2,0),Color00EE00;
STICKLINE(MACDls<0,MACD,0,1,0),Color00FF00;
DIFF30分鐘:DIFF1,Color0000FF;
DEA30分鐘:DEA1,ColorFF0000;
MACD日線:MACDr,ColorFF00FF,LINETHICK0;
DIFF日線:DIFFr,ColorFF00FF;
DEA日線:DEAr,Color00FF00;
紅柱面積:10*IF(MACD>0,SUM(MACD,BARSLAST(MACD<0)),0),LINETHICK0,Color0000FF;
綠柱面積:10*IF(MACD<0,SUM(MACD,BARSLAST(MACD>0)),0),LINETHICK0,Color006000;
DRAWNUMBER(ref(MACD,1)>0 and MACD<=0 ,HHV(MACD,4),ref(紅柱面積,1),2),ALIGN1,pxup10,colorred;
DRAWNUMBER(ref(MACD,1)<0 and MACD>=0 ,LLV(MACD,4),ref(abs(綠柱面積),1),2),ALIGN1,pxdn5,Color006000;
DRAWNUMBER(BARSTATUS=2 AND MACD<0,LLV(MACD,4),abs(綠柱面積),2),align2,pxdn5,Color006000;
DRAWNUMBER(BARSTATUS=2 AND MACD>0,HHV(MACD,4),abs(紅柱面積),2),align2,pxup10,colorred;
DRAWNUMBER(MACD>0 AND MACD=HHV(MACD,BARSLAST(MACD<0)) AND MACD>=REFX(MACD,1) AND MACD>=REFX(MACD,2),MACD,MACD,2),align0,pxup20,ColorFF0000;
DRAWNUMBER(MACD<0 AND MACD=LLV(MACD,BARSLAST(MACD>0)) AND MACD<=REFX(MACD,1) AND MACD<=REFX(MACD,2),MACD,MACD,2),align0,pxup10,ColorFF00FF;
0,Color000000;


{用在30分鐘K線圖上的日線/周線MACD紅綠柱面積(飛狐纏友版)，在30分鐘K線圖上顯示日線、周線MACD}
DIFFz:=EMA(CLOSE,480) - EMA(CLOSE,1040);
DEAz:=EMA(DIFFz,360);
MACDz:=2*(DIFFz-DEAz){,COLORSTICK},LINETHICK0;
STICKLINE(MACDz>0 AND MACDz>=REF(MACDz,1),0,MACDz,9,0),ColorFF99FF;
STICKLINE(MACDz>0 AND MACDz<REF(MACDz,1),0,MACDz,9,0),Color99ffFF;
STICKLINE(MACDz<0 AND MACDz<=REF(MACDz,1),0,MACDz,9,0),ColorFFbb99;
STICKLINE(MACDz<0 AND MACDz>REF(MACDz,1),0,MACDz,9,0),ColorbbFFbb;
DIFF1:=EMA(CLOSE,96) - EMA(CLOSE,208);
DEA1:=EMA(DIFF1,72);
MACD:=2*(DIFF1-DEA1){,COLORSTICK},LINETHICK0;
MACD日線:MACD,COLOR0000FF,LINETHICK0;
MACDhs:=IF(MACD>0 AND MACD>=REF(MACD,1),MACD,0);
MACDhx:=IF(MACD>0 AND MACD<=REF(MACD,1),MACD,0);
MACDlx:=IF(MACD<0 AND MACD<REF(MACD,1),MACD,0);
MACDls:=IF(MACD<0 AND MACD>REF(MACD,1),MACD,0);
STICKLINE(MACDhs>0,0,MACD,9,0),Color0000BB;
STICKLINE(MACDhs>0,0,MACD,8,0),Color0000CC;
STICKLINE(MACDhs>0,0,MACD,7,0),Color0011CC;
STICKLINE(MACDhs>0,0,MACD,6,0),Color1122DD;
STICKLINE(MACDhs>0,0,MACD,5,0),Color2233DD;
STICKLINE(MACDhs>0,0,MACD,4,0),Color3344EE;
STICKLINE(MACDhs>0,0,MACD,3,0),Color4455EE;
STICKLINE(MACDhs>0,0,MACD,2,0),Color5566FF;
STICKLINE(MACDhs>0,0,MACD,1,0),Color6677FF;
STICKLINE(MACDhx>0,0,MACD,9,0),Color0077BB;
STICKLINE(MACDhx>0,0,MACD,8,0),Color0088CC;
STICKLINE(MACDhx>0,0,MACD,7,0),Color0099CC;
STICKLINE(MACDhx>0,0,MACD,6,0),Color00AADD;
STICKLINE(MACDhx>0,0,MACD,5,0),Color00BBDD;
STICKLINE(MACDhx>0,0,MACD,4,0),Color00CCEE;
STICKLINE(MACDhx>0,0,MACD,3,0),Color00DDEE;
STICKLINE(MACDhx>0,0,MACD,2,0),Color00EEFF;
STICKLINE(MACDhx>0,0,MACD,1,0),Color00FFFF;
STICKLINE(MACDlx<0,MACD,0,9,0),Color770000;
STICKLINE(MACDlx<0,MACD,0,8,0),Color881100;
STICKLINE(MACDlx<0,MACD,0,7,0),Color992200;
STICKLINE(MACDlx<0,MACD,0,6,0),ColorAA3300;
STICKLINE(MACDlx<0,MACD,0,5,0),ColorBB4400;
STICKLINE(MACDlx<0,MACD,0,4,0),ColorCC5500;
STICKLINE(MACDlx<0,MACD,0,3,0),ColorDD6600;
STICKLINE(MACDlx<0,MACD,0,2,0),ColorEE7700;
STICKLINE(MACDlx<0,MACD,0,1,0),ColorFF8800;
STICKLINE(MACDls<0,MACD,0,9,0),Color005500;
STICKLINE(MACDls<0,MACD,0,8,0),Color007700;
STICKLINE(MACDls<0,MACD,0,7,0),Color009900;
STICKLINE(MACDls<0,MACD,0,6,0),Color00AA00;
STICKLINE(MACDls<0,MACD,0,5,0),Color00BB00;
STICKLINE(MACDls<0,MACD,0,4,0),Color00CC00;
STICKLINE(MACDls<0,MACD,0,3,0),Color00DD00;
STICKLINE(MACDls<0,MACD,0,2,0),Color00EE00;
STICKLINE(MACDls<0,MACD,0,1,0),Color00FF00;
DIFF日線:DIFF1,Color0000FF;
DEA日線:DEA1,ColorFF0000;
MACD周線:MACDz,ColorFF00FF,LINETHICK0;
DIFF周線:DIFFz,ColorFF00FF;
DEA周線:DEAz,Color00FF00;
紅柱面積:10*IF(MACD>0,SUM(MACD,BARSLAST(MACD<0)),0),LINETHICK0,Color0000FF;
綠柱面積:10*IF(MACD<0,SUM(MACD,BARSLAST(MACD>0)),0),LINETHICK0,Color006000;
DRAWNUMBER(ref(MACD,1)>0 and MACD<=0 ,HHV(MACD,4),ref(紅柱面積,1),2),ALIGN1,pxup10,colorred;
DRAWNUMBER(ref(MACD,1)<0 and MACD>=0 ,LLV(MACD,4),ref(abs(綠柱面積),1),2),ALIGN1,pxdn5,Color006000;
DRAWNUMBER(BARSTATUS=2 AND MACD<0,LLV(MACD,4),abs(綠柱面積),2),align2,pxdn5,Color006000;
DRAWNUMBER(BARSTATUS=2 AND MACD>0,HHV(MACD,4),abs(紅柱面積),2),align2,pxup10,colorred;
DRAWNUMBER(MACD>0 AND MACD=HHV(MACD,BARSLAST(MACD<0)) AND MACD>=REFX(MACD,1) AND MACD>=REFX(MACD,2),MACD,MACD,2),align0,pxup20,ColorFF0000;
DRAWNUMBER(MACD<0 AND MACD=LLV(MACD,BARSLAST(MACD>0)) AND MACD<=REFX(MACD,1) AND MACD<=REFX(MACD,2),MACD,MACD,2),align0,pxup10,ColorFF00FF;
0,Color000000;

 

附：

有朋友對我針對秋葉正紅的三級MACD的點評有異議，請看下圖，副圖中上面的是我的多級聯(lián)立，下面的是秋葉正紅的，請對比一下就知道我的點評是到位的，轉載秋葉正紅的公式是想給出大家將多級MACD整合到一個公式里的一個范本而已，只是強調不可以原樣照搬過來需要個性化的優(yōu)化而已：

 秋葉正紅的三級聯(lián)立MACD公式源碼

 

按照上圖，秋葉正紅的MACD的5f、30f的買點滯后1f買點不少，1f在2481買入、5f在2493附近買入、30f在2512附近方可買入。再看看附圖中上面的提示，多級MACD的買點提示幾乎是同步的。所以進行個性化的優(yōu)化是必須的，按照1f、5f、30f來區(qū)分級別過于死板，與大多數(shù)人使用相同的參數(shù)，如何能超前或消除滯后？（我是按照1/5/25/125倍來多級聯(lián)立的）

    轉載此公式只是想給大家些啟發(fā)，點評也只是個人看法，作者發(fā)布的也未必是自用公式，各位朋友心里有數(shù)就行，不再口水。

    本站是提供個人知識管理的網絡存儲空間，所有內容均由用戶發(fā)布，不代表本站觀點。請注意甄別內容中的聯(lián)系方式、誘導購買等信息，謹防詐騙。如發(fā)現(xiàn)有害或侵權內容，請點擊一鍵舉報。
    轉藏 分享 獻花（0）

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多