本帖最后由 流行云 于 2013-6-17 01:00 编辑
5 Z: j3 O" S" }) l& J) E3 b6 w+ ~1 X( Y, T/ e4 _6 B
- u3 y, b9 l: f t或许对某些同志会有帮助,继续贴上源码
, f& j; P# A7 W: L( n/ D, t. ] Z' d- V9 t4 {8 m! E3 ]
5 Z+ ^- ^7 w4 N5 C' _. C{苍狼MACD}
; f4 t& K5 R7 l; q# }INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
9 t. a6 x0 }# @{短波}3 S0 K$ V7 T9 p2 F1 ~
短波 EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;- Q3 ?* g4 I% }. b' j
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
7 y/ e2 j# a i ^0 FMACD:=2*(短波-短均线);; s }9 L8 B# ~
{中波}1 ]$ f' h2 P, J) ?
中波 EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
2 h6 B7 J$ [9 s9 r- e/ Q中均线:EMA(中波,M),COLORBLUE;7 H# e0 ?7 `9 i- B3 [, [. b
MACD2:2*(中波-中均线),LINETHICK1;
8 p- [& P* R7 Z/ [STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
0 e( S6 {( N* eSTICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
7 i4 h H3 Y, c8 n2 Q6 i7 W- W{绘图}
+ g. c8 Z ^* n, o/ a7 R" R9 HFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
2 o( S3 l1 |% v& }FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
$ m x: ]8 h2 U; V1 ^$ O7 p8 A{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
& F# K7 D, T3 w w5 u! p+ S+ d! X) NFILLRGN(短波<短均线,短波,短均线),COLORGREEN;}% F& U- Q2 a( M- U W8 I6 q
短均线,LINETHICK2,COLORCYAN;
% Y& C% Z! v; d2 KPARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;9 S, W$ u! p& F, w- a
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;9 A) U5 L( W% U' U( U% x! O
{周金叉,死叉}6 _, E* _ a. P' s! |9 w# f
AA:="MACD.DIFF#WEEK";
; g' _' y5 {" u& v1 w7 yBB:="MACD.DEA#WEEK";1 n( U% Y1 U: ^8 q
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;9 s8 w) y& v: O9 b
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
c& T; ^3 N9 X' M{月金叉,死叉}2 l9 p: N, w2 z, \9 x
CC:="MACD.DIFF#MONTH";
: A% y( m+ u( @& NDD:="MACD.DEA#MONTH";
! k9 p5 G, _; WDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
8 w; S, H5 I3 x( `DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;, @$ Q6 T8 P1 z) t; t" X* i. O
{选股}. ^( y& O% ^9 M
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);, U$ i& C* G! y/ B) r3 L" j, [: o
出来:FILTER(EE,10);
1 f0 k7 W: ~$ ~# `# e3 P( B/ PDRAWICON(出来,中均线,1);1 p+ B$ x3 R! X a z
' ]) T1 E% h# \" r1 r4 S2 _6 e
: d3 T( g8 G; ^' Q4 o8 q |