- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2005-1-11
|
|
苍狼MACD:能改成大智慧lL2的吗???????????
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*(短波-短均线);
{中波}
中波:(EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
中均线:EMA(中波,M),COLORBLUE;
MACD2:2*(中波-中均线),LINETHICK1;
STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
{绘图}
FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
{周金叉,死叉}
AA:="MACD.DIFF#WEEK";
BB:="MACD.DEA#WEEK";
周金叉:IF(CROSS(AA,BB),180,0),coloryellow;
周死叉:IF(CROSS(BB,AA),180,0), COLORBLUE;
DRAWTEXT(周金叉,180,'周金叉'), ALIGN5,coloryellow;
DRAWTEXT(周死叉,180,'周死叉'), ALIGN4, COLORBLUE;
{月金叉,死叉}
CC:="MACD.DIFF#MONTH";
DD:="MACD.DEA#MONTH";
月金叉:IF(CROSS(CC,DD),190,0),ALIGN5,Color0080FF;
月死叉:IF(CROSS(DD,CC),190,0), ALIGN4,Colorred;
DRAWTEXT(月金叉,190, '月金叉'),ALIGN5,COLOR0080FF;
DRAWTEXT(月死叉,190,'月死叉'),ALIGN4,COLORred;
{选股}
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
出来:FILTER(EE,10);
DRAWICON(出来,中均线,1); |
|
|