teochelmus
(teo ytriu)
1
I’ve tried to make a torus such that I can vary the parameters, the code I’ve typed was:
Manipulate[
ParametricPlot3D[{(2 + Cos[s]) Cos[t], (2 + Cos[s]) Sin[t], Sin[s]},
{t, 0, tRange}, {s, 0, sRange}, PlotRange -> {{-3, 3}, {-3, 3}, {-1, 1}}],
{tRange, 0.1, 2 Pi}, {sRange, 0.1, 2 Pi}]
but it didn’t work…I would be grateful for some help…Thank you!
nma
(Nasser M. Abbasi)
2
Manipulate[
ParametricPlot3D[{(2 + Cos[t]) Cos[t], (2 + Cos[t]) Sin[t],
Sin[t]}, {t, 0, tRange}, {s, 0, sRange},
PlotRange -> {{-3, 3}, {-3, 3}, {-1, 1}}],
{{tRange, Pi, "tRange"}, 0.1, 2 Pi, .1, Appearance -> "Labeled"},
{{sRange, Pi, "sRange"}, 0.1, 2 Pi, .1, Appearance -> "Labeled"}]
