本帖最后由 流行云 于 2013-6-17 01:00 编辑
0 C+ @# m2 T# o" f8 o- F( e
/ ]% X" I0 C6 B; v- ]) H" x9 s) ] L% U3 P; v
或许对某些同志会有帮助，继续贴上源码 0 r$ k3 ?/ x7 u& _: U. N
: I& m7 j9 N' Z) e! V2 Z4 V
% u, s+ F7 H+ n$ Q, f, d{苍狼MACD}) x8 R! |" s' [5 O* q+ W
INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);) m8 @) a; S; p6 A+ @0 B
{短波}
; c" Z. ~% K& r" n' p" F V* x Y短波 EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
3 \ P9 P$ P& g5 ^2 ~1 B0 P& r短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
. q' N. H# }' w% h6 W- w: EMACD:=2*(短波-短均线);( x; T2 M, V K$ X. i' {
{中波}! @( w* q$ \5 J; @" N9 y2 F
中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
) G' l2 U3 S3 k2 y& E; e9 D& V- K2 k中均线:EMA(中波,M),COLORBLUE;
5 d$ ^2 h" r% w# D# |0 S7 s/ yMACD2:2*(中波-中均线),LINETHICK1;
! T+ @8 u/ k0 _6 D r Z4 R0 y- L: lSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;0 k+ n N- u, k4 |' i2 {
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;. T3 N% Q0 S. L
{绘图}
9 `2 h! x. W# d4 L0 k2 nFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
8 N- \9 {9 B ~+ n$ {FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
7 L. D, W" E( F6 t! k5 B$ E7 X$ D{FILLRGN(短波>=短均线,短波,短均线),COLORRED;2 s: g4 W2 H; N' {! d
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}) N1 y% K" i1 q
短均线,LINETHICK2,COLORCYAN;. Z3 s# C: o- i0 x
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
. L' b/ s6 c4 D7 CPARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;' K$ a/ g5 j& G+ L, n, r' {) K
{周金叉,死叉}
: @1 r) r0 d* OAA:="MACD.DIFF#WEEK";
0 q* `4 Z" u1 iBB:="MACD.DEA#WEEK";
/ N0 P$ ?; }2 i" ^9 A# kDRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;2 v; H- w- H! L l7 h- B! P" e
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
- s" Z8 [. R6 `{月金叉,死叉}9 E7 V' U) E# W7 D9 F# n/ t
CC:="MACD.DIFF#MONTH";! ], s+ ]( g& j" u) k- z
DD:="MACD.DEA#MONTH";9 R+ r' W& V$ L! J) Y0 a' Q& o$ a' q n
DRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;1 V& c& J2 F) k% J% e
DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
3 |0 w/ F* H- C{选股}
9 t, j/ w4 x2 P, F0 ?: b+ w% `EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
; a# b. t f( r! B1 }7 x出来:FILTER(EE,10);
$ q: L0 k8 V& B2 {0 F( `4 ~9 ]7 v9 n( wDRAWICON(出来,中均线,1);
7 J% q; U) J6 r/ V2 g) F! y' Z/ f$ j2 f: |: g
8 r$ R2 \; o2 N G. R; C5 V. W |
|小黑屋|手机版|Archiver|步步汇盈
( 冀ICP备13000772 ) 
发表于 2013-6-17 00:57:56
收藏
楼主
真高手！