苍狼MACD 源码

流行云

7 O9 R; |# X9 v, |2 Q
; Q0 _2 f, \! A0 J
+ y, j2 }! \5 |* w或许对某些同志会有帮助，继续贴上源码  
, V2 m) x7 e) @1 d& V5 e  y

. y* O0 p8 E3 G6 \" Z# [{苍狼MACD}
INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
6 V; J; d' x/ R* M0 A7 k7 W{短波}
短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
  Z/ I2 j% ]. ^* `/ g. A0 V2 aMACD:=2*(短波-短均线);
{中波}
# ?# Z2 Z  X4 _2 N1 S中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
# |- n+ Q' [; D( \$ N( d) ?中均线:EMA(中波,M),COLORBLUE;
MACD2:2*(中波-中均线),LINETHICK1;
- Z: J1 s; T) K$ P. }! VSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
! s( y9 k8 H: i: y% b' xSTICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
8 C9 s/ d/ Y: s- s6 A2 [" x{绘图}
4 c3 [# G+ A. W3 I5 tFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
0 u% Q* z) `* w6 X) c{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
& ~; W. Q- w# {2 S; K短均线,LINETHICK2,COLORCYAN;
$ \) {0 w2 a2 m7 WPARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
7 W$ ^* N' |) \7 d' u6 E9 n3 f3 b9 ^PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
* m7 h( @' B  H{周金叉,死叉}
0 {' Q, Y  @9 a0 [: ]& n6 `AA:="MACD.DIFF#WEEK";
BB:="MACD.DEA#WEEK";
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
{月金叉,死叉}
8 |, y0 Y9 j$ f: S) N( c* ACC:="MACD.DIFF#MONTH";
1 i$ `, @! D) ?+ P2 ?& R/ {DD:="MACD.DEA#MONTH";
& D) \# F) m' Z. ^1 P4 d2 BDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
4 M& v5 o( P- J& y6 {DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
{选股}
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
: s! V, }: ^5 r$ f' h出来:FILTER(EE,10);
DRAWICON(出来,中均线,1);
  ?: S9 j0 G" S! f- f6 j

axin302

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

流行云

axin302 发表于 2013-6-23 10:29
6 G& _; z; h/ R; C看起来不错，加上背离指标会更好

+ @& c4 v! ~( ]2 P" s2 M2 W
' I8 y7 b' h- k3 D1 ?

  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别
. H8 O( h( E6 Y1 d" I9 l# Q

axin302

真高手！