本帖最后由 流行云 于 2013-6-17 01:00 编辑
, N) ]; n8 |$ C3 L* N
3 v8 } D5 r8 |/ l, d
% r9 {/ \7 e h4 P或许对某些同志会有帮助,继续贴上源码
& H3 P# }! |. R( \; r' M6 J( F& j+ g% ^, R
; @' a2 U# }2 M
{苍狼MACD}
8 e; |3 h) f3 C, ]INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);$ y- H) |$ e! W, I6 T/ q
{短波}, D* [3 n) r& S+ b+ ~2 e& [% ]
短波 EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;5 o- X3 E5 t6 k+ y, I5 W( l4 O# ^. a
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
3 I7 t T) e$ U6 a4 K4 _MACD:=2*(短波-短均线);
' W9 B$ P- ]) v: Y* j& w& ?$ q{中波}+ C: _0 _ Z" y( ~8 _
中波 EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;0 J7 K% ~( Y0 `7 `+ h: J
中均线:EMA(中波,M),COLORBLUE;
! V i4 s8 W7 V& l" bMACD2:2*(中波-中均线),LINETHICK1;
3 r+ {, ^* z" s3 @STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
6 G! K R }0 R( y$ \" L0 b4 SSTICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
" a( s1 \3 }* i% j{绘图}
, D- P" `6 E) O6 FFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;% ~+ N" R% N( q
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;* ?" _' X! }$ t9 v
{FILLRGN(短波>=短均线,短波,短均线),COLORRED;3 s$ j+ M E/ U9 v3 Y
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
c: T0 G# x- ]4 P( B. A0 {- D短均线,LINETHICK2,COLORCYAN;1 `% f- v9 N, @0 E' m3 U- }
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;$ S g9 f' x. ^+ v+ q
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
% E t+ j( z/ ^{周金叉,死叉}
# x* x$ q# f P9 `7 o$ ?) uAA:="MACD.DIFF#WEEK";& z2 a% n7 {4 p6 q
BB:="MACD.DEA#WEEK";' f( q6 n% D2 j W
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;$ q* r6 z. w3 @
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
4 P) s8 G2 m i{月金叉,死叉}
4 l+ j$ M" ~7 _9 s" ECC:="MACD.DIFF#MONTH";
7 A. [ C+ \7 u% K# `2 }, c' MDD:="MACD.DEA#MONTH";
! B+ _+ P; G) _9 b0 ADRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;! b% o& g, f! P9 V" s! H; W
DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
2 {* Y. S4 A) ^6 E{选股}0 f, _$ U5 H# L$ F3 ~
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
2 j; A0 e! Z' q2 _1 H8 m+ S出来:FILTER(EE,10);; t y) @# E* a, S3 G& Y2 e
DRAWICON(出来,中均线,1); U, t8 K0 L$ O8 A+ v8 ^) q( A1 h
+ Y1 L, M" [! U$ B H! {
; A4 i+ G6 D3 P |