软件名称：[B]MACD面积[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：9.00 KB
官方主页：Home Page
更新时间：2018-01-15 02:44:29
软件简介:
DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA : EMA(DIFF,9);
MACD=2*(DIFF-DEA);
Zero : 0,color000080;
gj:=MAX(C,O);
MACDB:2*(DIFF-DEA),COLORSTICK;
BV:=SUM(MACDB,0),NODRAW;
BA:=IF(MAX(BV,REF(BV,2))<REF(BV,1) OR MIN(BV,REF(BV,2))>REF(BV,1),1,0);
BC:=BARSLAST(BA)+1;
SMACD:=BV-REF(BV,BC);
VAR3:=IF(MACDB>0,HHV(ABS(MACDB),BC),LLV(MACDB,BC));
VAR4:=(MACDB)/20;//www.70822.com
STICKLINE(MACD>0 AND MACD>=REF(MACD,1),0,MACD,2,0),colorred;
STICKLINE(MACD>0 AND MACD<REF(MACD,1),0,MACD,2,0),COLOR000099;
STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,2,0),color0a6f00;
STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,2,0),color00ff00;
L4:=LLV(gj,4);
jl:=(HHV(diff,55)-LLV(diff,55))/5;
gt:=dea>REF(dea,1) AND REF(dea,1)<REF(dea,2);
A1:=BARSLAST(REF(gt,1));
底背离:=REF(L4,A1+1)>CLOSE AND diff>REF(diff,A1+1) AND gt;
DRAWLINE(A1=0,DEA,底背离,REF(DEA,A1),0),colorred,LINETHICK1;
DRAWLINE(底背离,DEA,底背离,REF(DEA,A1),0),colorred,LINETHICK1;
H4:=HHV(gj,4);
gt2:=dea<REF(dea,1) AND REF(dea,1)>REF(dea,2);
A2:=BARSLAST(REF(gt2,1));
顶背离:= REF(H4,A2+1)<H4 AND diff<REF(diff,A2+1) AND gt2;
DRAWLINE(A2=0 ,DEA,顶背离,REF(DEA,A2),0),color004700,LINETHICK1;
DRAWLINE(顶背离,DEA,顶背离,REF(DEA,A2),0),color004700,LINETHICK1;
A0:=DIFF<0 AND DEA<0;
A11:=A0>REF(A0,1);
A3:=BARSLAST(A11);
A4:=COUNT(DEA>0 AND DIFF >0,A3)=0;
A5:=CROSS(DIFF ,DEA);
A6:=BARSLAST(A5);
A7:=REF(A6,A6+1)+A6;
A8:=(DIFF+DEA)/2;
A9:=(HIGH+LOW)/2;
A10:=A5 AND A7<A3 AND A4 AND A8>REF(A8,A7) AND A9<REF(A9,A7) AND MACD>0;
红面积:SUM(MACD,BARSLAST(MACD<0))*(MACD>0),COLOR0000FF,NODRAW;
绿面积:SUM(MACD,BARSLAST(MACD>0))*(MACD<0),COLORFFFF00,NODRAW;
AA:=ROUND((REF(绿面积,1)*100),0);BB:=ROUND((REF(红面积,1)*100),0);
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
A1:=BARSLAST(CROSS(diff,dea));
A2:=BARSLAST(CROSS(dea,diff));
a3:=BARSLAST(CROSS(diff,dea),1);
a4:=BARSLAST(CROSS(dea,diff),1);
底背离:= LLV(CLOSE,a2)<REF(LLV(CLOSE,a4-a3),a3) AND LLV(diff,a2)>REF(LLV(diff,a4-a3),a3) AND CROSS(diff,dea);
DRAWLINE(REF(CROSS(diff,dea),1),DEA,底背离,DEA,0),colorred,LINETHICK1;
顶背离:= HHV(CLOSE,a1)>REF(HHV(CLOSE,a3-a4),a4) AND HHV(diff,a1)<REF(HHV(diff,a3-a4),a4) AND CROSS(dea,diff);
DRAWLINE(REF(CROSS(dea,diff),1),DEA,顶背离,DEA,0),color004700,LINETHICK1;
DRAWTEXT(低位金叉 AND 二次金叉 AND 底背离,0.25,'三全项'),COLOR0000FF,LINETHICK1;
SELECT 底背离;
JC := DEA-DIFF;
绿柱面积:=IF(MACD<0,SUM(MACD,BARSLAST(JC<0)),0);
红柱面积:=IF(MACD>0,SUM(MACD,BARSLAST(JC>0)),0);
本次最低价:=LLV(L,BARSLAST(JC<0));
本次最高价:=HHV(H,BARSLAST(JC>0));
X1:=IF (MACD<0,BARSLAST(CROSS(DIFF,DEA)),0);
前次绿柱面积:=REF(绿柱面积,X1+1);
前次最低价:=REF(本次最低价,X1+1);
Y1:=IF((绿柱面积<0 AND ABS(绿柱面积)<ABS(前次绿柱面积)
AND 本次最低价<前次最低价 ),1,0);
RS1:= MACD<0 AND REF(MACD,1)<0 AND C<前次最低价
AND ABS(绿柱面积)<ABS(前次绿柱面积) AND ABS(MACD)<ABS(REF(MACD,1));
底背驰:= IF (CROSS(DIFF,DEA),REF(Y1,1),0);
STICKLINE(底背驰,0,-0.01,4,0),COLOR0000FF;
X2:=IF (MACD>0,BARSLAST(CROSS(DEA,DIFF)),0);
前次红柱面积:=REF(红柱面积,X2+1);
前次最高价:=REF(本次最高价,X2+1);
Y2:=IF((红柱面积>0 AND 红柱面积<前次红柱面积 AND 本次最高价>前次最高价 ),1,0);
RS2:= MACD>0 AND REF(MACD,1)>0 AND C>前次最高价 AND ABS(红柱面积)<ABS(前次红柱面积) AND ABS(MACD)<ABS(REF(MACD,1));
顶背驰:= IF (CROSS(DEA,DIFF),REF(Y2,1),0);
STICKLINE(顶背驰,0,0.01,4,0),COLOR00FF00;
贪:IF(DIFF>=DEA,DIFF,DRAWNULL),colorwhite;
痴:IF(DEA>=DIFF,DEA,DRAWNULL),coloryellow;
慢:IF(DIFF>=DEA,DEA,DRAWNULL),color0099ff;
疑:IF(DEA>=DIFF,DIFF,DRAWNULL),COLOR999999;
嗔:DIFF-DEA,colormagenta,NODRAW;
VERLINE(底背驰,1),COLOR003bc1;
VERLINE(顶背驰,1),COLOR007800;
VERLINE(HOUR<REF(HOUR,1),2),COLOR00174d;
面积1:=ROUND(SMACD*100),NODRAW;
面积:SMACD*100,NODRAW;
面积数字高度:=REF(VAR3,1)*0.9;
DRAWNUMBER(REF(VAR4,1)>0 AND VAR4<=0 ,REF(VAR3,1)*0.9,REF(面积1,1)),colorlired;
DRAWNUMBER(REF(VAR4,1)<0 AND VAR4>=0 ,REF(VAR3,1)*0.9,REF(ABS(面积1),1)),colorgreen;
DRAWNUMBER(ISLASTBAR AND VAR4<0,REF(VAR3,1)*0.9,ABS(面积1)),colorwhite;
DRAWNUMBER(ISLASTBAR AND VAR4>0,REF(VAR3,1)*0.9,面积1),colorwhite;
M1:=REF(MACDB,1);
IF(DIFF>=REF(DIFF,1),DIFF,DRAWNULL),colorgreen,LINETHICK2;
[url=http://www.70822.com/soft/sort013/sort036/down-120391.html]MACD面积[/url]