通达信极品变色MACD公式

[复制链接]
查看118 | 回复0 | 2022-7-24 09:04:54 | 显示全部楼层 |阅读模式

 通达信极品变色MACD公式

复制内容到剪贴板
  1. DIFF:EMA(CLOSE,12)-EMA(CLOSE,27);   
  2. DEA:EMA(DIFF,9);   
  3. MACD:=2*(DIFF-DEA);   
  4. STICKLINE(MACD>=0,MACD,0,2,1),COLORF00FF0;   
  5. STICKLINE(MACD<0,MACD,0,2,1),COLORWHITE;   
  6. STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00AAFF;   
  7. STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00BBFF;   
  8. STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00CCFF;   
  9. STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00DDFF;   
  10. STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00EEFF;   
  11. STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00FFFF;   
  12. STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0000AA;   
  13. STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0011BB;   
  14. STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0022CC;   
  15. STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0033DD;   
  16. STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0044EE;   
  17. STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0055FF;   
  18. STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORAA00BB;   
  19. STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORBB11BB;   
  20. STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORCC22BB;   
  21. STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORDD33BB;   
  22. STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLOREE44BB;   
  23. STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFF55BB;   
  24. STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFAA00;   
  25. STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFBB11;   
  26. STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFCC22;   
  27. STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFDD33;   
  28. STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFEE44;   
  29. STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFFF55;   
  30. IF(DIFF<0,DIFF,0),COLORRED,LINETHICK1;   
  31. IF(DIFF<0,0,DIFF),COLORYELLOW,LINETHICK1;   
  32. IF(DIFF<DEA,DIFF,DEA),COLOR00FF00,LINETHICK1;   
  33. IF(DIFF>DEA,DEA,DEA),COLORWHITE,LINETHICK1;   
  34. 低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;   
  35. STICKLINE(低位金叉,0,-0.18,2,0),COLORYELLOW;   
  36. DRAWTEXT(低位金叉,-0.1,' 低位金叉'),COLORYELLOW;   
  37. JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));   
  38. 二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;   
  39. STICKLINE(二次金叉,0,-0.18,2,0),COLORFF00FF;   
  40. DRAWICON(二次金叉,DEA*1.04,13) ;   
  41. DRAWTEXT(二次金叉,-0.1,' 二次金叉'),COLORFF00FF;   
  42. A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));   
  43. 底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);   
  44. STICKLINE(底背离,0,0.13,2,0),COLOR00FF00;   
  45. DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,LINETHICK2;   
  46. DRAWTEXT(底背离,0.1,' 底背离'),COLOR00FF00;   
  47. A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));   
  48. 顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);   
  49. DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORGREEN,LINETHICK2;   

 

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则