本帖最后由 流行云 于 2013-6-17 01:00 编辑
# A$ d3 S1 {7 K& W3 X, R; x
" j" v9 \2 ^9 K% l6 O* v: J, Z# [1 @& Q) Q& i* w
或许对某些同志会有帮助,继续贴上源码
* b# t2 k3 w8 [) D
* X# ?: [1 f2 m" U. a& T
8 N; i2 |# J3 k& E{苍狼MACD}
0 P) p1 O% G3 _ i+ D0 J0 z' v1 tINPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
. S- N: A+ w; B% j, v{短波}
5 b/ D4 h+ u1 s4 k" m短波 EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
! [4 `& u7 v$ a! L6 [短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
5 s% X% p: \5 _1 b5 UMACD:=2*(短波-短均线);
$ E; }6 }- x$ k& O) ?{中波}
+ \* u& d3 n% Y D. G# }中波 EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
$ t2 Q3 O0 U4 c6 l N0 e# @中均线:EMA(中波,M),COLORBLUE;/ }6 N! u8 ]$ R
MACD2:2*(中波-中均线),LINETHICK1;
& Y9 S8 s8 G# g* u% Z) ySTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;( P" b& h3 {: e8 q( L, j2 C
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;% \9 x+ y. \! M5 ]1 x
{绘图}
$ S# L9 {/ g: S/ ]FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;# {+ F) o, U& w
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;, d6 y* f( f" n0 @9 _
{FILLRGN(短波>=短均线,短波,短均线),COLORRED;" U, A# x5 Y! W. @( g! z
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}5 x, ~8 v) C8 j7 Y
短均线,LINETHICK2,COLORCYAN;
+ j6 u: p$ t+ ^7 zPARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
7 `, \% g' d! U: _PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
9 r" J3 q" R0 j& V{周金叉,死叉}' N# [5 J" G% q5 S0 d, A! G9 ?
AA:="MACD.DIFF#WEEK"; w1 K. } P/ ?8 Y0 ?% f$ ?* e( ] b
BB:="MACD.DEA#WEEK";
" Y) V. X) H3 Q$ T$ TDRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;' [5 m) M, @2 a7 v. z
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;- o" ^" q! s2 g$ m0 J- l
{月金叉,死叉}
5 Z: O% ]! |! `/ l1 L: U2 }& lCC:="MACD.DIFF#MONTH";
* u ~: N; q( C1 k" ]9 ^" GDD:="MACD.DEA#MONTH";( c0 D. E! v O
DRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
: x- U) X! x$ S4 QDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
+ J: o3 O# t6 t; Q0 n{选股}
$ c: [. I- M8 N J$ ?- ^EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
; Q! Q/ L: f+ u- j+ f, R, ?, c出来:FILTER(EE,10);) r5 |% c9 H& Z" t ~! i8 }0 _
DRAWICON(出来,中均线,1);
0 y: N) W R- ^$ h0 S y: n: I6 I5 o; l2 ~5 {
/ K" ]. w0 \5 f+ N" p7 _! P3 @ |