MathGroup Archive 2012

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

Search the Archive

Re: Countur/Density plot on sphere

  • To: mathgroup at smc.vnet.net
  • Subject: [mg127459] Re: Countur/Density plot on sphere
  • From: Bob Hanlon <hanlonr357 at gmail.com>
  • Date: Thu, 26 Jul 2012 03:35:05 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: mathgroup-newout@smc.vnet.net
  • Delivered-to: mathgroup-newsend@smc.vnet.net
  • References: <20120725063355.F39326866@smc.vnet.net>

This is quite slow but if I understand what you want

f[t_?NumericQ, p_?NumericQ] :=
 NIntegrate[(t + x)/(1 + p + x), {x, 0, 1}]


SphericalPlot3D[1, {t, 0, 2 Pi}, {p, 0, Pi},
 ColorFunction ->
  Function[{x, y, z, t, p, r}, Hue[f[t, p]]],
 Mesh -> 10,
 MeshFunctions ->
  {Function[{x, y, z, t, p, r}, f[t, p]]}]


Bob Hanlon


On Wed, Jul 25, 2012 at 2:33 AM, Bla=C5=BE Kranjc <blaz.kranjc91 at gmail.com> wrote:
> Hello,
> I have a problem in which I need to evaluate a function on the the surface of the sphere. I've used ColorFunction and MeshFunctions before, but they seem to work only on analicial functions, my function is numerical integration in given point and returns a number. Is there any way to plot that kind of graph (colored sphere depending on a value) or can anybody suggest other ways to represent this.
>
> Thank you,
>
> Bla=C5=BE Kranjc
>



  • Prev by Date: how to jump from one cell to the other using the keyboard?
  • Next by Date: Re: Can anyone see a faster way to compute quantities for a pair or
  • Previous by thread: Re: Countur/Density plot on sphere
  • Next by thread: Re: Countur/Density plot on sphere