[大智慧指标] MACD红绿柱面积公式（大智慧指标）

张咏

MACD红绿柱面积公式：

1. DIF : 10*(EMA(CLOSE,short) - EMA(CLOSE,long));
   
2. DEA : EMA(DIF,mid);
   
3. MACD : 2*(DIF-DEA), COLORSTICK;
   
4. 
   
5. {面积计算}//注：SUM(MACD在N周期内的总和 BARLAST上一次条件成立(macd>0)到当前的周期数;
   
6. 绿面积:IF (MACD<0,SUM(MACD,BARSLAST(MACD>0)) * 100,0),linethick0,colorgreen;
   
7. 红面积:IF (MACD>0,SUM(MACD,BARSLAST(MACD<0)) * 100,0),linethick0,colorred;
   
8. 
   
9. DRAWTEXT( ref(MACD,1)>0 and MACD<=0 ,HHV(MACD,4), NUMTOSTRN(REF(红面积, 1), 3)), colorred,valign2;
   
10. DRAWTEXT( ref(MACD,1)<0 and MACD>=0 ,LLV(MACD,4), NUMTOSTRN(REF(绿面积, 1), 3)), colorgreen;
    
11. {当前面积}
    
12. DRAWTEXT(BARSTATUS=2 and macd>0, -macd*0.03, NUMTOSTRN(红面积, 1),3), coloryellow,valign0, align2;
    
13. DRAWTEXT(BARSTATUS=2 and macd<=0, -macd*0.03, NUMTOSTRN(绿面积, 1),3), coloryellow,valign2,align2;
    
14. 
    
15. {多空线: 0, colorwhite, dotline;}
    
16. stickline(MACD<0 and MACD>=REF(MACD, 1), 0, macd, 0, 0), linethick2,colorwhite;
    
17. stickline(MACD<0 and MACD
    
18. stickline(MACD>=0 and MACD>REF(MACD, 1), 0, macd, 0, 0), linethick2,colorred;
    
19. stickline(MACD>=0 and MACD<=REF(MACD, 1), 0, macd, 0, 0),linethick2, colorwhite;
    
20. 
    
21. ｛根据条件变色绘制dif线，当dif向上时画红线，dif向下时画绿线}
    
22. partline(dif,dif>=ref(dif,1),rgb(255,0,0),dif﹤ref(dif,1),rgb(0,255,0)),linethick2;

复制代码