本帖最后由 流行云 于 2013-6-17 01:00 编辑 : {& w7 a! L* ? H3 [
( O P- p2 Q( ]( I5 W7 c, r {, M& B* I6 d, C0 A M6 v% X8 V
或许对某些同志会有帮助,继续贴上源码 , {9 J7 W" n* g0 N& k, c0 y! Q
4 ^ O$ R5 q' c) l% C: u7 O
* a/ ]! F6 g) d9 T; L$ @/ r{苍狼MACD}6 G( q- v$ M- ` a5 `8 R" n
INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
( ?$ I. ` K( ^{短波}# X5 y6 K5 E& K6 Z4 Q
短波 EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
: M! @6 D% @7 T) S* w$ ^. P7 `0 n) Z/ G短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
5 C9 F- l* ]+ }$ QMACD:=2*(短波-短均线);' R& G, G# G7 p
{中波} c: t3 M# M! w2 D
中波 EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;2 } U0 g% o: B. t( y- Z
中均线:EMA(中波,M),COLORBLUE;
: p& m. h) x# p# YMACD2:2*(中波-中均线),LINETHICK1;
: T/ A# |2 x9 z E" m- z" j1 M% ]4 KSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;2 F$ H: y% L* W1 i0 V! O
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
/ t6 c8 y$ W: L4 r{绘图}
( [5 s8 e$ ~( p" R6 }FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;" O5 e6 F4 d/ a U
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;8 C: l1 E: n* w$ ^0 J6 n
{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
# {+ U1 \9 ^5 x6 x1 vFILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
0 X& V+ ~" e: v6 v# a; U* }( k短均线,LINETHICK2,COLORCYAN;
2 ^1 p! o( B3 v& L2 O7 @% O, kPARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;. F* l h q2 j( Y B6 [
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;9 P2 `; W% e ?- F
{周金叉,死叉}" V0 U" l) r7 e2 [6 @
AA:="MACD.DIFF#WEEK";6 ]9 P. f$ L8 R F& K5 d
BB:="MACD.DEA#WEEK";3 ~1 Q2 t4 C8 t1 ~
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
4 c# u! e/ b5 o! O0 lDRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;% J$ l. n$ _/ a5 O
{月金叉,死叉}( V6 l: ^7 C* I8 |5 p+ B
CC:="MACD.DIFF#MONTH";
, Z m( X$ ~* w# x/ e7 w4 `DD:="MACD.DEA#MONTH";: M" A! Z. n" S4 w! k) w$ V5 W% Y
DRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
/ _, L7 c: s" d- n( o/ f9 Z3 yDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;( P7 F' w; G4 Q8 b
{选股}. @$ }. V( A" Y; K4 o, H* @
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
I' ^ T1 W0 U出来:FILTER(EE,10);+ \6 n \0 ]$ g, O4 ~7 k
DRAWICON(出来,中均线,1);
! ^0 c a9 h$ U; S- }+ O+ H# m5 X; V# m$ _' f/ [5 D
3 Y8 Z& j/ e* Y( z, [
|