Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
bread curve
2 views
Skip to first unread message
a boy
Jan 1, 2010, 5:31:48 AM1/1/10
to
mathematica code=EF=BC=9A
PolarPlot[Nest[Sin, \[Theta], 1000], {\[Theta], 0, 2 Pi}]
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
0 new messages