本帖最后由 流行云 于 2013-6-17 01:00 编辑 ; ~. s) ^: F S( J9 H' ^- ~& h1 Z
( B& V4 K* D g6 u0 E6 P4 A) B4 a, }& F/ X
或许对某些同志会有帮助,继续贴上源码 # N Z6 Z- y! D+ f+ O/ t4 O
; D: U2 B8 W2 B
4 A4 O0 ~/ ]6 F1 V" K{苍狼MACD}
) _# j" @- o7 W `: S9 aINPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);' u( `5 O, F# j0 Q3 m% q
{短波}
& K# e6 b& e. z$ F短波 EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;* |5 i& U0 D& h& `3 r% ]* `
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;$ v, U# X' C) i& C+ u
MACD:=2*(短波-短均线);
7 c( c( [( C: V( w1 a5 }! N& g{中波}
% p. L' j* K2 F* A& `4 @; k中波 EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;& q; v( `" t5 Z; G7 x+ Z
中均线:EMA(中波,M),COLORBLUE;
9 x: ?7 a" F, O3 z) G; ~MACD2:2*(中波-中均线),LINETHICK1;
n3 S* J: O' e J. F BSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;/ e7 w3 r" _2 ]. V; t
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;0 k$ o' x: \) _5 Q( s8 {# Y7 h: `
{绘图}: k7 |; i+ Q9 D+ _8 s$ J- b% T
FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;0 c: {7 p: Y' }& ]# w
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
. h7 L. o% n8 y7 s{FILLRGN(短波>=短均线,短波,短均线),COLORRED;* g0 b& k6 ~% W) z0 q7 u- q
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}# \- g5 B; L* Q' H! I
短均线,LINETHICK2,COLORCYAN;% S7 M5 g- }: h( X% \3 ?# ^# P/ u1 H
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;, C2 i. a5 b( R/ t' u% Z, q. n
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;/ F" l+ ]; Z2 C+ h' m k
{周金叉,死叉}% w' |/ o9 r+ n" `9 |0 p
AA:="MACD.DIFF#WEEK";3 _5 X* J8 D% o& `1 Y& h, [
BB:="MACD.DEA#WEEK";
) t( m5 H$ X9 E4 ~7 TDRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;& l% x6 U2 N# @( d/ ~2 s
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;1 h- n# x4 r1 `! V
{月金叉,死叉}3 a. K) b0 A( M! ~ p" \
CC:="MACD.DIFF#MONTH";
{5 M$ s( v) ~# ?3 xDD:="MACD.DEA#MONTH";
. w7 J2 c; G# z5 qDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;1 l, b. z" V1 V1 L# \
DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
9 F9 w2 e- J0 ?, v+ _$ n{选股}2 r. ]5 B8 I4 V2 i/ i
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
" ]! b, q8 z( v/ U) Y出来:FILTER(EE,10);; F0 ?9 r# u# p/ m3 @
DRAWICON(出来,中均线,1);
: k6 ?7 X Y+ ]0 X; ~1 f1 @0 ^& K# H3 g+ ^0 I3 [
) \9 F: E6 m% p5 V
|