本帖最后由 流行云 于 2013-6-17 01:00 编辑
" P; w; S! m U h3 v8 H/ e) r, x3 k* [5 x9 w
& q$ g1 B3 S# P3 u4 X( P
或许对某些同志会有帮助,继续贴上源码 ! r, |. j; U+ k8 w
& v, ]) F! j& T( w% h+ n2 f/ N5 ?+ D, T8 J
{苍狼MACD}
7 p0 i; v; o' O0 RINPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);0 g4 V) k% O. l2 L2 i9 F
{短波}& @; V2 L4 ~4 t- `& ]% u/ u
短波 EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
8 e' q$ |' ~7 y8 y H& C# k短均线:EMA(短波,M),LINETHICK0,COLORCYAN;- c! R' O' N* ^6 A: r
MACD:=2*(短波-短均线);
# m! a9 }# J7 O$ }( ^4 p{中波}
0 \( |7 A0 i$ c* E- U中波 EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
& a; ^5 }# |; h1 \* ?6 Z中均线:EMA(中波,M),COLORBLUE;$ q. N. i0 L# m, W5 @
MACD2:2*(中波-中均线),LINETHICK1;" m" u+ ~9 P( ?) {# N
STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
$ u4 G8 |8 ?" d6 k+ Z* MSTICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;" ~; q6 \# a |; E
{绘图}* w, h, t5 |/ K: D' `7 R
FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;! G3 {0 d; _+ I/ l% E5 x
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
* F8 N x8 k, B{FILLRGN(短波>=短均线,短波,短均线),COLORRED;5 N6 f) _! u/ G* o) f3 r i# v
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
6 t- f3 i( u; a8 R/ T0 y5 x短均线,LINETHICK2,COLORCYAN;/ |9 T: P \3 d
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
3 m8 v& K3 L8 W4 f& N6 DPARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;) Y% k1 J3 |& x \8 m; Q; Z: l6 `
{周金叉,死叉}- L. q' {1 j0 x. e: B9 ` V
AA:="MACD.DIFF#WEEK";8 s+ }# u0 L- G6 K/ k
BB:="MACD.DEA#WEEK";) p; |7 Q4 r2 ~0 T4 X2 {
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;( |) Y2 `5 t, Z: \2 `5 X
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;. K( X! a. C$ j8 C+ {- o+ k* N
{月金叉,死叉}
. w2 R6 q. h5 Q" y; t6 s& nCC:="MACD.DIFF#MONTH";
4 M5 ~9 ^% E S- gDD:="MACD.DEA#MONTH";& A! [% c" e' S3 X* m
DRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
% u. y4 B" J `! M" g: JDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
; [( F4 I0 F& U7 k5 M5 ^{选股}; P# b5 H" G8 h/ q; V6 e4 k) R" S/ K
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
8 a1 e" Q- o! Y' e! [出来:FILTER(EE,10);
# F$ P4 Z6 m8 Y! [7 A, V/ R w2 ^1 BDRAWICON(出来,中均线,1);$ T) F$ w+ ~" ~# a. F' C& w5 _
% N0 t9 W: _9 C) J3 \, c2 l( E/ k: Q" G r8 k! L1 |) L
|