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];