Mathematica anyone? ParametricPlot3D[ {(1 - Cos[t]) Cos[t], (1 - Cos[t]) Sin[t], Sin[2 t]}, {t, 0, 2 Pi}, PlotStyle -> {Thick, Blue}, AxesLabel -> {"x", "y", "z"}, Boxed -> False, ViewPoint -> {1.3, -2.4, 1.5}] - ThreadSky

kalifissure.bsky.social • 19 hours ago

Mathematica anyone?

ParametricPlot3D[
{(1 - Cos[t]) Cos[t], (1 - Cos[t]) Sin[t], Sin[2 t]},
{t, 0, 2 Pi},
PlotStyle -> {Thick, Blue},
AxesLabel -> {"x", "y", "z"},
Boxed -> False,
ViewPoint -> {1.3, -2.4, 1.5}]