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

MathGroup Archive 2008

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

Search the Archive

Archimedes' Spiral

  • To: mathgroup at smc.vnet.net
  • Subject: [mg85616] Archimedes' Spiral
  • From: "Lea Rebanks" <lrebanks at netvigator.com>
  • Date: Fri, 15 Feb 2008 06:49:52 -0500 (EST)

Hi All,

I am trying to plot the  Archimedes' Spiral.

I copied this code from a web site. But it didn't work. Any ideas.

ParaPlot[ArchimedeanSpiral[1][t], 
     {t, 0, 10*2*Pi}, PlotDot -> 
       False, AspectRatio -> Automatic, 
     PlotLabel -> 
       "Archimedes' spiral, r == theta"\
    , Ticks -> {Range[0, 60, 20], 
         Range[0, 60, 20]}, 
     Background -> GrayLevel[0]]; 
Do[ParaPlot[Evaluate[
       ArchimedeanSpiral[i][t]], 
     {t, 0.0001, 5*2*Pi}, 
     PlotDot -> False, PlotPoints -> 
       30, AspectRatio -> Automatic, 
     PlotRange -> {{-1, 1}, {-1, 1}}*
         (5*2*Pi)^i*1.1, PlotLabel -> 
       StringForm["r == theta^``", 
         PaddedForm[N[i], {4, 2}]], 
     Ticks -> {{N[Floor[(4*2*Pi)^i]]}, 
         {N[Floor[(4*2*Pi)^i]]}}, 
     Background -> GrayLevel[0]], 
   {i, 0, 2, 2/20}]




Many thanks for your help & attention.
Best Regards - Lea Rebanks...



  • Prev by Date: Re: LogLogPlot with WorkingPrecision bug
  • Next by Date: Problem with Integration/HoldPattern (?)
  • Previous by thread: RE: Behavior of Manipulate
  • Next by thread: Re: Archimedes' Spiral