|
|
本帖最后由 流行云 于 2013-6-17 01:00 编辑
6 B2 L+ d4 p/ J% E5 V0 r- j2 p) E5 H$ O: e; ~( k' s
0 j7 z0 r: N2 _; c! N
或许对某些同志会有帮助,继续贴上源码
! i1 E1 l6 F; O% K! S$ H7 t8 X" ~6 I1 c+ S0 a
0 S4 B/ C+ j# s% K5 A! ?! T: o( ~{苍狼MACD}
0 U+ k: u$ q+ v8 H5 d4 I& r9 jINPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);+ I( ^) n# t" A( E2 M3 H! }; {
{短波}) V. M7 o7 ?0 R/ G/ ^" I
短波 EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
" B, }% V& G8 k1 ~- o! I短均线:EMA(短波,M),LINETHICK0,COLORCYAN;9 I/ D! j* U7 I1 w
MACD:=2*(短波-短均线);8 x, L# J% v- I( _5 q
{中波}# H' a c2 a" Q' B' N" m# r- {
中波 EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
4 y1 C- ]" X O- b- N n中均线:EMA(中波,M),COLORBLUE;
( U4 a" M# a# C1 t V8 s" x0 O; eMACD2:2*(中波-中均线),LINETHICK1;
8 s: n5 w1 B4 L7 ? D0 ^7 s$ Z7 vSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
2 c0 ]1 ~6 W0 S& y1 C7 w8 ]! nSTICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;4 Q; _' z$ S' }) w7 L
{绘图}
; A4 d4 A% |: d$ mFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;/ e! M" P* t3 H7 [
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;& d! x/ I! w3 w, `0 _5 J* s
{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
% { n3 I7 C6 G+ v$ C# p' N% b% xFILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
! g: J8 }1 Y1 j短均线,LINETHICK2,COLORCYAN;
+ c3 T# L' ^& S* V% p0 nPARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;" X0 N8 a& \$ Q
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;3 |9 ?5 r) E5 R
{周金叉,死叉}
3 ^4 l# g |7 F1 t$ |% }6 TAA:="MACD.DIFF#WEEK";
2 r4 T# ~1 _0 n/ [+ DBB:="MACD.DEA#WEEK";, |, l5 ? X2 F, M
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;5 R& `% Y* D C- z* z4 C
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
3 P/ A& P# g+ W{月金叉,死叉}6 f- Z/ q# Q# v: K6 r
CC:="MACD.DIFF#MONTH";+ f! K$ C% i: E. N I: |
DD:="MACD.DEA#MONTH";
. m" \( |: [( |" I& H8 }& C/ WDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;' f1 j8 E( ^6 a# ^6 ^9 y
DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;) L N9 O; H/ b+ h5 D: j! n
{选股}9 g9 g! x6 u) u* H
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
/ {4 t1 C7 c3 p- C: c6 {5 F出来:FILTER(EE,10);
# p2 u/ `' u+ J2 b5 ?DRAWICON(出来,中均线,1);) C3 `# D& e; S2 u! ?* I& N
4 y' W; u2 R, x4 |3 ?
2 H' d+ p' T/ X2 N$ D5 W4 L
|
|