软件名称：[B]H超级KMACD[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：4.00 KB
官方主页：Home Page
更新时间：2012-08-31 02:45:00
软件简介:

{通达信'H超级KMACD'源码}
H0:=0.25;
L0:=(H+L+C)/3;
L1:=H0*(L0-MA(L0,21))/(AVEDEV(L0,21));
超级K:SMA(L1,3,0);
超级D:SMA(超级K,3,0);
超级J:超级K*3-超级D*2,COLORCC66BB;

【选股基准线】:CONST(HHV(MAX(MAX(超级K,超级D),超级J),0))*1.1,COLORLIRED;
DIF0:=EMA(DCLOSE,8)-EMA(DCLOSE,22);
DEA0:=EMA(DIF0,7);
MACD:=2*(DIF0-DEA0);
D0:=HHV(ABS(MACD),100);
M0:=COUNT(CROSS(DIF0,DEA0),BARSLAST(DEA0>=0));
M1:=BARSLAST(REF(CROSS(MACD,0),1));
M2:=BARSLAST(REF(CROSS(DEA0,DIF0),1));
M3:=LLV(MACD,4)>0 AND MACD<REF(MACD,1) AND REF(MACD,1)>REF(MACD,2)
    AND REF(MACD,2)>REF(MACD,3);
M4:=HHV(MACD,4)<0 AND MACD>REF(MACD,1) AND REF(MACD,1)<REF(MACD,2)
    AND REF(MACD,2)<REF(MACD,3);
低位金叉:IF(CROSS(DIF0,DEA0) AND DIF0<-0.1,D0*0.4+【选股基准线】,0+【选股基准线】),COLORFF00FF;
二次金叉:IF(CROSS(DIF0,DEA0) AND DEA0<0 AND COUNT(M0=2,21)=1,D0*0.8+【选股基准线】,
  0+【选股基准线】),COLORFFFF00;
启点:IF(FILTER(MACD>0 AND MACD>5*REF(MACD,1),2),D0+【选股基准线】,0+【选股基准线】),COLOR0044FF;
底背离:=REF(CLOSE,M1+1)>CLOSE AND MACD>REF(MACD,M1+1),COLORGREEN;
D1:=7;D2:=30;D3:=6;
DIF1:=EMA(C,D1)-EMA(C,D2),COLORFFFFFF;
DEA1:=EMA(DIF1,D3),COLORFF6666;
MACD1:=(DIF1-DEA1)*2,COLORSTICK,COLORRED;
F0:=V*(O+C+H+L)/4;
F1:=IF(V>0,F0/V,(O+C+H+L)/4);
F2:=(F1-LLV(F1,5))/(HHV(F1,5)-LLV(F1,5));
F3:=SMA(F2,13,1);
F4:=SMA(F3,13,1);
F5:=3*F3-2*F4;
F6:=2*F5-0.5;
F7:=F1*(1-(F6-F4)/40);
F8:=CROSS(F1,F7) AND C/REF(C,1)<1.03 AND SUM(DYNAINFO(23),5)>=3000;
MACD拉升:IF(FILTER(F8,10) AND MACD1>0,D0*1.2+【选股基准线】,0+【选股基准线】),COLOR6600FF;
MACD选长:=IF(CROSS(DIF1,DEA1),HHV(ABS(MACD1),100)+【选股基准线】,0),COLORLIRED;
DIF:DIF0+【选股基准线】,COLORFFFFFF;
DEA:DEA0+【选股基准线】,COLOR00AAAA;

STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),0+【选股基准线】,MACD+【选股基准线】,1,0),COLOR6699FF;
STICKLINE(MACD>=0 AND MACD<=REF(MACD,1),0+【选股基准线】,MACD+【选股基准线】,1,-1),COLOR008800;
STICKLINE(MACD<=0 AND MACD>=REF(MACD,1),0+【选股基准线】,MACD/2+【选股基准线】,1,0),COLORAAAAAA;
STICKLINE(MACD<=0 AND MACD<=REF(MACD,1),0+【选股基准线】,MACD/2+【选股基准线】,1,-1),COLORCC6600;
DRAWTEXT(FILTER(M3,3),-0.05+【选股基准线】,'转空'),COLOR00FF00;
DRAWTEXT(FILTER(M4,3),D0*0.5+【选股基准线】,'转多'),COLORFFFFBB;
DRAWTEXT(CROSS(DIF0,DEA0) AND DIF0<-0.1,D0*0.3+【选股基准线】,'低位X'),COLORFF00FF;
DRAWTEXT(CROSS(DIF0,DEA0) AND DEA0<0 AND COUNT(M0=2,21)=1,D0*0.7+【选股基准线】,
   '二次X'),COLORFFFF00;
DRAWTEXT(FILTER(MACD>0 AND MACD>5*REF(MACD,1),2),D0*0.9+【选股基准线】,'启'),COLOR0044FF;
---------------
DIFF:EMA(CLOSE,6)-EMA(CLOSE,16);
DEA:EMA(DIFF,5);
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,0.08,2,1),COLORFF00FF;
DRAWICON(二次金叉,DEA*0.9,1) ;
DRAWTEXT(二次金叉,-0.09,' 二次金叉'),COLORFF00FF;

低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
STICKLINE(低位金叉,0,0.06,1,1),COLORYELLOW;
DRAWTEXT(低位金叉,-0.05,' 低位金叉'),COLORYELLOW;

A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);

底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,LINETHICK2;
DRAWTEXT(底背离,-0.01,' 底背离'),COLOR00FF00;

A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORGREEN,LINETHICK2;
DRAWTEXT(顶背离,-0.02,' 顶背离'),COLOR00FF00;

MACD:2*(DIFF-DEA), COLORSTICK,LINETHICK2;

STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,0.00001,0 ),COLOR00C4C4;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,0.00001,0 ),COLOR0000BB;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,0.00001,0 ),COLOR9B009B;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,0.00001,0),COLOR00AA00;
 

[url=http://www.70822.com/soft/sort013/sort05/down-52185.html]H超级KMACD[/url]