分享AmiBroker的MACD紅綠柱狀線

小娃

剛才想要MACD紅綠柱狀線。
上網找了寫法。
分享給大家。

1. //MACD - Moving Average Convergence Divergence v1
   
2. //adapted from code by Tomasz Janeczko
   
3. //ideas by Graham Kavanagh and Terry Magic
   
4. r1 = Param( "Fast avg", 12, 2, 200, 1 );
   
5. r2 = Param( "Slow avg", 26, 2, 200, 1 );
   
6. r3 = Param( "Signal avg", 9, 2, 200, 1 );
   
7. m1 = MACD(r1, r2);
   
8. s1 = Signal(r1,r2,r3);
   
9. difference = m1-s1;
   
10. Plot( m1, StrFormat(_SECTION_NAME()+"(%g,%g)", r1, r2), ParamColor("MACD color", colorRed ), ParamStyle("MACD style") );
    
11. Plot( s1, "Signal" + _PARAM_VALUES(), ParamColor("Signal color", colorBlue ), ParamStyle("Signal style") );
    
12. Color=IIf(difference > 0,colorGreen,colorRed);
    
13. Plot(difference, "MACD Histogram", Color, styleNoTitle | ParamStyle("Histogram style", styleHistogram | styleThick | styleNoLabel, maskHistogram ) );

複製代碼

wilburwclee

剛才有在別的主題上貼上自己修改的MACD碼。為了和更多人分享，在此也貼上自己用的MACD程式碼及產生的輸出圖。


中間是原本AmiBroker的MACD，下面是我MACD程式產生的圖形。DIF 及 MACD 線基本上一樣；DEF用PlotOHLC畫，所以會和Candlestick一樣粗；同時，除了顏色用正負區別外，同時也和前一個值比，往上與往下顏色會有些不同，所以光用看的，就可以知道DEF的方向。

程式碼如下：

1. // ========== MACD Parameter ==========
   
2. r1 = Param( "Fast avg", 12, 2, 200, 1 );
   
3. r2 = Param( "Slow avg", 26, 2, 200, 1 );
   
4. r3 = Param( "Signal avg", 9, 2, 200, 1 );
   
5. 
   
6. // ========== MACD Calculation ==========
   
7. MACDPrice = (C + H + L + C)/4;
   
8. dif = EMA(MACDPrice, r1) - EMA(MACDPrice, r2);
   
9. dea = EMA(dif, r3);
   
10. def = dif - dea;
    
11. 
    
12. // dif = MACD(r1, r2);
    
13. // dea = Signal(r1,r2,r3);
    
14. // def = dif -dea;
    
15. 
    
16. // ========== DIF/MACD Plots ==========
    
17. Plot( dif, StrFormat("DIF(%g,%g)", r1, r2), ParamColor("DIF color", colorRed ), ParamStyle("DIF style") );
    
18. Plot( dea, "MACD" + _PARAM_VALUES(), ParamColor("MACD color", colorBlue ), ParamStyle("MACD style") );
    
19. 
    
20. // ========== DEF "Thick" Histogram ==========
    
21. // Set DEF color
    
22. Color=IIf(def > 0,  IIf(def > Ref(def,-1), ColorRGB(128,255,128), colorGreen),IIf(def > Ref(def,-1), ColorRGB(255,160,160), colorRed));
    
23. 
    
24. // Set DEF title and its value (no plot is drawn)
    
25. Plot(def, _SECTION_NAME()  +_PARAM_VALUES() , colorGreen, styleHidden | styleHistogram | styleThick );
    
26. 
    
27. // Plot DEF "thick" histogram using OHLC
    
28. SetBarFillColor(Color);
    
29. zero = IIf(IsEmpty(Ref(def, -1)), Null, 0);
    
30. PlotOHLC(def, def, zero, zero, "Thick Histogram", Color, styleCandle | styleNoTitle | ParamStyle("Histogram style", styleOwnScale, styleOwnScale ) );
    
31. 
    
32. GraphXSpace = 20;

複製代碼

小娃

抱歉。
剛才沒有發現顏色標反了。
外國人真奇怪，
上漲用綠的，下跌用紅的。
修正在下面。

1. //MACD - Moving Average Convergence Divergence v1
   
2. //adapted from code by Tomasz Janeczko
   
3. //ideas by Graham Kavanagh and Terry Magic
   
4. r1 = Param( "Fast avg", 12, 2, 200, 1 );
   
5. r2 = Param( "Slow avg", 26, 2, 200, 1 );
   
6. r3 = Param( "Signal avg", 9, 2, 200, 1 );
   
7. m1 = MACD(r1, r2);
   
8. s1 = Signal(r1,r2,r3);
   
9. difference = m1-s1;
   
10. Plot( m1, StrFormat(_SECTION_NAME()+"(%g,%g)", r1, r2), ParamColor("MACD color", colorRed ), ParamStyle("MACD style") );
    
11. Plot( s1, "Signal" + _PARAM_VALUES(), ParamColor("Signal color", colorBlue ), ParamStyle("Signal style") );
    
12. Color=IIf(difference > 0,colorRed,colorGreen);
    
13. Plot(difference, "MACD Histogram", Color, styleNoTitle | ParamStyle("Histogram style", styleHistogram | styleThick | styleNoLabel, maskHistogram ) );

複製代碼

Sirius

若需要柱體值的，最後一行補上以下這行即可

1. Plot( difference , "BAR", Color, styleNoLine);

複製代碼

"BAR"那個柱體英文名稱，請自行改成自己想要的名稱

以上是幫oneman001大做的

oneman001

回復 3# Sirius
謝謝您
您人真好

usana642

謝謝分享............

shanggao6

謝謝您
您人真好。。。。。。。。。。。。

hsiao13

真好！謝謝您分享。

lwhuang

太棒了，很多希望是內建的，不用再搞東搞西

kennylai

謝謝大大.......剛來報到

kingwang

感謝版主的分享，謝謝