Re: Re: FW: 3D plot question

*To*: mathgroup at smc.vnet.net*Subject*: [mg62673] Re: Re: FW: 3D plot question*From*: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>*Date*: Wed, 30 Nov 2005 22:08:32 -0500 (EST)*Organization*: Uni Leipzig*References*: <dmjrjp$5vr$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Hi, any multiple of zero is also zero or do you mean gg = Plot3D[Sin[x*y], {x, 0, Pi}, {y, 0, Pi}] // Graphics3D; Show[gg /. Polygon[pnts_] :> Block[{low, high}, low = {0, 0, -0.2} + # & /@ pnts; high = {0, 0, 0.2} + # & /@ pnts; {Polygon[Reverse[low]], Polygon[high], Polygon /@ Transpose[{low, RotateLeft[low], RotateLeft[high], high}]} ] ] Regards Jens "Tun Myint Aung" <tma at nus.edu.sg> schrieb im Newsbeitrag news:dmjrjp$5vr$1 at smc.vnet.net... | Hi, | | Sorry, my question is not clear. I want to plot the surface with user defined thickness. I mean I want to see thicker surface than default thickness. | | With Regards, | | Tun Myint Aung | | -----Original Message----- | From: Peter Pein [mailto:petsie at dordos.net] To: mathgroup at smc.vnet.net | Sent: Tue 11/29/2005 7:43 PM | Cc: | Subject: [mg62673] Re: FW: 3D plot question | | | | Tun Myint Aung schrieb: | > Dear MathGroup, | > | > I have found the solution. Use PlotRange->All. Another question is | > that how I can plot to see the thickness of the surface? | > | > With Regards, | > | > Tun Myint Aung | > | > _____ | > | > From: Tun Myint Aung To: mathgroup at smc.vnet.net | > Subject: [mg62673] 3D plot question | > | > | > Dear Mathgroup, | > | > When I plot a 3D plot in mathematica, I found that some part of the | > surface has been cut off in the graph. For example, | > | > z = x^5*y | > | > Plot3D[z, {x, -1, 1}, {y, -1, 1}, PlotPoints -> 40, | > | > Mesh -> False, BoxRatios -> {1, 1, 0.4}] | > | > Mathematica plot for z values only in the range -0.2 to 0.2. Actually | > when x=1, y=1, z value will be 1. But in the graph, the surface goes | > flat for z>0.2.Why? How can I get the graph for full range of z? | > | > | > | > Best Regards, | > | > Tun Myint Aung | > Graduate Student | > National University of Singapore | > E1A #02-18 | > Kent Ridge, 119260, Singapore | > E-mail g0202015 at nus.edu.sg <mailto:g0202015 at nus.edu.sg> | > | > | | The thickness of the surface is 0. Or do you want to look from the side? | | Plot3D[x^5 y, {x, -1, 1}, {y, -1, 1}, PlotRange -> All, | ViewPoint -> {0, -3, 0}, PlotPoints -> 40, Mesh -> False, | AxesLabel -> {x, y, TraditionalForm[x^5 y]}, ImageSize -> 400, | BoxRatios -> {1, 1, 1}]; | | Peter | | P.S.: I did not read your 2nd message before answering the first one. | | |