通达信【雷霆OBV】货真价实镇妖股使用详解

来函数检测结果如下：
该公式没有未来函数

VAR1:=OBV-MA(OBV,30);

VAR2:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);

STICKLINE(VAR1>0,0,VAR1,1,0),COLORRED;

STICKLINE(VAR1<0,0,VAR1,1,0),COLORCYAN;

OBV:SUM(IF(CLOSE=REF(CLOSE,1),0,VAR2),0),COLORWHITE;

OBV30:MA(OBV,30),COLORYELLOW;

VAR3:=OBV-OBV30;

VAR4:=BARSLAST(REF(CROSS(OBV,OBV30),1));

VAR5:=REF(CLOSE,VAR4+1)>CLOSE AND OBV>REF(OBV,VAR4+1) AND CROSS(OBV,OBV30);

VAR8:=BARSLAST(REF(CROSS(OBV30,OBV),1));

VAR9:=REF(C,VAR8+1)<C AND REF(OBV,VAR8+1)>OBV AND CROSS(OBV30,OBV);

STICKLINE(VAR3>0,OBV,OBV30,1,0),COLORRED;

STICKLINE(VAR3<0,OBV,OBV30,1,0),COLOR00FF00;

DRAWICON(CROSS(OBV,OBV30),OBV30,1); 

DRAWICON(CROSS(OBV30,OBV),OBV30,2); 

STICKLINE(OBV<REF(OBV,1),OBV30,OBV,1,0),COLORFFFF00;

STICKLINE(OBV>REF(OBV,1),OBV30,OBV,1,0),COLORFF00FF;

STICKLINE(VAR5,0,OBV,3,0),COLOR00FF00;

DRAWTEXT(VAR5,OBV30,' 底背离'),COLORWHITE;

DRAWTEXT(VAR9,OBV30,' 顶背离'),COLORWHITE;

OBV创新高是牛股:PLOYLINE(1,CONST(OBV)),COLOR008888,LINETHICK1;

原理解析：
VAR1赋值:OBV-OBV的30日简单移动平均
VAR2赋值:IF(收盘价>1日前的收盘价,成交量,-成交量)
当满足条件VAR1>0时,在0和VAR1之间画柱状线
当满足条件VAR1<0时,在0和VAR1之间画柱状线
输出OBV:SUM(IF(收盘价=1日前的收盘价,0,VAR2),0),画白色
OBV30:OBV的30日简单移动平均,画黄色
VAR3赋值:OBV-OBV30
VAR4赋值:上次1日前的OBV上穿OBV30距今天数
VAR5赋值:VAR4+1日前的收盘价>收盘价 AND OBV>VAR4+1日前的OBV AND OBV上穿OBV30
VAR8赋值:上次1日前的OBV30上穿OBV距今天数
VAR9赋值:VAR8+1日前的COBV AND OBV30上穿OBV
当满足条件VAR3>0时,在OBV和OBV30之间画柱状线
当满足条件VAR3<0时,在OBV和OBV30之间画柱状线
DRAWICON(OBV上穿OBV30,OBV30,1)
 DRAWICON(OBV30上穿OBV,OBV30,2)
 STICKLINE(OBV<1日前的OBV,OBV30,OBV,1,0),COLORFFFF00
STICKLINE(OBV>1日前的OBV,OBV30,OBV,1,0),COLORFF00FF
当满足条件VAR5时,在0和OBV之间画柱状线
当满足条件VAR5时,在OBV30和' 底背离'位置书写文字
当满足条件VAR9时,在OBV30和' 顶背离'位置书写文字
OBV创新高是牛股:PLOYLINE(1,CONST(OBV)),COLOR008888,LINETHICK1