ShadowPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg70924] ShadowPlot3D
- From: Nick Grishin <grishin at chop.swmed.edu>
- Date: Wed, 1 Nov 2006 03:56:40 -0500 (EST)
Why do these plots look different?
How do you make them the same?
Thanks, Nick
Needs["Graphics`"];
ND = 30; cofu = RGBColor[Max[2*#1 - 1, 0], Max[1 - 2*#1, 0], 0] &;
CMat = Table[((i + j)*Exp[-((2*(i + j))/ND)])/(Abs[i - j] + 1.), {i, 1,
ND}, {j, 1, ND}];
Show[DensityGraphics[CMat], AspectRatio ->
Automatic, ImageSize -> 300, Mesh -> True, ColorFunction ->
cofu];
ShadowPlot3D[Evaluate[Interpolation[Flatten[Table[{i, j, CMat[[i, j]]}, {i, 1,
ND}, {j, 1, ND}], 1]][x, y]], {x, 1, ND}, {y,
1, ND}, ShadowPosition -> 1,
Lighting -> False, ImageSize -> 300, PlotPoints -> ND, ViewPoint -> {0,
0, 100}, Axes -> True, ColorFunction -> cofu]; Clear[ND, cofu, CMat];