Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*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 2005

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

Search the Archive

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



  • Prev by Date: Re: Importing tab-delimited data files?
  • Next by Date: Re: Re: Re: Package development
  • Previous by thread: Re: Importing tab-delimited data files?
  • Next by thread: Re: Re: Re: Package development