本帖最后由 流行云 于 2013-6-17 01:00 编辑
/ u2 R3 V( S+ m' j% n1 S6 Y+ O2 O0 K6 M- `+ d3 R6 E; N
8 |1 ~5 S) f7 K3 G5 W
或许对某些同志会有帮助,继续贴上源码 ( S/ r6 n. o6 ?9 {
& q6 s9 [5 |% v+ B8 r$ s* `6 y7 j& s. Q Z: K
{苍狼MACD}3 H: z: i1 V Z( Y8 U' r6 F
INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
- b& n' ?) ?; y3 ~{短波}- w: L _1 \1 m' B7 T, ?& ^
短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;) Y9 J( B% D( Y
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;% X6 D0 _9 ~! W0 x6 c
MACD:=2*(短波-短均线);
, \6 @, N8 r+ D3 r a9 w+ T# B{中波}; r" E# ~' x0 I" V: Y! Q
中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
. h; L. o% H4 X/ d. V) o8 D中均线:EMA(中波,M),COLORBLUE;" M% a+ }- ^' Z+ c4 k4 J
MACD2:2*(中波-中均线),LINETHICK1;
1 ~5 ~+ @% o7 D/ ?( QSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;" N2 T# q+ I2 T" i/ v( O5 B
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
4 S8 r' S+ Q F( }3 P, f{绘图}
5 ]! T+ o) x! V/ M8 ]FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
- ~6 O8 Q. t$ R M3 O+ QFILLRGN(中波<中均线,中波,中均线),COLORBLUE;' m# C9 n4 f9 k8 o
{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
- P" x3 R; X9 M2 B5 S& N2 YFILLRGN(短波<短均线,短波,短均线),COLORGREEN;}$ n$ F2 p5 c% U6 s4 v, V
短均线,LINETHICK2,COLORCYAN;
: L* Q5 `" x) w) z; MPARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
* g5 e# K) y6 w- y3 C) {PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
- z5 P! o. ^+ [+ r; k1 v# |{周金叉,死叉}
7 |9 |/ L9 ]1 K5 I9 T( xAA:="MACD.DIFF#WEEK";( n" \8 Q* R! y) s/ i/ \
BB:="MACD.DEA#WEEK";8 B0 L6 s- G* e$ l- V, y+ d
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;% p/ X) N* n* O8 r& S
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
8 T& c6 _* D A+ m1 s{月金叉,死叉}
E: a9 D/ S$ XCC:="MACD.DIFF#MONTH";
: v4 j) d( j. U% Q7 Y) e5 e2 SDD:="MACD.DEA#MONTH";$ r' @, I9 Y* \, f% \
DRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
* z, Z2 [# s N& J- j7 @0 ZDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;" m! v J$ T2 b C$ Q
{选股}7 U8 l! @& {0 v
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);* n& c, r7 T( m) X
出来:FILTER(EE,10);/ [" A2 E& m2 x
DRAWICON(出来,中均线,1);- B* S/ E Z/ o2 D8 i" Z
- M; C9 l9 ^% e( t; E
0 f+ z5 L: ^& g- {! l" [ |