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.
|
|
|