我写的OBV量能分析程序

VKP:=IF(AMOUNT=0,(C+L+H+O)/4,AMOUNT/VOL);

{- - - -OBV END - - - -}

SR:=VKP-REF(VKP,1);

OBV:=TMA(OBR*SIGN(SR),1,1);

{- - - -OBV END - - - -}

RR:=OBV;

D1:=20;

M1:=WMA(2*WMA(RR,ROUND(D1/2))-WMA(RR,D1),ROUND(SQRT(D1)));

NR:=CONST(RR);

R:RR,COLORFF9300,NODRAW;

R％:(NR-RR)*100/RR,COLORFF9300,NODRAW;

Ｈ:M1,COLORLIMAGENTA,NODRAW;

RH％:(RR-M1)*100/RR,COLORLIMAGENTA,NODRAW;

O1:=M1;

O1,COLORLIMAGENTA,LINETHICK2;

IF(O1>=REF(O1,1),O1,DRAWNULL),COLORMAGENTA,LINETHICK2;

O0:=RR;

O0,COLORLIBLUE,LINETHICK2;

O0,COLORFF9300,POINTDOt,LINETHICK1;

IF(O0>=REF(O0,1) ,O0,DRAWNULL),COLORFFFB00,POINTDOt,LINETHICK1;