Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: use a function within a new function
  • Next by Date: Re: Modify a list of pure functions
  • Previous by thread: Re: use a function within a new function
  • Next by thread: Re: Modify a list of pure functions