通达信能量潮副图公式源码 蓝钻表示能量初起，红钻表示将爆发
 

OBV:=MA(SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0)/25000,1);
OBVE:=EMA(OBV,3);
DIFF := EMA(OBVE,12) - EMA(OBVE,26);
BBDIFF:=DIFF-REF(DIFF,1);
DEA := EMA(DIFF,9);
BBDEA:=DEA-REF(DEA,1);
MACD:=2*(DIFF-DEA), COLORSTICK;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,1,0)*5000000,COLORGREEN;
STICKLINE(MACD<REF(MACD,1)AND MACD<0,0,MACD,1,0)*5000000,COLORFFCC33;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,1,0)*5000000,COLOR0099FF;
STICKLINE(MACD>REF(MACD,1)AND MACD>0,0,MACD,1,0)*5000000,COLORYELLOW;
{股海网提供：www.guhai.com.cn} 

N:=10;M:=30;
VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV3:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
OBV1:=MA(OBV3,N);
OBV2:=MA(OBV3,M);
买点1:=CROSS(OBV3,OBV2) AND SUM(OBV3,20)<SUM(OBV2,20),COLORGREEN,NODRAW;
DRAWICON(买点1,0,27);
买点2:=CROSS(OBV1,OBV2),COLORMAGENTA,NODRAW;
DRAWICON(买点2,0,25);