- #1
n00dle0
- 5
- 0
Hi!
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?
Thanks in advance,
- N
I am plotting the following in Mathematica 7.
Code:
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}}]
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?
Thanks in advance,
- N