苍狼MACD 源码

流行云

9 P6 J$ Q# \2 N4 N; t
2 t" \! s0 y& h+ h. K
或许对某些同志会有帮助，继续贴上源码  
( y3 ^3 N- M8 O8 T, f7 e$ D. n
+ x# s5 k$ Y+ a( i: `+ I
+ C  D' l0 y- J2 L{苍狼MACD}
INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
{短波}
1 M' e' T! y. C- L; G6 J  Q短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
+ y) N2 |; Y$ ^  d2 u短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
MACD:=2*(短波-短均线);
# u' G7 I6 {+ G5 C+ {{中波}
8 E9 u9 ~: K) e2 L中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
中均线:EMA(中波,M),COLORBLUE;
MACD2:2*(中波-中均线),LINETHICK1;
7 u4 }, f( s" n5 c, ~6 J( S3 iSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
{绘图}
6 ]  m) F. U% I8 a; W: HFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
' B- L$ p4 e' }" y- ^5 p# c1 n{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
5 W: N. u) t8 k. j5 s短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
" X/ M  B) T& @0 f  n* J{周金叉,死叉}
AA:="MACD.DIFF#WEEK";
+ g/ M* ]% K5 T$ KBB:="MACD.DEA#WEEK";
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
8 F' `& u, o7 s+ F5 B  g0 Z' K{月金叉,死叉}
) e2 X5 E5 `; B6 g1 U5 z& y& A9 T+ [: [CC:="MACD.DIFF#MONTH";
DD:="MACD.DEA#MONTH";
DRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
" m$ b7 {3 _4 G  V* x# rDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
6 B& k; l0 ]  i+ O; d{选股}
9 o4 z" y" m) a' EEE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
5 A% I; D8 y% ?, [) w$ r& k4 L出来:FILTER(EE,10);
DRAWICON(出来,中均线,1);

axin302

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

流行云

axin302 发表于 2013-6-23 10:29
3 O' z2 K: w3 J看起来不错，加上背离指标会更好

" i" Q/ b; w/ z' [( U: g


0 l( F3 `2 G' ]' I: E7 y  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别
, j2 \  ~+ _1 b. I/ X

axin302

真高手！