本帖最后由 流行云 于 2013-6-17 01:00 编辑
5 T* o/ I, D( c
4 O% p6 ^# Z* y8 U% l+ b5 J! o
- T; k; m, o' U0 P或许对某些同志会有帮助,继续贴上源码
@# W* d% |% A; x. H, c& r" I- {' ^% h& }
' w. U5 d' W6 ]0 t! p6 w- s
{苍狼MACD}
( ` y8 S# g3 @' g5 q/ M7 GINPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
$ H& d. ^+ f5 S: y1 e{短波}9 a5 k4 u) y# d) A2 b$ g' s+ U
短波 EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;2 M1 Z$ E( }7 e6 c/ T
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
1 O9 \! Z; y0 {. A- ^MACD:=2*(短波-短均线);* j5 K3 u7 h" o; J8 c# B# d; I6 c) z! k
{中波}( i( P# M7 ~' @3 H( q. ` n
中波 EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
2 i) o+ d! e) u$ q# b5 B中均线:EMA(中波,M),COLORBLUE;( ^2 @* d$ Z1 P! V9 k$ O
MACD2:2*(中波-中均线),LINETHICK1;
7 q& t# g: w0 v" j- ASTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;, b6 c, o' j4 v, H, O- V$ W/ o& q
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
1 h+ l% u# f. Q( M{绘图}$ d5 T7 B; c9 Y1 h
FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;6 a) a0 b$ S3 X
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;" X: o/ W6 r& Y$ [% F* l. r
{FILLRGN(短波>=短均线,短波,短均线),COLORRED;9 u3 n0 ?. C/ j' p5 |7 d, r
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
! G) n) t, i" Q+ ~; p短均线,LINETHICK2,COLORCYAN;
7 X5 }, L3 v/ d" R: jPARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;2 k& }/ k9 _& S' }$ Z
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
; Z7 g3 ^1 T, A# P* Z7 [{周金叉,死叉}! N/ a i% W2 h \! ^
AA:="MACD.DIFF#WEEK";7 Y' z" r# J7 t7 }( |2 M* u$ f
BB:="MACD.DEA#WEEK";
8 k2 n6 w k* P! y: vDRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;# u& e2 j. j! n5 l/ Z
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;+ g! P3 q. y% |2 }
{月金叉,死叉}/ k5 H# u! r; V6 }4 o( ^" h0 H
CC:="MACD.DIFF#MONTH";' l: y" i i5 U- D* F F2 E2 V8 g
DD:="MACD.DEA#MONTH";
3 U8 L2 i8 i3 i: E" GDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
6 O3 x# H2 B, kDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;; k7 p" X. _* ?6 v% B/ n
{选股}' G8 A: Q; K# Y d6 K$ ]
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);7 v" b, q8 J, q1 O2 j$ I. Y
出来:FILTER(EE,10);
" C% T3 P1 x" R, u# E3 vDRAWICON(出来,中均线,1);
9 \+ C6 l+ P. n, q
7 ^) o3 V% u9 v% Q/ p ]7 z# I
1 @- \: ] l4 n- F8 G; k |