真正准确的区域之源公式

 论坛里面的区域之源公式下载使用后，发现上市时间长的股票，显示的区域之源事变动的，有时候是不准的。经过几天的摸索进行了修正，供大家参考,。要求加分！
A:=TOTALBARSCOUNT;
区域上限:REF(H,A),COLORRED;
区域下限:REF(L,A),COLORYELLOW;
区域中限:=(区域上限+区域下限)/2;
ZF:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1);
TJ:=ZF>=7/100 OR ZF<=-7/100;
SX:=IF(TJ,H,REF(H,BARSLAST(TJ)));
XX:=IF(TJ,L,REF(L,BARSLAST(TJ)));
H1:=IF(TJ,H,DRAWNULL);
O1:=IF(TJ,O,DRAWNULL);
L1:=IF(TJ,L,DRAWNULL);
C1:=IF(TJ,C,DRAWNULL);
收盘:C,POINTDOT,LINETHICK4,COLORYELLOW;
上限:SX,NODRAW;
下限:XX,NODRAW;
均线:MA(C,7),COLORMAGENTA;
DRAWKLINE(H1,O1,L1,C1);
DRAWKLINE(SX+0.001,SX,SX,SX+0.001),COLORBROWN;
DRAWKLINE(XX,XX,XX-0.001,XX-0.001),COLORLIGRAY;