能量狂涌MAX，通达信副图，源码分享

N:=240;

X:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;

正:=IF(C>REF(C,1),X,0);

负:=IF(C<REF(C,1),-X,0);

AA2:0.618*HHV(正,17),LINETHICK3;

BB2:-0.618*HHV(负,17),;

OBC:SUM(IF(CLOSE>REF(CLOSE,1),正,IF(CLOSE<REF(CLOSE,1),-负,0)),5),COLORRED,LINETHICK3;

IF(EMA(OBC,5)>=EMA(OBC,21),OBC,DRAWNULL),COLORRED,LINETHICK3;

IF(EMA(OBC,5)< EMA(OBC,21),OBC,DRAWNULL),COLORGREEN,LINETHICK3;

极差:AA2+BB2;

海面:0;

IF(极差>=海面,极差,DRAWNULL),COLORRED,LINETHICK2;

IF(极差<海面,极差,DRAWNULL),COLORGREEN,LINETHICK2;

BOLL:=MA(CLOSE,21);

ENE:=(1+0.030/N)*LLV(BOLL,58);

A1:=(1+0.036/N)*ENE;

E1:=(1+0.132/N)*ENE;

DRAWICON(CROSS(极差,海面) AND C<=1.000*A1 AND OBC<0,1.95*OBC,9);