本帖最后由 流行云 于 2013-6-17 01:00 编辑 + r* U. O3 U% _, k6 b
2 p9 V/ L5 ?9 g$ a9 t
0 B, t9 z0 ~, f1 R; E9 K
或许对某些同志会有帮助,继续贴上源码 : ]& B4 e! z Z; z
- B( s+ J: f( ?
2 e0 i, R2 K; Y2 P& m{苍狼MACD}3 f7 Q. M( {* ?" t _" Y; T1 S
INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);+ {8 ~) U9 V Y& R
{短波}
) [( z+ }. u0 t- [, q短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
6 x6 e/ M* B9 n5 D, }9 H短均线:EMA(短波,M),LINETHICK0,COLORCYAN;, P; k2 q! P, A% ?2 o1 C
MACD:=2*(短波-短均线);
% a+ ?5 g8 ^4 L. U{中波}
T/ z9 l/ b |7 c中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;! T2 `& f8 Y1 M0 i2 F6 e, o8 b& s' z
中均线:EMA(中波,M),COLORBLUE;
3 c5 \9 ~ P, Z2 KMACD2:2*(中波-中均线),LINETHICK1;
9 e2 ~, E+ |3 jSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
4 P6 X: f4 K" q) }. D0 _STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
Z" V n; C# Z" i{绘图}
& N/ V/ Y4 Y5 T* \% jFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;1 d& v* X( R$ V
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
( E* S% E& h$ Z{FILLRGN(短波>=短均线,短波,短均线),COLORRED;7 v: @& o( e2 A6 {8 J% {, X) T
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}$ y! }7 `0 o: e0 r8 v! I
短均线,LINETHICK2,COLORCYAN;" J5 V( b! y+ Y. {/ k
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
4 M( g& Z0 \6 W, ~* \PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
, B! J. K) D) Y$ Q/ T3 i% K{周金叉,死叉}: q8 K4 @& J% P) O
AA:="MACD.DIFF#WEEK";! j: W, [7 e) X& F( ~
BB:="MACD.DEA#WEEK";/ X0 Y2 E" y3 ?( ^: E. d
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
2 S5 J, F$ U6 r- ~( f) J( bDRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
* o0 h+ N/ d. W{月金叉,死叉}
2 v7 i3 A" N& _% ~4 g) cCC:="MACD.DIFF#MONTH";2 J1 p, f7 f% E5 D
DD:="MACD.DEA#MONTH";
, P! J1 A2 t( N3 v: GDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;6 l: D) X/ [6 f% r; _2 k1 k# R L
DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;; o0 `0 P- d4 W, X8 Z5 o& J# V5 T
{选股}
. J9 w- Z7 u, i& M# T3 v: W5 cEE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
8 G8 J" s2 y) V# O# \& ^5 P+ \出来:FILTER(EE,10);# y6 E! K; w8 W& w
DRAWICON(出来,中均线,1);+ E$ H7 a% g d3 Q1 L5 [! H/ l
6 M# q7 s( _5 ^1 n; `8 O7 R. r
0 x# F# {2 N3 o/ o% N6 N. N |