Hello,

i want to draw x*Log[Abs[x]] with it tangent to show it approaches infinity in zero.

I tried with this :

Manipulate[
 Show[
  Plot[x*Log[Abs[x]], {x, -1, 1}, PlotRange -> All],
  Plot[g'[p] (x - p) + g[p], {x, p - 1, p + 1}, 
   PlotStyle -> {Thick, Orange}, PlotRange -> All]]

 , {p, -1, 1}]

But it don't show the tangent with this error :

General::stop: Further output of Infinity::indet will be suppressed during this calculation.
Infinity::indet: Indeterminate expression 0 (-\[Infinity]) encountered.

How can I do that on Mathematica to show this tangent with the discontinuity in zero ?

Thanks for help