本帖最后由 流行云 于 2013-6-17 01:00 编辑
, s, P0 ^* _4 C& k) j" P i, _- X% X) T6 q. q( B
0 \ O' m: B _; }或许对某些同志会有帮助,继续贴上源码 % [; w( ~, G* r* P5 I. R) n9 G
# y7 N! ~: Q6 B6 y2 T8 `5 B
; E4 K+ d6 P: v; O+ R{苍狼MACD}1 m! N0 \& N: @& W) b1 k( i
INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
0 s( C2 H% H, @% @+ l2 j3 }6 m! u{短波}
- ~) p7 U9 b! \3 L8 w3 G* q0 Q `短波 EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;' I& N" h5 x1 _6 k" u6 I
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
$ t G4 a4 f! ~MACD:=2*(短波-短均线);
% X# ^* J/ Y! ~8 l5 T r/ e. A{中波}
6 @7 }- t( A0 X' g% J+ P: s中波 EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;5 \7 z. q& J& ~* k- R5 M
中均线:EMA(中波,M),COLORBLUE;
- O+ `7 N4 B8 C5 [9 S: ZMACD2:2*(中波-中均线),LINETHICK1;
$ p9 d7 G" Q. r8 m8 tSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;7 t7 s0 b0 Y" I7 M& ?
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
/ a. r1 r8 a: k1 a8 |& ]{绘图}
5 r9 ?7 C0 a) y3 Q8 [- X* A9 ]( TFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;2 I$ I9 [7 d) h, O* F$ C
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
: @6 \; s1 p% |7 J) H; N! E1 \{FILLRGN(短波>=短均线,短波,短均线),COLORRED;% u8 a) d$ x4 H3 p, @5 h$ @$ l$ p
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}$ x9 L9 ]9 Y- l
短均线,LINETHICK2,COLORCYAN;
) s; T& {* N1 B- d' rPARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;* t- ^& |# [: q& n
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;" P# C" d3 O- o, g2 V
{周金叉,死叉}+ h$ r/ J2 V1 M- D
AA:="MACD.DIFF#WEEK";; O! {2 Y" @! R! k5 S, Y1 S3 r4 y
BB:="MACD.DEA#WEEK";5 ^: b* z' Z' T' E
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;1 W, |3 K2 ]- X9 d
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;) ?- B1 p/ M" B; w+ m, ^- N% ?
{月金叉,死叉}& O( t7 ^# A( P
CC:="MACD.DIFF#MONTH";
8 m+ r3 {% m6 q- S8 f2 b% WDD:="MACD.DEA#MONTH";( U( e& n0 q' t) E( Q* S0 O
DRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
: k D# @7 n6 D c, S) iDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;3 p0 r0 r9 W! {0 J
{选股}# {4 U$ t2 Q% i1 q6 A- s0 g
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
* [) d% l. X/ j; f9 k3 A* S; K A出来:FILTER(EE,10);
" a- |2 ~3 ?7 a7 T& x& h0 BDRAWICON(出来,中均线,1);
0 S" x' T6 r; u3 N$ s
% O' Y1 h4 T) x; j* J9 ?, U% u% I
4 E/ {9 @( |% d6 Z) U+ e1 D* R7 i) D |