软件名称：[B]发一个东拼西凑的MACD[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：1.00 KB
官方主页：Home Page
更新时间：2011-12-18 03:05:34
软件简介:

 
{M1:1,120,3;N:1,120,13;P:1,120,30}
市销率:CLOSE*FINANCE( 1)/FINANCE(20),NODRAW;
DRAWTEXT_FIX(1,0.7.0,0,2500,'超级强势股的市销率可能在0.75 以下，建议避免买入市销率大於1.5的股票。'),COLORYELLOW;
DIFF:EMA(CLOSE,8{12})-EMA(CLOSE,13{27});
DEA:EMA(DIFF,5{9});
MACD:2*(DIFF-DEA), COLORSTICK,LINETHICK2;
IF(DIFF<REF(DIFF,1),DIFF,DRAWNULL),COLORGREEN,LINETHICK2;
IF(DIFF>=REF(DIFF,1),DIFF,DRAWNULL),COLORRED,LINETHICK2;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
STICKLINE(低位金叉,0,0.08,6,0),COLORYELLOW;
DRAWTEXT(低位金叉,0.16,' 低位金叉'),COLORWHITE;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,0.06,6,0),COLORFF00FF;
DRAWICON(二次金叉,DEA*0.9,1) ;
DRAWTEXT(二次金叉,0.2,' 二次金叉'),COLORYELLOW;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
STICKLINE(底背离,0,0.03,6,0),COLOR00FF00;
底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,LINETHICK4;
DRAWTEXT(底背离,0.12,' 底背离'),{COLORWHITE}COLORFF00FF;
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,LINETHICK4;

DRAWTEXT(低位金叉 AND 二次金叉 AND 底背离,0.25,'三全项'),COLOR0000FF,LINETHICK2;
STICKLINE(C>0,0,0,50,1),COLORBLUE;
{}
P=30<=P<50;
DRAWTEXT(REF(MACD,1)>0 AND MACD<0,MACD-0.01,'1');
DRAWTEXT(REF(MACD,2)>0 AND REF(MACD,1)<0 AND MACD<0,MACD-0.01,'2');
DRAWTEXT(REF(MACD,3)>0 AND REF(MACD,2)<0 AND REF(MACD,1)<0 AND MACD<0,MACD-0.01,'3');
DRAWTEXT(REF(MACD,4)>0 AND REF(MACD,3)<0 AND REF(MACD,2)<0 AND REF(MACD,1)<0 AND MACD<0,MACD-0.01,'4');
DRAWTEXT(REF(MACD,5)>0 AND REF(MACD,4)<0 AND REF(MACD,3)<0 AND REF(MACD,2)<0 AND REF(MACD,1)<0 AND MACD<0,MACD-0.01,'5');
DRAWTEXT(REF(MACD,6)>0 AND REF(MACD,5)<0 AND REF(MACD,4)<0 AND REF(MACD,3)<0 AND REF(MACD,2)<0 AND REF(MACD,1)<0 AND MACD<0,MACD-0.01,'6');
绿线天:=BARSLAST(CROSS(DEA,DIFF));
红线天:=BARSLAST(CROSS(DIFF,DEA));
压力:REF(H,绿线天),NODRAW;
支撑:REF(O,红线天),NODRAW;
A3:=IF(CROSS(0,DEA),1,0);
A12:=IF(DIFF>0 AND CROSS(DIFF,DEA),1,0);
SS2:=IF(A3,SUM(A12,0),0);
SSB2:=HHV(SS2,0);
SSS2:=SUM(A12,0);
轴上第1次金叉:IF(SSS2-SSB2=1 AND SSS2>REF(SSS2,1),1,0),NODRAW;
DRAWICON(轴上第1次金叉,0.2,1);
破0轴: REF(DIFF,1)>0 AND DIFF<0,COLORGREEN,NODRAW;
DRAWICON(破0轴,0.1,2);
第四根绿柱:REF(MACD,1)<REF(MACD,2) AND REF(MACD,2)<REF(MACD,3) AND REF(MACD,3) <=0 AND  MACD<=0 AND REF(MACD,4) >=0,COLORRED,NODRAW;
DRAWICON(第四根绿柱,0,11);

[url=http://www.70822.com/soft/sort013/sort05/down-42208.html]发一个东拼西凑的MACD[/url]