本帖最后由 流行云 于 2013-6-17 01:00 编辑 * E6 m! q0 H; e) ^; x( C
. ~4 S) M! u, p" S$ l' P) k$ O
" `# ]5 T' c2 d& R或许对某些同志会有帮助,继续贴上源码
T- e M% T5 F6 N) \; M
! [0 z! Z% h: o, @
$ }7 z- t4 \- }+ t2 w! r3 c% D$ x) d{苍狼MACD}
$ F O1 m7 r5 K* u7 rINPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);9 b9 D4 k5 a( y ^2 M
{短波}
; S$ G ^7 n, |% i4 n短波 EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;, P/ k$ R! \& f$ L* X" b
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
+ z! j4 v2 G" X1 Z$ |; cMACD:=2*(短波-短均线);0 n7 Z3 x' i* B/ ^5 j1 I! T
{中波}+ S9 D& [' `8 K; d, Y3 h
中波 EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;% e- M# r" Z! i
中均线:EMA(中波,M),COLORBLUE;
G; T+ R$ _6 D3 d5 C. |- m# zMACD2:2*(中波-中均线),LINETHICK1;
1 R# }; J& Z8 K# M) D) D! ^STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;! P8 D8 x4 S/ j3 I3 ~
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;' S9 K( d7 D& f6 [! L+ y
{绘图}# _, r& e4 k0 j R# S* c3 W: r$ W
FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
. r* r, o. ^# m' h( N/ v6 ]) l. EFILLRGN(中波<中均线,中波,中均线),COLORBLUE;
K" A* [; f' P) k- P$ a{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
+ H6 A5 r5 V! v2 i9 TFILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
! F2 C! }. D9 E9 Z! E" Z$ B短均线,LINETHICK2,COLORCYAN;
9 {) X5 }2 ?: e( |% F# e6 m% X3 p7 `PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
& G9 ^% l) u- j! ?* {% i2 \PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
3 k" u& w8 j* Z# C" k5 L{周金叉,死叉}) C7 E% f' n, ^3 |$ d. \
AA:="MACD.DIFF#WEEK";/ | o1 o p$ I6 r: a
BB:="MACD.DEA#WEEK";
, Z* o( Y/ W- M u% c4 UDRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
/ y5 e7 m! O( L- R- D% T( t" F% [DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
6 G- `& D/ G5 u+ R{月金叉,死叉}
2 S2 ? m) o$ `# LCC:="MACD.DIFF#MONTH";' L) e* i) k* N& W( |" X9 l
DD:="MACD.DEA#MONTH";' M1 t$ b4 T' p2 y3 S% O
DRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;. w6 t7 i0 d7 E, d! h
DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
( Z! e% C3 @- ] {: N{选股}
" ?5 ?+ }4 T2 P0 T$ d7 f% hEE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
; j5 C# f' d4 o3 d* m出来:FILTER(EE,10);
; i( q; d+ Y9 p5 G7 t' W) dDRAWICON(出来,中均线,1);. a$ Z( o# i& }/ q# }
. j0 R6 b4 p& A0 J7 m. a, T6 u8 t+ s- m/ b6 K' Q+ C
|