苍狼MACD 源码

流行云

- _$ {9 ]9 P! }8 _7 Y6 b8 L- ?7 R
/ O) M5 s' b" c5 M! o
7 t' b0 ]- w/ r或许对某些同志会有帮助，继续贴上源码  
/ w/ \- g. [8 @, ?9 u9 j" ~
) _$ p9 N5 @- ~' n
{苍狼MACD}
INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
1 X6 l9 T* r, }{短波}
短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
MACD:=2*(短波-短均线);
: u" o/ t7 B1 s{中波}
中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
中均线:EMA(中波,M),COLORBLUE;
MACD2:2*(中波-中均线),LINETHICK1;
STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
{绘图}
8 d( P: _. W3 kFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
1 t1 H" O% W* R# Z# Q{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
9 x, H! z" x6 e# D8 y! kFILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
$ o. i8 t7 u+ Y4 R- ?0 VPARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
$ ]4 M. Q4 p9 H7 y8 h{周金叉,死叉}
* R) S3 P" ?1 g+ \# Q! OAA:="MACD.DIFF#WEEK";
* d! z9 {! |2 r7 QBB:="MACD.DEA#WEEK";
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
! i* y( _& t* ~! J; z  ?{月金叉,死叉}
CC:="MACD.DIFF#MONTH";
DD:="MACD.DEA#MONTH";
+ P& V# ]0 m3 R6 }% i$ WDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
, j" U9 F3 b3 ~7 Z+ yDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
, R9 z) E3 i% x2 a{选股}
3 Y% y3 v: P% j6 j- S8 d! B; r2 GEE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
出来:FILTER(EE,10);
, j5 ~0 V! E2 I$ `DRAWICON(出来,中均线,1);
# g  E& B5 a" L8 J

3 E  F' B5 v, r3 w& ^

axin302

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

流行云

  x6 s! t4 S1 r4 V0 g

axin302 发表于 2013-6-23 10:29
+ x/ ?. S: i; E/ [% N看起来不错，加上背离指标会更好

( a- Y2 N+ F( W/ M  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别

axin302

真高手！