本帖最后由 流行云 于 2013-6-17 01:00 编辑 6 D' {6 o. f/ F2 ]; T7 @, ^' f
+ n" Q- P$ j: }9 S* v0 f
0 l! A) Z7 X7 _8 K: B+ z, D, h# J- _或许对某些同志会有帮助,继续贴上源码
$ j: e6 D5 f1 n) T/ ?
4 o. i2 l3 D! }0 W% A7 T5 ~: A$ g5 r' ?' W( V+ q. _
{苍狼MACD}
' Y9 @6 c5 F z" J7 tINPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
6 i; L8 `* }7 e9 H" P{短波}0 C7 [: K1 z" T$ I( {7 l4 Y- e
短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;/ X- m7 |$ N0 e, d& t
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;4 ~* K6 f0 ^7 z N) Q& |
MACD:=2*(短波-短均线);$ T$ _4 t" E. `5 s5 T: B# }
{中波}- f/ A: ]! ~8 ?6 r7 C0 B
中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;7 P/ v) f6 x7 z
中均线:EMA(中波,M),COLORBLUE;4 E; Z4 q/ ?, f8 j: N
MACD2:2*(中波-中均线),LINETHICK1;# ^( |+ _( G7 r2 F `) `
STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
8 ]" b E7 J! a' [* o* a8 j! ^2 eSTICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE; C( B$ h4 @2 N% z0 d
{绘图}3 z- z+ C$ b8 `# S) @
FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;4 K- z$ D. m) j$ i
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
}- e( }, j3 ^5 e5 k: O O{FILLRGN(短波>=短均线,短波,短均线),COLORRED;4 x3 e% X, B6 D, @6 s- S: P
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
_7 K& n6 F1 i" P" A3 x短均线,LINETHICK2,COLORCYAN;
) H& F8 ?, ?& {8 hPARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
9 \" @' {; y' R0 ?5 mPARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
+ Z) v9 i$ L1 }! T4 E3 A" k{周金叉,死叉}% [1 e7 W" i8 m' Z. L
AA:="MACD.DIFF#WEEK";% y) m" q4 i2 }- Y D1 Q
BB:="MACD.DEA#WEEK";, h" p9 P; K* L7 A
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
6 s# |. ^/ [$ s$ }! L: hDRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
+ n F# ?" L) L{月金叉,死叉}
" x2 H5 ^9 o* WCC:="MACD.DIFF#MONTH";
' d/ D( T5 d/ g2 \7 sDD:="MACD.DEA#MONTH";
7 O4 l9 W5 ?4 E/ P* x( E$ PDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;2 ?0 K& W7 e# ~. q/ C# F
DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
0 L0 C# n- X) n: k5 u6 T{选股}1 M2 u. U' m( d) i8 ?' o- n
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
( d- T/ |( \- |, C出来:FILTER(EE,10);. j! f5 }8 d1 A; K3 M/ {* m
DRAWICON(出来,中均线,1);5 |+ m% A/ E( z) M6 z4 `9 @
" p$ B7 {9 p0 q
% Y; A2 g2 c8 c0 U
|