抛砖引玉，请大家进一步优化！P 1 100 5，按自己的爱好调
A1:=ABS(H-REF(C,1));
B1:=ABS(L-REF(C,1));
C1:=ABS(H-REF(L,1));
D1:=ABS(REF(C,1)-REF(O,1));
E1:=C-REF(C,1);
F1:=C-O;
G1:=REF(C,1)-REF(O,1);
X:=E1+0.5*F1+G1;
K:=MAX(A1,B1);
R:=IF(A1>B1 AND A1>C1,A1+0.5*B1+0.25*D1,IF(B1>A1 AND B1>C1,B1+0.5*A1+0.25*D1,C1+0.25*D1));
L1:=3;
SI:=16*(X/R)*(K/L1);
ASI:SUM(SI,0);
MA_:MA(ASI,6);

AA1:=REF(ASI,P)=HHV(ASI,2*P+1);
BB1:=FILTER(AA1,P);
CC1:=BACKSET(BB1,P+1);
DD1:=FILTER(CC1,P);{高点}
AA2:=REF(ASI,P)=LLV(ASI,2*P+1);
BB2:=FILTER(AA2,P);
CC2:=BACKSET(BB2,P+1);
DD2:=FILTER(CC2,P);{低点}


前期高点:REF(ASI,BARSLAST(DD1)),COLORFF00FF,NODRAW;
前期低点:REF(ASI,BARSLAST(DD2)),COLOR00FF00,NODRAW;


相对能量:(ASI-前期低点)/(前期高点-前期低点)*100,COLORYELLOW,NODRAW;
R11:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1);
S11:=R11>REF(R11,1);
DRAWLINE(DD1,ASI,S11,ASI,1),COLORYELLOW;
T11:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1);
U11:=T11>REF(T11,1);
DRAWLINE(DD2,ASI,U11,ASI,1),COLOR00FF00;

STICKLINE(C>0,前期低点,前期低点,1,0),COLOR00FF00;
STICKLINE(C>0,前期高点,前期高点,1,0),COLORFF00FF;



DRAWICON(CROSS(ASI,前期高点),ASI,1);