How to write x*log(1+A/(B*x))?

A,B are two constant.

-rel_entr(x,x+A/B)