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

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: [mg127453] Re: Countur/Density plot on sphere
  • From: Bob Hanlon <hanlonr357 at gmail.com>
  • Date: Thu, 26 Jul 2012 03:33: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>

The default is ColorFunctionScaling -> True.  Either set it to False
or rescale to taste.

f[x_] = x;

Row[SphericalPlot3D[1, {t, 0, 2 Pi}, {p, 0, Pi},
    ColorFunction ->
     Function[{x, y, z, t, p, r}, #],
    ColorFunctionScaling -> False,
    ImageSize -> 275,
    ViewPoint -> {5, -5, 0}] & /@
  {Hue[f[Abs@z]], Hue[f[z]]}]


Bob Hanlon


On Wed, Jul 25, 2012 at 6:08 PM, Bla=BE Kranjc <blaz.kranjc91 at gmail.com> wrote:
> Suprisingly this work now (I tried it 10+ times before and it didn't), I
> just have another question,
>
> SphericalPlot3D[1, {t, 0, 2 Pi}, {p, 0, Pi},
>  ColorFunction ->
>    Function[{x, y, z, t, p, r}, Hue[f[Abs@z]]] and   SphericalPlot3D[1, {t,
> 0, 2 Pi}, {p, 0, Pi},
>  ColorFunction ->
>    Function[{x, y, z, t, p, r}, Hue[f[z]]]
> returned the same plots, therefore this isn't really plotting my values??
> I don't really trust this now.
>
> I also tried calculating a lot of points on a sphere and finding a value in
> given point, than Show them all with Graphics3D giving them color based on
> value, BUT sphere loses it's depth and is full of holes now. so it doesn't
> look ok.
>
> 2012/7/25 Bob Hanlon <hanlonr357 at gmail.com>
>>
>> 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=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: Mathematica as a New Approach to Teaching Maths
  • Next by Date: Re: Using Fit to interpolate data
  • Previous by thread: Re: Countur/Density plot on sphere
  • Next by thread: Re: Countur/Density plot on sphere