Topologists Sine Curve

Author

Eric W. Weisstein
March 25, 2019

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Topology/TopologistsSineCurve.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/TopologistsSineCurve.html.

©2019 Wolfram Research, Inc. except for portions noted otherwise

Code

TopologistsSin[x_]:=Sin[1/x]/;x>0
TopologistsSin[x_]:=0

Plot

Plot[TopologistsSin[x],{x,-1,2},
Ticks->None,
AxesLabel->{x,Sin[1/x]},
MaxRecursion->8,
LabelStyle->Directive[Black,FontFamily->"Times"],
PlotStyle->Red]