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 - The Fusion of Science and Community**

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

# Mathematica plotting

Loading...

Similar Threads - Mathematica plotting | Date |
---|---|

Mathematica Cannot Plot This Function in Mathematica | Feb 26, 2018 |

Is the integral for current correct? | Jul 7, 2017 |

Mathematica Plot Real Portion (Contour Plot) | Jun 21, 2017 |

Mathematica Add a rectangle to a plot to indicate range | Jun 15, 2017 |

Mathematica Part of complex plot disappears [mathematica] | Apr 19, 2017 |

**Physics Forums - The Fusion of Science and Community**