本帖最后由 流行云 于 2013-6-17 01:00 编辑 ( U/ {* q' X& ]9 l
9 I. L Q( D, K8 E+ k
7 T) R# f+ W* G6 E* R' |2 k或许对某些同志会有帮助,继续贴上源码
1 W! c% ~5 A. F; q1 v, b
1 D; v/ r4 K+ X
! V) b# A0 o' M1 r" P9 a{苍狼MACD}
1 y8 e4 T$ |5 M) r4 fINPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);7 ?' L/ U; w. G3 D) p4 o0 l
{短波}& x' y5 n6 E6 a) T/ i, {
短波 EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;! U; P+ z9 o- q4 w5 F4 n3 V# L8 r
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;3 w5 i- \# S7 A4 r8 ^$ R; v) Q3 H, _ [
MACD:=2*(短波-短均线);0 Y( K7 b( @& ]/ U5 X( }
{中波}
* E; R; |- O* K, b3 o2 S7 p" C( u中波 EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
+ G$ X% [2 a( L3 x# b中均线:EMA(中波,M),COLORBLUE;
# J9 Z3 ~: y- e. p( B' GMACD2:2*(中波-中均线),LINETHICK1;
3 T% r1 W* K& I! ^7 YSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;% \5 t$ R) y; S* ~
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
6 u/ k' }, t; o{绘图}
+ ~, J1 O1 d* i/ e* QFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;5 @" w7 x/ F! v x9 I0 w1 F( [
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
% P1 w+ q9 h; U0 f{FILLRGN(短波>=短均线,短波,短均线),COLORRED;/ u+ Z" z% f# m+ f! g$ o5 H& c8 w% ^
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
1 O3 h8 {. `- D( e& L- J C短均线,LINETHICK2,COLORCYAN;" A- D2 {5 p0 u U% e/ U
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
) g) C! Q2 T! |PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;( H* U9 s9 \% i. Y
{周金叉,死叉}
" P! K* L: @/ ] ^: AAA:="MACD.DIFF#WEEK";
% p/ @9 ^$ d7 S. EBB:="MACD.DEA#WEEK";
, Y; E( H# }/ E$ \DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED; T6 A; }, Q( Y2 ^
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
* e% a1 X# G8 G5 D, Z$ v$ Y7 p{月金叉,死叉}
7 v: X, |/ S; }( KCC:="MACD.DIFF#MONTH";% t' L' i3 A6 `# Z$ g: Y! @
DD:="MACD.DEA#MONTH";
. R }" k' l! \' [4 ^- IDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
' A. c. F# d8 r0 F- O [8 _( jDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
6 z9 |) j' s4 F+ c{选股}
' n/ l$ B$ c+ JEE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);1 e! A1 I0 v7 i' J4 k: d
出来:FILTER(EE,10);$ b0 `9 o: w/ h6 R0 o
DRAWICON(出来,中均线,1);
+ M' F, n( E7 C$ f
- B% M; P0 S7 q* G8 {$ s u( J' |. ]- M: t: T* _* N( x
|