p0:(C-MA(C,89))/MA(C,89)*100;

  p1:(C-MA(C,233))/MA(C,233)*100;

  bh:=(H-MA(C,233))/MA(C,233)*100;

  bl:=(L-MA(C,233))/MA(C,233)*100;

  p2:IF(p1》0,bh,bl);