本帖最后由 流行云 于 2013-6-17 01:00 编辑
* ?, ^! E8 u% y6 _, C2 x7 H% i" }0 o5 \; ]+ T/ X
8 w( r t3 w" k8 P# s, }0 T% P2 r或许对某些同志会有帮助,继续贴上源码 + I* F9 E: b) j, r
" f) I8 t1 y0 _* T) Q- t) J
3 o- V' D2 c0 k5 G" O9 E" `
{苍狼MACD}+ h7 E: n$ p3 o
INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
% p) }7 X& S6 D$ Q b{短波}
3 L4 n4 m6 G9 }/ _短波 EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
1 z2 J* o) G6 s }短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
0 U( ]3 G/ y; V" J5 u6 @MACD:=2*(短波-短均线);5 Z/ O' L" B, m0 @
{中波}
0 \6 `$ _, @& L* O% I4 `中波 EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;8 x# K8 z, s# l9 f- M
中均线:EMA(中波,M),COLORBLUE;' N, m. g& c9 g/ n$ \% q& S
MACD2:2*(中波-中均线),LINETHICK1;
" v! K" u! G: ]( wSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;! d" j9 F0 S* O0 P( m
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
0 _) H. H: X! c9 n$ U, M{绘图}
) l4 j4 I) o- JFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
4 l" ?- Q, i5 H. c3 O5 [FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
, E0 |/ z6 B- C{FILLRGN(短波>=短均线,短波,短均线),COLORRED;, E6 u- @# ~' M! v
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
8 Z; V$ X' D+ w% G- D- z# b$ Y短均线,LINETHICK2,COLORCYAN;% \; K! P- z7 s6 |* _0 M
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
* w6 }: z& F* J/ u6 ePARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
. J, B! J' a9 l4 ? `( ?{周金叉,死叉}3 n7 u- F W6 }
AA:="MACD.DIFF#WEEK";; x* m: i. [6 Z
BB:="MACD.DEA#WEEK";" v0 K2 n. Y, r
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;, E$ E5 u6 f1 f* |( o
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;0 C4 H, l' u; i) T
{月金叉,死叉}' ?8 T/ q, x' l$ n8 V/ c- T
CC:="MACD.DIFF#MONTH";
3 d: S, q. M2 ^# KDD:="MACD.DEA#MONTH";4 p6 L( v& W( e" M% F: a$ E5 L0 z
DRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
3 D G) t3 f/ z# s# W/ xDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;" j7 a5 h' P9 g& Z' n& C1 ?
{选股}1 v8 D( n: q5 s! m0 j
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);) _% K" o! O% w9 E! X6 ^
出来:FILTER(EE,10);
# W7 j t( U3 M6 z% d- Z% ADRAWICON(出来,中均线,1);
9 a9 _- Y3 V2 T; l' A. P# q _" y& o* {+ E: d
# q& T4 k! T! I# r$ ~8 i |