[Date Index]
[Thread Index]
[Author Index]
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**
| |