通达信能量平台请配合成交量使用

再送[能量平台]请配合成交量使用
 {能量平台，N缺省值55}
 
PE:=VOL*ABS((C-REF(C,1))/REF(C,1));
 PEP:=IF(PE<REF(PE,1) AND REF(PE,1)>REF(PE,2),REF(PE,1),DRAWNULL);
 XD1:=BARSLAST(PEP=CONST(FINDHIGH(PEP,1,N,1)));
 EP1:IF(CURRBARSCOUNT<=N+2,CONST(REF(C,XD1+1)),DRAWNULL),COLOR4171FE;
 IF(CURRBARSCOUNT=CONST(XD1+1+1),EP1,DRAWNULL),CIRCLEDOT,COLOR4171FE;
 DRAWTEXT(CURRBARSCOUNT=5,EP1,'EP1'),COLOR4171FE;
 

XD2:=BARSLAST(PEP=CONST(FINDHIGH(PEP,1,N,2)));
 EP2:IF(CURRBARSCOUNT<=N+2,CONST(REF(C,XD2+1)),DRAWNULL),COLOR00ECEC;
 IF(CURRBARSCOUNT=CONST(XD2+1+1),EP2,DRAWNULL),CIRCLEDOT,COLOR00ECEC;
 DRAWTEXT(CURRBARSCOUNT=5,EP2,'EP2'),COLOR00ECEC;
 
XD3:=BARSLAST(PEP=CONST(FINDHIGH(PEP,1,N,3)));
 EP3:IF(CURRBARSCOUNT<=N+2,CONST(REF(C,XD3+1)),DRAWNULL),COLORFEFEFE;
 IF(CURRBARSCOUNT=CONST(XD3+1+1),EP3,DRAWNULL),CIRCLEDOT,COLORFEFEFE;
 DRAWTEXT(CURRBARSCOUNT=5,EP3,'EP3'),COLORFEFEFE;