0

Mathematica Plots the function f[x]=x/x in [-1,1] with no problem but I need an indicator of singularity in x=0. How can I do that?

Alp
  • 1
  • Epilog? PlotLabel? What sort of indicator do you want to have? Related: https://mathematica.stackexchange.com/questions/39445/plot-a-piecewise-function-with-black-and-white-disks-marking-discontinuities – Michael E2 Sep 29 '19 at 19:16
  • Maybe a white circle indicating that point is indeterminate. – Alp Sep 29 '19 at 19:18
  • 1
    Also related: https://mathematica.stackexchange.com/questions/57489/why-does-mathematica-simplify-x-x-to1 (explains why the automatic Exclusions does not work as one might expect). Compare Plot[x/(0. + x), {x, -1, 1}, ExclusionsStyle -> {None, Directive[PointSize[Large], Red]}] – Michael E2 Sep 29 '19 at 19:31

1 Answers1

1

Perhaps this?:

Plot[x/x, {x, -1, 1},
 Epilog -> {White, EdgeForm[Black], Disk[{0, 1}, Offset[{5, 5}]]}]

enter image description here

Michael E2
  • 235,386
  • 17
  • 334
  • 747