苍狼MACD 源码

流行云

或许对某些同志会有帮助，继续贴上源码  
7 c! Z& L# D* _$ G
; B: |  G) Q9 e0 j' F
{苍狼MACD}
INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
{短波}
短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
+ P- l! c. k4 m/ _8 I9 m" G+ J短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
MACD:=2*(短波-短均线);
" S. x5 b/ I! H$ ]0 r/ M{中波}
中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
2 ^( S9 Q+ t8 x1 G# \. T中均线:EMA(中波,M),COLORBLUE;
1 H" r/ N; v+ T4 L5 hMACD2:2*(中波-中均线),LINETHICK1;
STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
% [4 P& a# ~+ Y/ aSTICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
" \' ~# ?/ x! W5 X0 A{绘图}
FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
1 Q( K( b  C. R7 Q3 m8 l7 A% U" ~FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
) {+ l" K8 o, @1 L# c' K{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
7 t0 `# x0 @  O& D$ `+ t2 ?& Z短均线,LINETHICK2,COLORCYAN;
2 ?: g8 W; p: Q1 e+ r' m6 xPARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
* m4 U9 ~: z" G, n# X. j5 ^. ]PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
+ ]7 j4 M) f+ k7 f{周金叉,死叉}
) X! a- f& h7 h+ @. k2 iAA:="MACD.DIFF#WEEK";
BB:="MACD.DEA#WEEK";
5 H+ F3 @/ Z9 v- [; ?" r. ~DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
) t6 i- U, p' z" `& E8 ^7 k& ~{月金叉,死叉}
' G/ k0 u+ {# v( Z- V, SCC:="MACD.DIFF#MONTH";
  m8 s# h- _/ x' Q1 l" V; sDD:="MACD.DEA#MONTH";
% Q3 H% I5 s; C1 e, y3 xDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
9 M- ]! H; }6 ]  {* ^* l{选股}
1 q8 N# ^5 E( u! q/ h. {' J9 PEE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
出来:FILTER(EE,10);
DRAWICON(出来,中均线,1);

" u4 w$ c& q) l! z" w+ a6 g

axin302

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

流行云

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

/ C3 R7 B7 v1 l+ s6 V' k7 O3 p
  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别
. E7 T0 V( o3 C

axin302

真高手！