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**

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**