将K线重心改为通达信

编写要求：

麻烦老师将K线重心改成通达信的，源码：input: N(4,2,400);{K线}KLINE(O,H,L,C,0);ZF:=(C-REF(C,1))/REF(C,1);TJ:=ZF>=N/100 OR ZF<=-N/100;AA:=IF(REF(H,BARSLAST(TJ))REF(C,BARSLAST(TJ)+1),REF(C,BARSLAST(TJ)+1),REF(L,BARSLAST(TJ)));PARTLINE(BARSLAST(TJ),REF(LOW,BARSLAST(TJ))),COLORGREEN;//下限:PARTLINE(BARSLAST(TJ),REF(LOW,BARSLAST(TJ))),SHIFT1,COLORGREEN;PARTLINE(BARSLAST(TJ),REF(HIGH,BARSLAST(TJ))),COLORYELLOW;//上限:PARTLINE(BARSLAST(TJ),REF(HIGH,BARSLAST(TJ))),SHIFT1,COLORYELLOW;PARTLINE(BARSLAST(TJ),(AA+BB)/2),COLORWHITE;//重心:PARTLINE(BARSLAST(TJ),(AA+BB)/2),SHIFT1,COLORWHITE;

解答：

{K线 N(4,2,400);}

DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
ZF:=(C-REF(C,1))/REF(C,1);
TJ:=ZF>=N/100 OR ZF<=-N/100;
AA:=IF(REF(H,BARSLAST(TJ))<REF(C,BARSLAST(TJ)+1),REF(C,BARSLAST(TJ)+1),REF(H,BARSLAST(TJ)));
BB:=IF(REF(L,BARSLAST(TJ))>REF(C,BARSLAST(TJ)+1),REF(C,BARSLAST(TJ)+1),REF(L,BARSLAST(TJ)));
下限:IF(BARSLAST(TJ),REF(LOW,BARSLAST(TJ)),DRAWNULL),colorgreen;
上限:IF(BARSLAST(TJ),REF(HIGH,BARSLAST(TJ)),DRAWNULL),coloryellow;
重心:IF(BARSLAST(TJ),(AA+BB)/2,DRAWNULL),colorwhite;