苍狼MACD 源码

流行云

或许对某些同志会有帮助，继续贴上源码  

0 E2 [" K3 e# P. |3 ^4 \- I: P
{苍狼MACD}
) @7 S; U) L2 i0 x0 {& f$ ?4 IINPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
{短波}
, b6 s1 I! q* Q' |# ?短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
$ ~, h# w+ G) `" h短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
! K! k% q3 I! c. a0 K# }MACD:=2*(短波-短均线);
{中波}
中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
9 L" i4 h5 F& C( w* v4 f中均线:EMA(中波,M),COLORBLUE;
$ E* _2 U+ S& ~+ VMACD2:2*(中波-中均线),LINETHICK1;
STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
7 b: ^$ e( |; ]* m% Y4 ?% i& }STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
{绘图}
# R$ C9 n' ~' j6 }( p, T0 m. pFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
4 c; Q4 P" C' D8 z" @2 mFILLRGN(中波<中均线,中波,中均线),COLORBLUE;
) v# Z  |) r7 r. _- U& w8 n4 }{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
5 o# @( U1 `+ J. k9 v1 {. H3 r短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
# N; _( I; v- A& J! E( ]" QPARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
{周金叉,死叉}
/ R" G8 W' z0 \AA:="MACD.DIFF#WEEK";
BB:="MACD.DEA#WEEK";
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
) v/ j# q. b$ o, ?2 M, I  ]DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
  A6 S8 W4 R# ^{月金叉,死叉}
- k# x) q# @2 ?! x( P6 TCC:="MACD.DIFF#MONTH";
( p; G7 ^& r2 _! ZDD:="MACD.DEA#MONTH";
3 d, q4 J. K7 A- N9 dDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
+ K/ t/ c2 i6 w+ v2 T{选股}
2 x  m& r: Z- J0 c; A  n# X5 z) ]EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
出来:FILTER(EE,10);
DRAWICON(出来,中均线,1);

axin302

看起来不错，加上背离指标会更好

流行云

axin302 发表于 2013-6-23 10:29
看起来不错，加上背离指标会更好

  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别

axin302

真高手！