Johnnyquest
Newbie level 6
Hi I am trying to plot a three dimensional Lemniscate of Bernoulli in
Mathematica. So far I have only been able to make a 3D ribbon but would
like to make a tube. I know my formula needs to be changed, could
someone please point me in the right direction?
Here is what I have so far:
knot1 = ParametricPlot3D[{2*(10 + Cos)(Cos[t])/(1 +
Sin[t]^2), (10 + Sin)(Sin[t]Cos[t])/(1 + Sin[t]^2),
u*Sin[t]},
{t, 0,2p}, {u, 0,3}, PlotPoints -> 175, Mesh -> False, ViewPoint
-> {0, 1, 3}]
Thanks,
JohnnyQuest
Mathematica. So far I have only been able to make a 3D ribbon but would
like to make a tube. I know my formula needs to be changed, could
someone please point me in the right direction?
Here is what I have so far:
knot1 = ParametricPlot3D[{2*(10 + Cos)(Cos[t])/(1 +
Sin[t]^2), (10 + Sin)(Sin[t]Cos[t])/(1 + Sin[t]^2),
u*Sin[t]},
{t, 0,2p}, {u, 0,3}, PlotPoints -> 175, Mesh -> False, ViewPoint
-> {0, 1, 3}]
Thanks,
JohnnyQuest