bread curve
- To: mathgroup at smc.vnet.net
- Subject: [mg106075] bread curve
- From: a boy <a.dozy.boy at gmail.com>
- Date: Fri, 1 Jan 2010 05:32:03 -0500 (EST)
mathematica code=EF=BC=9A
PolarPlot[Nest[Sin, \[Theta], 1000], {\[Theta], 0, 2 Pi}]
you will get a curve like a perfect bread! This is my chance
discovery.
And a bbs friend x8086 had given its 3d version:
f[\[Theta]_] := Nest[Sin, \[Theta], 1000]
ParametricPlot3D[{{f[\[Theta]] Cos[\[Theta]] Cos[\[Phi]],
f[\[Theta]] Cos[\[Theta]] Sin[\[Phi]],
f[\[Theta]] Sin[\[Theta]]}}, {\[Theta], 0, \[Pi]}, {\[Phi], 0,
2 \[Pi]}]
http://www.newsmth.net/bbstcon.php?board=Mathematics&gid=80561