{以下处理面积}
{使用说明：原理是在悟多的分笔分段公式基础上，计算macd的面积，
当笔向上时，只累加红柱面积；当笔向下时，只累加绿柱面积，
面积均取正数（绿柱时为绝对值），以方便扩展到选股公式
假如我这一点理解错误，请不要使用本公式，或者自行修改。}

var1:="[email=chzhshch@kxian]chzhshch@kxian[/email]";{处理K线关系}
var2:="[email=chzhshch@bi]chzhshch@bi[/email]";{处理笔关系}
{var3:="[email=chzhshch@duan]chzhshch@duan[/email]";}{处理段关系}
{计算段的时候，将var2改为var3即可}
a1:=barslast(var2<>0);
a2:=ref(var2,a1);
aa1:=ref(a1+1,1); {到前顶或底的距离}
aa2:=-ref(a2,1);

var4:=if (aa2>0,if(macd>0,macd,0),if(macd<0,macd,0));{上涨只加红柱，下跌只加绿柱}
笔面积:=sum(var4,aa1)/10;{按比例缩小10倍，使图形保持美观，倍数可调节}

{在笔顶底处，标出求和数值}
{drawtext(var2=1 ,ref(笔面积,1),''+ref(笔面积,1)),colorred;
drawtext(var2=-1 ,ref(笔面积,1),''+ref(笔面积,1)),coloryellow;
drawtext(barstatus=2 and var4<0,var4,''+abs(笔面积)),align2,colorgreen;
drawtext(barstatus=2 and var4>0,var4,''+笔面积),align2,colorred;
}

{以下处理底背离}
N1:=last(MACD<0);{绿柱天数}
N2:=REF(last(MACD>0),N1);{绿柱前红柱天数}
N3:=REF(last(MACD<0),N2+N1);{红柱前绿柱天数}

MINMD1:=LLV(MACD,N1);
MINMD3:=REF(LLV(MACD,N3+N2),N1);
MINDIFF1:=LLV(DIFF,N1);
MINDIFF3:=REF(LLV(DIFF,N2+N3),N1);
MINDEA1:=LLV(DEA,N1);
MINDEA3:=REF(LLV(DEA,N2+N3),N1);
股价L1:=LLV(L,N1);
股价L3:=REF(LLV(L,N2+N3),N1);
股价LL:=LLV(L,N1+N2+N3);
绿柱缩短:=MACD<0 AND MACD>REF(MACD,1) AND REF(MACD,1)MACD底背离:=MACD<0 AND MINMD1>MINMD3;
DIFF底背离:=DIFF<0 AND MINDIFF1>MINDIFF3;
DEA底背离:=DEA<0 AND MINDEA1>MINDEA3;
股价新低:=股价L1=股价LL  and 股价L1/股价L3<0.9;
笔面积底背离:底笔面积1>底笔面积3,LINETHICK0;
底背离:绿柱缩短 AND  MACD底背离 AND DIFF底背离 AND DEA底背离 AND 股价新低 AND 笔面积底背离,COLORRED,PRECIS0,LINETHICK0;

VERTLINE(底背离 ,1 ),colorred;
DRAWICON(底背离,MACD*0.97,1,1),ALIGN1;

{以下处理顶背离}
M1:=last(MACD>0);{ 红柱天数}
M2:=REF(last(MACD<0),M1); {红柱前绿柱天数}
M3:=REF(last(MACD>0),M2+M1); {绿柱前红柱天数}

MAXMD1:=HHV(MACD,M1);
MAXMD3:=REF(HHV(MACD,M3+M2),M1);
MAXDIFF1:=HHV(DIFF,M1);
MAXDIFF3:=REF(HHV(DIFF,M2+M3),M1);
MAXDEA1:=HHV(DEA,M1);
MAXDEA3:=REF(HHV(DEA,M2+M3),M1);
股价H1:=HHV(H,M1);
股价HH:=HHV(H,M1+M2+M3);
红柱缩短:=MACD>0 AND MACDREF(MACD,2);
MACD顶背离:=MACD>0 AND MAXMD1DIFF顶背离:=DIFF>0 AND MAXDIFF1DEA顶背离:=DEA>0 AND MAXDEA1股价新高:=股价H1=股价HH;
顶背离:红柱缩短 AND  MACD顶背离 AND 股价新高,COLORGREEN,PRECIS0,LINETHICK0;