MathGroup Archive 2010

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

Search the Archive

bread curve

  • To: mathgroup at
  • Subject: [mg106075] bread curve
  • From: a boy <a.dozy.boy at>
  • 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
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]}]

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