Hi!(adsbygoogle = window.adsbygoogle || []).push({});

I am plotting the following in Mathematica 7.

I need the plot to look such that the color on the cut out surface of the sphere should be a gradient in a radial fashion. Assume that there is a point heat source at the center of the sphere and colors represent the temperature profile within the sphere. Any ideas?Code (Text):

RegionPlot3D[(x^2 + y^2 + z^2 <= 1) && (x < 0 || y > 0 ||

z < 0), {x, -1, 1}, {y, -1, 1}, {z, -1, 1},

ColorFunction ->

Function[{x, y, z}, ColorData["TemperatureMap"][x^2 + y^2 + z^2]],

PlotPoints -> 50, Mesh -> False,

Lighting -> {{"Directional",

RGBColor[1, 1, 1], {{-1, 1, -1}, {0, 0, 0}}}},

AxesLabel -> {X, Y, Z}, {ViewPoint -> {2, -0.5, 0.5}}]

Thanks in advance,

- N

**Physics Forums | Science Articles, Homework Help, Discussion**

Join Physics Forums Today!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# Mathematica plotting

**Physics Forums | Science Articles, Homework Help, Discussion**