将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;