Cusp Map

Author

Eric W. Weisstein
March 2, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/SpecialFunctions/CuspMap.nb.

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

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

Plot

CuspMap[x_]:=1-2Sqrt[Abs[x]]

Plot[CuspMap[x],{x,-3,3},AxesLabel->{x,CuspMap[x]},PlotStyle->Red]