Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Bug in Spherical Plot 3D, Mathematica version 7

• To: mathgroup at smc.vnet.net
• Subject: [mg126811] Re: Bug in Spherical Plot 3D, Mathematica version 7
• From: Christoph Lhotka <christoph.lhotka at fundp.ac.be>
• Date: Sat, 9 Jun 2012 03:05:58 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201206080739.DAA13825@smc.vnet.net>

Hi,

I do not know, if this is what you want:

SphericalPlot3D[
  UnitStep[{Sin[\[Theta]] Cos[\[Phi]], Sin[\[Phi]] Sin[\[Theta]],
     Cos[\[Theta]]}.{Cos[2 Pi/5], Sin[2 Pi/5], 0}], \[Theta], \[Phi]]

I just looked on the documentation of the function.
I rarely use those functions.

Christoph

On 06/08/2012 09:39 AM, snowyphile wrote:
> The following should yield a hemisphere:  - 2 Pi/5 \le \[Phi] \le 3 Pi/
> 5.
>
> SphericalPlot3D[UnitStep[{Sin[\[Phi]] Sin[\[Theta]], Cos[\[Phi]] Sin[\
> [Theta]],
>      Cos[\[Theta]]}.{Cos[2 Pi/5], Sin[2 Pi/5], 0}],
>   {\[Phi], 0, 2 Pi}, {\[Theta], 0, Pi}]
>
> What I get, on my Mac, OS 10.7.4, looks like a helmet.  I could send
> you a copy of the plot by e-mail.
>
> I have low expectations for Mathematica, but they just bottomed out.
>

• References:
  • Bug in Spherical Plot 3D, Mathematica version 7
    • From: snowyphile <dtorney@valornet.com>