Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: Getting started with 3D cardioid

  • To: mathgroup at smc.vnet.net
  • Subject: [mg112036] Re: Getting started with 3D cardioid
  • From: David Thomson <aetherwizard at gmail.com>
  • Date: Thu, 26 Aug 2010 06:47:47 -0400 (EDT)
  • References: <i50622$gbk$1@smc.vnet.net>

On Aug 24, 5:14 am, Alexei Boulbitch <alexei.boulbi... at iee.lu> wrote:
> Hi, Dave,
> try this:
>
> SphericalPlot3D[
>  Cos[\[Theta]/2]^2, {\[Theta], 0, \[Pi]}, {\[CurlyPhi], 0, 2 \[Pi]},
>  ViewPoint -> {1, 0, -2}]
>
> Have fun, Alexei

Thanks Alexei,

The equation produces the geometry I am looking for.  How would I
adjust the proportions such that the mean radius equals 1 instead of .
68?

Also, I tried to use this function with a different equation:

SphericalPlot3D[\[Theta]^-1 Sin[\[Theta] + 1], {\[Theta], 0,
  2 \[Pi]}, {\[CurlyPhi], 0, 2 \[Pi]}, ViewPoint -> {1, 0, -2}]

but it did not produce the geometry I was looking for.  I was hoping
to produce a horn shape (a 3D pulse).

Dave


  • Prev by Date: Re: How to copy-paste Mathematica code into a message
  • Next by Date: NotebookAutoSave?
  • Previous by thread: Re: Getting started with 3D cardioid
  • Next by thread: Re: Getting started with 3D cardioid