User Portlet
| Discussions |
|---|
| 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 -... |