Cusp Catastrophe

Author

Eric W. Weisstein
August 3, 2021

This notebook downloaded from http://mathworld.wolfram.com/notebooks/DifferentialGeometry/CuspCatastrophe.nb.

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

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

Additional Authors

Original graphic by
Dr. W. Sanns
University of Applied Sciences
Darmstadt, Germany
September 23, 2005

Graphic

F[x_,u_,v_]:= x^4+u x^2+v x

V5

Needs["Graphics`ContourPlot3D`"]

ContourPlot3D[Evaluate[D[F[x,u,v], x]],
   {u, -2.5, 2}, {v, -2.2,3},{x, -1.4, 1.3}, 
   PlotPoints->7, ViewPoint->{-1.5, 1.5, 1.4}, 
   Axes->True, ContourStyle->{EdgeForm[]},AxesLabel->TraditionalForm/@{u,v,x}]//Timing

V6

F[x_,u_,v_]:= x^4+u x^2+v x

ContourPlot3D[Evaluate[D[F[x,u,v],x]==0],{u,-2.5,2},{v,-2.2,3},{x,-1.4,1.3},ViewPoint->{-1.5,1.5,1.4},Axes->True,AxesLabel->{u,v,x},PlotPoints->20,BoxRatios->Automatic]