- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2007-2-11
|
|

楼主 |
发表于 2009-10-22 14:12
|
显示全部楼层
搜了一下,搜了个面积背离的公式,留下备用
当此时macd上穿0轴时绿柱的面积比上次macd上穿0轴时绿柱的面积要小,并且股价的最低值也低于上次股价的最低值。 MACD面积公式:
一、MACD面积公式(通达信)
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA := EMA(DIFF,9);
MACD := 2*(DIFF-DEA), COLORSTICK;
BV:=SUM(MACD,0);
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),COLORSTICK;
二、浩申老师的MACD面积飞狐源码:
p:=26;s:=12;m:=9;
var1:="[email=chzhshch@kxian]chzhshch@kxian[/email]";{处理K线关系}
var2:="[email=chzhshch@bi]chzhshch@bi[/email]";{处理笔关系}
var3:="[email=chzhshch@duan]chzhshch@duan[/email]";{处理段关系}
DIFF : EMA(CLOSE,s) - EMA(CLOSE,p);
DEA : EMA(DIFF,m);
MACD : 2*(DIFF-DEA), COLORSTICK;
var4:"[email=chzhshch@macds]chzhshch@macds"(macd)/20[/email];{图形比例缩小1/20,可自己修改}
var5:="[email=chzhshch@macdsnum]chzhshch@macdsnum[/email]";
drawnumber(ref(var4,1)>0 and var4<=0 ,ref(var4,1),ref(var5,1),0),shift1,colorred;
drawnumber(ref(var4,1)<0 and var4>=0 ,ref(var4,1),ref(abs(var5),1),0),shift1,colorgreen;
drawnumber(islastbar and var4<0,var4,abs(var5),0),align2,colorgreen,pxup25;
drawnumber(islastbar and var4>0,var4,var5,0),align2,colorred,pxdn10;
---------------------------------------------------------------------
三、这个比较复杂
{面积MACD}公式
注:调整参数可以自行更改,主要作用是放大或缩小MACD面积倍数,效果是一样的。
input:调整参数(20,0.0001,1000);
p:=26;s:=12;m:=9;
DIFF:EMA(c,s) - EMA(c,p);
DEA:EMA(DIFF,m);
MACD:2*(DIFF-DEA),COLORSTICK;
BV:=SUM(MACD/调整参数,0);
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(macd>0,HHV(abs(macd),bc),LLV(macd,bc));
var4:=(macd)/20;{图形比例缩小1/20,可修改}
var5:=SMACD*100;
drawnumber(ref(var4,1)>0 and var4<=0 ,ref(var3,1),ref(var5,1),0){,pxup100},colorgreen;
drawnumber(ref(var4,1)<0 and var4>=0 ,ref(var3,1),ref(abs(var5),1),0),{pxdn40,}colorff00ff;
drawnumber(islastbar and var4<0,ref(var3,1),abs(var5),0),align2,colorff00ff{,pxup40};
drawnumber(islastbar and var4>0,ref(var3,1),var5,0),align2,colorgreen{,pxdn100};
M1:=REF(MACD,1);
STICKLINE(macd>0 and macd<=m1,0,macd,3,0),coloryellow;
STICKLINE(macd<0 and macd>=m1,0,macd,3,0),colorwhite;
{DRAWICON(macd<0 and ref(macd,1)>macd and l>ref(l,1) and c>o,macd,10);}
{DRAWICON(ref(macd,2)>0 and ref(macd,1)<0.01 and macd>0.01,macd,10);}
{DRAWICON(diff>ref(diff,1) and macd<0 and c>=o and l<ref(l,1),macd,12);}
{DRAWICON(macd<0 and ref(macd,1)<macd and l<ref(l,1) and c>o,macd,10);}
日线MACD:"macd.macd#day",LINETHICK0,COLORFF0099;
三十分MACD:"MACD.MACD#MIN30",colorred,linethick0;
十五分MACD:"MACD.MACD#MIN15",linethick0;
五分MACD:"MACD.MACD#MIN5",colorff00ff,linethick0;
jc := dea-diff;
绿柱面积:IF (MACD<0,SUM(MACD,BARSLAST(jc<0)),0),linethick0,colorblue;
红柱面积:IF (MACD>0,SUM(MACD,BARSLAST(jc>0)),0),linethick0,colorred;
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
e:=CROSS(83,RSI);
DRAWICON(e,macd,10);
日RSI:"引用RSI.RSI#day",colorff00ff,linethick0;
六十分RSI:"引用RSI.RSI#MIN60",colorff00ff,linethick0;
三十分RSI:"引用RSI.RSI#MIN30",colorff00ff,linethick0;
十五分RSI:"引用RSI.RSI#MIN15",colorff00ff,linethick0;
五分RSI:"引用RSI.RSI#MIN5",colorff00ff,linethick0;
DRAWICON(CROSS(83,日RSI),macd,1);
STICKLINE(CROSS(83,日RSI),diff,0,6,0),Colorred;
DRAWICON(CROSS(83,六十分RSI),macd,2);
DRAWICON(CROSS(83,三十分RSI),diff,3);
DRAWICON(CROSS(83,十五分RSI),-macd,4);
DRAWICON(CROSS(83,五分RSI),macd,6);
日WR:"引用WR.WR#day",colorff00ff,linethick0;
六十分WR:"引用WR.WR#MIN60",colorff00ff,linethick0;
三十分WR:"引用WR.WR#MIN30",colorff00ff,linethick0;
十五分WR:"引用WR.WR#MIN15",colorff00ff,linethick0;
五分WR:"引用WR.WR#MIN5",colorff00ff,linethick0;
PARTLINE(日WR<=1,diff),colorred,LINETHICK5;
PARTLINE(六十分wr<=1,dea),colorgreen,LINETHICK4;
PARTLINE(三十分wr<=1,diff),colorff00ff,LINETHICK3;
PARTLINE(十五分wr<=1,dea),colorgreen,LINETHICK2;
DRAWICON(五分wr<=1,macd,12);
下面二个是{面积MACD}公式引用的公式,公式名一定要对。
1、公式名称
{引用RSI}
LC:=REF(CLOSE,1);
RSI:SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100,linethick0;
e:CROSS(83,RSI);
2、公式名称
{引用WR}
WR:(C-llv(L,5))/(hhv(H,5)-llv(L,5))*100;
----------------------------------------------------------------------------------------------------
MACD背驰最好的副图指标[通达信和大智慧1都可用]
DIFF:EMA(CLOSE,12)-EMA(CLOSE,27);
DEA:EMA(DIFF,9);
MACD:2*(DIFF-DEA), COLORSTICK,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,' 底背离'),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;
MACD积背离 大智慧
DIFF : EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
DEA : EMA(DIFF,M);
MACD : 2*(DIFF-DEA), COLORSTICK;
jc := dea-diff;
绿柱面积:IF (MACD<0,SUM(MACD,BARSLAST(jc<0)),0),linethick0,colorblue;
红柱面积:IF (MACD>0,SUM(MACD,BARSLAST(jc>0)),0),linethick0,colorred;
本次最低价:LLV(L,BARSLAST(jc<0)),linethick0;
本次最高价:HHV(H,BARSLAST(jc>0)),linethick0;
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);
DRAWICON(底背驰,0,7),coloryellow;
FILLRGN(diff,dea,rs1),colorred;
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);
DRAWICON(顶背驰,0,8),coloryellow;
FILLRGN(dea,diff,rs2),colorgreen; |
|
|