Plotting the Lemniscate of Bernoulli
- To: mathgroup at smc.vnet.net
- Subject: [mg59775] Plotting the Lemniscate of Bernoulli
- From: "JohnnyQuest" <johnnyquest4io at gmail.com>
- Date: Sat, 20 Aug 2005 03:14:44 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
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[u])(Cos[t])/(1 +
Sin[t]^2), (10 + Sin[u])(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,
John Znalezniak