自用能量潮指标-----通达信6.08版本

 

自用能量潮指标-----通达信6.08版本
OBV指标为常用的能量指标。关键要诀在于“量在价先”。
主要用于辅助研判股价或指数突破前期高点的有效性。
利用源码，稍作改动。将相邻高低点进行自动画线。
可以更好把握上下突破的时机。以便抉择。
说明如下：
P为参数，可以自定。效果图中 P=5.

向上:CROSS(OBV,上*1.01),NODRAW;
此句可用于选股。将向上突破的品种筛选备用。

相对能量表示当前能量相对于前期高低之间的比值。比值大于100显示突破的强弱。
过大也有强弩之末之嫌疑。
清明之际，送大家小礼。供参考。
老话一句：运用之妙，存乎一心！！
 

VP:=IF(CAPITAL=0,AMOUNT/100000000,VOL);
VA:=IF(CLOSE>REF(CLOSE,1),VP,-VP);
OBV:SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0),LINETHICK2;

m12:ema(obv,12),colorff00ff;
m50:ema(obv,50),coloryellow,linethick2;

partline(m12>m50,m12),colorffff00;
partline(m50>ref(m50,1),m50),colorred,linethick2;

p:=5;
A1:=REF(obv,p)=HHV(obv,2*p+1);
B1:=FILTER(A1,p);
C1:=BACKSET(B1,p+1);
D1:=FILTER(C1,p);{高点}

A2:=REF(obv,p)=LLV(obv,2*p+1);
B2:=FILTER(A2,p);
C2:=BACKSET(B2,p+1);
D2:=FILTER(C2,p);{低点}

Var2:=CROSS(d1,0.9);
Var4:=CROSS(d2,0.9);

UU:=BACKSET(BARSTATUS=2,BARSLAST(Var4)+1);
VV:=UU>REF(UU,1);
WW:=BACKSET(VV,REF(BARSLAST(Var4),1)+2);
XX:=WW>REF(WW,1);
DRAWLINE(XX,obv,VV,obv,1),COLOR00ff00;

UU2:=BACKSET(BARSTATUS=2,BARSLAST(Var2)+1);
VV2:=UU2>REF(UU2,1);
WW2:=BACKSET(VV2,REF(BARSLAST(Var2),1)+2);
XX2:=WW2>REF(WW2,1);

DRAWLINE(XX2,obv,VV2,obv,1),COLORffff00;

drawicon(var2,obv,4);
drawicon(var4,obv,5);

up:=REF(obv,BARSLAST(Var2));
dn:=REF(obv,BARSLAST(Var4));
stickline(c>0,up*1.01,up*1.01,4,0),colorred;
stickline(c>0,dn*0.99,dn*0.99,4,0),color00ff00;

drawtext(cross(obv,up*1.01),up,'上'),coloryellow,align0;
drawtext(cross(0.99*dn,obv),dn,'下'),color00ff00,align0;
相对能量:(obv-dn)/(up-dn)*100,color00ff00,linethick0;

DRAWTEXTEX(sysparam(3)=BARPOS,1,440,100,'【波峰】:'+NUMTOSTR(up[SYSPARAM(1)],2)),coloryellow;
DRAWTEXTEX(sysparam(3)=BARPOS,1,800,100,'【波谷】:'+NUMTOSTR(dn[SYSPARAM(1)],2)),color00ff00;