【原】顶底背离异常指标公式

编程思路破译

输出OBV:如果收盘价>1日前的收盘价,返回成交量(手),否则返回如果收盘价<1日前的收盘价,返回-成交量(手),否则返回0的历史累和,线宽为2,画绿色
B1赋值:1日前的OBV
B2赋值:2日前的OBV
B3赋值:3日前的OBV
B4赋值:4日前的OBV
CMAX赋值:OBV和B1的较大值和B2的较大值和B3的较大值
CMIN赋值:OBV和B1的较小值和B2的较小值和B3的较小值
持股赋值:当满足条件OBV=CMAXAND(B1>=B2ORB1>=B3)ORB1=CMAXAND(B2=CMINORB3=CMIN)ANDOBV>=B2ORB2=CMAXANDB3=CMINANDOBV>=B1ORB3=CMAXANDOBV>=B1ANDOBV>=B2时,在B1和OBV位置之间画柱状线,宽度为3,0不为0则画空心柱.,画洋红色
输出变盘:当满足条件OBV=CMAXANDB1=CMIN时,在B2和OBV位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLORFFFFFF
下跌赋值:当满足条件

OBV=CMINAND(B1<B2ORB1<B3)ORB1=CMINAND(B2=CMAXORB3=CMAX)ANDOBV<B2ORB2=CMINANDB3=CMAXANDOBV<B1ORB3=CMINANDOBV<B1ANDOBV<B2时,在B1和OBV位置之间画柱状线,宽度为8,1不为0则画空心柱.,COLOR00FF00

当满足条件B1=CMAXANDOBV=CMIN时,在B2和OBV位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR009900

输出买入:当满足条件B1=CMINANDOBV>=B2OR(B2=CMINANDB1<=B3ORB3=CMINANDB1<=B2)ANDB2<B4ANDOBV>=B1时,在B1和B2位置之间画柱状线,宽度为3,0不为0则画空心柱.,画红色

输出抛售:当满足条件B1=CMAXANDOBV<B2OR(B2=CMAXANDB1>B3ORB3=CMAXANDB1>B2)ANDB2>=B4ANDOBV<B1时,在B1和B2位置之间画柱状线,宽度为3,0不为0则画空心柱.,画蓝色

输出V1:0日内OBV的最高值

V3赋值:5日内OBV的最高值

如果OBV=V3,返回OBV,否则返回无效数,画黄色,线宽为3

如果OBV=V1,返回OBV,否则返回无效数,画红色,线宽为3

OBV的7日简单移动平均,画白色

OBV的21日简单移动平均,画淡蓝色

当满足条件(((统计30日中满足(收盘价>1日前的收盘价)的天数>18)AND(统计3日中满足(收盘价>1日前的收盘价)的天数=3))AND((统计30日中满足(OBV<1日前的OBV)的天数>18)OR(统计3日中满足(OBV<1日前的OBV)的天数=3)))时,在OBV位置书写文字

当满足条件(OBV上穿0AND(统计3日中满足(1日前的OBV<0)的天数=3))时,在OBV位置书写文字

当满足条件(0上穿OBVAND(统计3日中满足(1日前的OBV>0)的天数=3))时,在OBV位置书写文字

当满足条件((20日内最高价的最高值=最高价)ANDNOT((20日内OBV的最高值=OBV)))时,在OBV位置书写文字,画绿色

当满足条件((20日内最低价的最低值=最低价)ANDNOT((20日内OBV的最低值=OBV)))时,在OBV位置书写文字,画红色

当满足条件((((OBV-1日前的OBV)的绝对值/OBV的5日简单移动平均的绝对值)>0.07)AND(OBV>1日前的OBV))时,在OBV位置书写文字

obv:SUM(IF(CLOSE>REF(CLOSE,1),vol,IF(CLOSE< REF(CLOSE,1),-VOL,0)),0),LINETHICK2,COLORGREEN;

B1:=REF(OBV,1);

B2:=REF(OBV,2);

B3:=REF(OBV,3);

B4:=REF(OBV,4);

CMAX:=MAX(MAX(MAX(OBV,B1),B2),B3);

CMIN:=MIN(MIN(MIN(OBV,B1),B2),B3);

持股:=STICKLINE(OBV=CMAX AND (B1>=B2 OR B1>=B3) OR B1=CMAX AND (B2=CMIN OR B3=CMIN) AND OBV>=B2 OR B2=CMAX AND B3=CMIN AND OBV>=B1 OR B3=CMAX AND OBV>=B1 AND OBV>=B2,B1,OBV,3,0),COLORMAGENTA;

变盘:STICKLINE(OBV=CMAX AND B1=CMIN,B2,OBV,3,0),COLORFFFFFF;

下跌:=STICKLINE(OBV=CMIN AND (B1< B2 OR B1< B3) OR B1=CMIN AND (B2=CMAX OR B3=CMAX) AND OBV< B2 OR B2=CMIN AND B3=CMAX AND OBV< B1 OR B3=CMIN AND OBV< B1 AND OBV< B2,B1,OBV,8,1),COLOR00FF00;

STICKLINE(B1=CMAX AND OBV=CMIN,B2,OBV,3,0),COLOR009900 ;

买入:STICKLINE(B1=CMIN AND OBV>=B2 OR (B2=CMIN AND B1<=B3 OR B3=CMIN AND B1<=B2) AND B2< B4 AND OBV>=B1,B1,B2,3,0),COLORRED;

抛售:STICKLINE(B1=CMAX AND OBV< B2 OR (B2=CMAX AND B1>B3 OR B3=CMAX AND B1>B2) AND B2>=B4 AND OBV< B1,B1,B2,3,0),COLORBLUE;

V1:HHV(OBV,0);

V3:=HHV(OBV,5);

IF(OBV=V3,OBV,DRAWNULL),COLORYELLOW,LINETHICK3;

IF(OBV=V1,OBV,DRAWNULL),COLORRED,LINETHICK3;

MA(OBV,7),COLORWHITE;

MA(OBV,21),COLORLIBLUE;

DRAWTEXT((((COUNT((CLOSE > REF(CLOSE,1)),30) > 18) AND (COUNT((CLOSE > REF(CLOSE,1)),3) = 3)) AND ((COUNT((OBV < REF(OBV,1)),30) > 18) OR (COUNT((OBV < REF(OBV,1)),3) = 3))),OBV,'买盘无力');

DRAWTEXT((crOSS(OBV,0) AND (COUNT((REF(OBV,1) < 0),3) = 3)),OBV,'由负转正买入');

DRAWTEXT((CROSS(0,OBV) AND (COUNT((REF(OBV,1) > 0),3) = 3)),OBV,'由正转负卖出。');

DRAWTEXT(((HHV(HIGH,20) = HIGH) AND NOT((HHV(OBV,20) = OBV))),OBV,'顶背离卖'),COLORGREEN;

DRAWTEXT(((LLV(LOW,20) = LOW) AND NOT((LLV(OBV,20) = OBV))),OBV,'底背离买'),COLORRED;

DRAWTEXT((((Abs((OBV - REF(OBV,1))) / ABS(MA(OBV,5))) > 0.07) AND (OBV > REF(OBV,1))),OBV,'异常');

程序源码

注：

       馆内各种公式为学习编程而保存，实战使用前一定要看其中是否有未来函数并自己亲自测试成功率，决不能依据公式名称的描述和形容去投资，据此入市造成投资损失由投资者自己承担。

       发文不易，如获益，欢迎赞赏，赞赏必复！