苍狼MACD 源码

流行云

8 ]2 I9 Z# E1 x, J9 `6 F
% ~1 U$ Z9 I$ D+ N/ V) o3 X4 k: \; g或许对某些同志会有帮助，继续贴上源码  


{苍狼MACD}
INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
{短波}
短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
MACD:=2*(短波-短均线);
: C7 Q/ C- {1 e. l; f{中波}
中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
中均线:EMA(中波,M),COLORBLUE;
' f  s% R" R8 S, A' lMACD2:2*(中波-中均线),LINETHICK1;
1 _4 v+ ?2 C% w8 C; ]1 f7 R0 bSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
2 r7 b. N5 Q. O. @: P! xSTICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
5 |8 a$ b( ]( `( R8 O{绘图}
* F: D+ x$ Z- d& H0 f5 @5 DFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
8 L9 s; e4 a# z+ h+ fFILLRGN(中波<中均线,中波,中均线),COLORBLUE;
7 t- L! L8 C4 [( s5 m' q{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
- M7 G3 L1 g. W9 ?$ H3 x3 vFILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
9 I0 [, P/ L' O% O9 P8 x8 N9 o{周金叉,死叉}
/ j7 X4 _. W0 q) `! zAA:="MACD.DIFF#WEEK";
6 d, z4 I( p0 g) g& HBB:="MACD.DEA#WEEK";
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
7 ?- c! s* o4 M1 [! B: y{月金叉,死叉}
CC:="MACD.DIFF#MONTH";
, g) H# O; y5 W$ Z  _1 aDD:="MACD.DEA#MONTH";
1 }5 x" A3 H+ TDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
5 L, D9 ?1 j1 R) tDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
/ U8 i3 X, s& s' f+ ]4 n{选股}
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
# d$ g4 Q5 M' A3 D- t. K: W出来:FILTER(EE,10);
( P8 y) f1 {' C- P3 h" O3 i- ~/ LDRAWICON(出来,中均线,1);
/ s9 n+ E9 c$ \$ q

流行云

" K; R0 A' W1 N% j( s7 X. t

axin302 发表于 2013-6-23 10:29
9 w' S# ]; u  n+ K- K, q5 ?" H看起来不错，加上背离指标会更好

2 Q; J  O/ W  f' O$ N8 j1 P
* z* ~' b: d. Q( }0 n, T
2 I3 w7 d6 w/ _$ k- s  F( P1 v
  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别
& e: }6 z& U4 n  m& h2 x; w6 x+ r