Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Next by Date: Uninstalling/Reinstalling Mathematica 7?
  • Next by thread: Uninstalling/Reinstalling Mathematica 7?