本帖最后由 流行云 于 2013-6-17 01:00 编辑
6 F$ F2 ^5 a2 l7 p+ N6 X6 M( m' {, l# T
' K6 l8 @) U0 O4 E4 c7 \, z+ K/ {
或许对某些同志会有帮助,继续贴上源码 7 X9 j1 L8 H$ ]5 H
2 m( ]8 N: p( F; v# C% @6 F) O4 ?
) F" P4 J6 }. Z& t
{苍狼MACD}
, ^$ G- W7 o$ N. S3 X5 N p2 l: x; ?3 TINPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
5 Y& y8 L% D% F$ p: K5 o{短波}$ Y2 H6 Y5 B, }; B
短波 EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
( @- A" m* h& i, d% K" C+ \; e f短均线:EMA(短波,M),LINETHICK0,COLORCYAN; e" H+ G( E) _' V G7 _3 i
MACD:=2*(短波-短均线);
V# z" Z) _, X{中波}
% C6 H: c. @% B: X: M/ |中波 EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;$ @( j5 E8 p/ ]+ s# d
中均线:EMA(中波,M),COLORBLUE;
7 D% M! ?; N% b2 PMACD2:2*(中波-中均线),LINETHICK1;1 `$ w% v, \" I6 P
STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;, b/ \ A6 q1 `" F& m% X% w
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;$ t6 F9 N) n9 }8 x8 d/ o9 j! t
{绘图}
$ p O& R' C2 fFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
& L4 K8 ]" L: z/ S# {9 yFILLRGN(中波<中均线,中波,中均线),COLORBLUE;6 ^$ C" Q; n! `5 E; @4 i
{FILLRGN(短波>=短均线,短波,短均线),COLORRED;- c Z/ {1 V# V
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}$ F- N/ ?8 ^& C4 x6 L. ] n& k
短均线,LINETHICK2,COLORCYAN;7 r# o/ y" C; e3 y2 M! b$ e
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;9 @0 Y6 T% G/ W: q9 ^4 v
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
& y! l: r; e. u% |{周金叉,死叉}5 |: q& E9 `. l6 [0 S) F; S3 i k2 u
AA:="MACD.DIFF#WEEK";
2 b" M+ G; i4 A" W FBB:="MACD.DEA#WEEK";% }; D {" b" ~ R
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;; T7 c/ H! Q& p' R- ~: n
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;8 Q0 W6 M+ n0 \7 r
{月金叉,死叉}8 t/ m+ m# v- j
CC:="MACD.DIFF#MONTH";& O# I" F$ s' Y9 [% V @; [( X
DD:="MACD.DEA#MONTH";9 z7 ^% d) C& R# ~0 h
DRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;8 g+ c" T5 {4 C/ [- V
DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
9 _) X+ Y: F6 M* X$ r k{选股}
* k- K6 c. E8 YEE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
, \- D# N. d9 M出来:FILTER(EE,10);/ y8 e" B* e& e9 Z
DRAWICON(出来,中均线,1);" [: i+ l z8 w' F
9 [9 X8 y, [8 j7 F7 e7 z
) T) @9 i3 b+ { }
|