Re: Re: A 3D Plot Query
- To: mathgroup at smc.vnet.net
- Subject: [mg94417] Re: [mg94353] Re: A 3D Plot Query
- From: Curtis Osterhoudt <cfo at lanl.gov>
- Date: Fri, 12 Dec 2008 06:56:13 -0500 (EST)
- Organization: LANL
- References: <31362096.1228736527369.JavaMail.root@m02> <200812111223.38038.cfo@lanl.gov> <000001c95bcd$8a0fbbc0$9e2f3340$@net>
- Reply-to: cfo at lanl.gov
Hi, David, Indeed, the vector fonts look just fine on this system. Thanks for the quick response! Curtis On Thursday 11 December 2008 13:17:49 David Park wrote: > Hello Curtis, > > It's probably not so much a font problem as a platform or version problem. Essentially I export the characters to PDF and then re-import them to obtain the polygons. But the returned form seems to vary between systems and versions and thus gives me problems that I can't seem to completely control. (I'm working on Windows Vista.) > > But all is not lost. We can always fall back on the vector fonts. > > Needs["Presentations`Master`"] > > With[ > {a = 1}, > Draw3DItems[ > {Opacity[.5, Brown], > ParametricDraw3D[{r Cos[\[Theta]], r Sin[\[Theta]], > 2 - r^2}, {\[Theta], 0, \[Pi]/2}, {r, 0, a}, > PlotPoints -> {30, 10}, > Mesh -> None, > MaxRecursion -> 3], > Opacity[1, Black], > AbsoluteThickness[2], > DrawArrow3DAxes[{0, 0, 1}, 1, .1], > VerticalVectorText3D["x", {1.2 a, 0, 2 - a^2}, 0, {.1, .1}], > VerticalVectorText3D["y", {0, 1.2 a, 2 - a^2}, > 90 \[Degree], {.1, .1}], > VerticalVectorText3D["z", {0, 0, 2.1}, 90 \[Degree], {.1, .1}], > VerticalVectorText3D["a", {0, a/2, 2 - .9 a^2}, > 90 \[Degree], {.1, .1}]}, > NeutralLighting[.0, .5, .1], > NiceRotation, > PlotRange -> {{-.2 a, 1.4 a}, {-.2 a, 1.4 a}, All}, > ViewPoint -> {5, 5, 3}, > BoxRatios -> Automatic, > Boxed -> False, > PlotLabel -> Style[z == 2 - Sqrt[x^2 + y^2], 16]] > ] > > I hope that should work for you. > > > David Park > djmpark at comcast.net > http://home.comcast.net/~djmpark/ > > > From: Curtis Osterhoudt [mailto:cfo at lanl.gov] > > > Dear Mr. Park, > > Very pretty! However, it appears something is messed up with my fonts. I've never seen this problem before. Do you happen to have any hints? I understand, certainly, that this is most likely more of a desktop environment problem than a problem with your Presentations package, though this is the first time I've seen a fonts problem in this system. > > Best wishes, > Curtis Osterhoudt > > P.S.: > > In[8]:= $Version > > Out[8]= "7.0 for Linux x86 (32-bit) (November 11, 2008)" > > > > On Thursday 11 December 2008 01:43:07 David Park wrote: > > Needs["Presentations`Master`"] > > > > With[ > > {a = 1}, > > Draw3DItems[ > > {Opacity[.5, Brown], > > ParametricDraw3D[{r Cos[\[Theta]], r Sin[\[Theta]], > > 2 - r^2}, {\[Theta], 0, \[Pi]/2}, {r, 0, a}, > > PlotPoints -> {30, 10}, > > Mesh -> None, > > MaxRecursion -> 3], > > Opacity[1, Black], > > DrawArrow3DAxes[{0, 0, 1}, 1, .1], > > VerticalText3D["x", {1.2 a, 0, 2 - a^2}, 0, {.1, .1}], > > VerticalText3D["y", {0, 1.2 a, 2 - a^2}, 90 \[Degree], {.1, .1}], > > VerticalText3D["z", {0, 0, 2.1}, 90 \[Degree], {.1, .1}], > > VerticalText3D["a", {0, a/2, 2 - .9 a^2}, 90 \[Degree], {.1, .1}]}, > > NeutralLighting[.0, .5, .1], > > NiceRotation, > > PlotRange -> {{-.2 a, 1.4 a}, {-.2 a, 1.4 a}, All}, > > ViewPoint -> {5, 5, 3}, > > BoxRatios -> Automatic, > > Boxed -> False, > > PlotLabel -> Style[z == 2 - Sqrt[x^2 + y^2], 16]] ] > > > > > > David Park > > djmpark at comcast.net > > http://home.comcast.net/~djmpark/ > > > > > > > > > > From: Murray Eisenberg [mailto:murray at math.umass.edu] > > > > > > Another "for engineers and scientists" version of a graph -- and not > > what the poster requested. As I understand the query, what is desired > > is the positive semi-axes shown emanating from the origin, with z up, > > x forward, and y to the right (roughly). No frame. > > > > David Park wrote: > > > Sid, > > > > > > Not silly at all. > > > > > > Use cylindrical coordinates and ParametricPlot3D to get a surface > > > with a circular base. > > > > > > Use the ViewPoint option to get the x and y axes in the position you want. > > > > > > With[{a = 5}, > > > ParametricPlot3D[{r Cos[\[Theta]], r Sin[\[Theta]], > > > 2 - r^2}, {\[Theta], 0, 2 \[Pi]}, {r, 0, a}, > > > PlotPoints -> {30, 10}, > > > MaxRecursion -> 3, > > > AxesLabel -> {"x", "y", "z"}, > > > ViewPoint -> {5, 5, 3}, > > > BoxRatios -> {1, 1, 1}] > > > ] > > > > > > > > > David Park > > > djmpark at comcast.net > > > http://home.comcast.net/~djmpark/ > > > > > > > > > From: pcoords29 at gmail.com [mailto:pcoords29 at gmail.com] > > > > > > > > > Hi, > > > > > > This may sound silly, but I can't get it to work. (I'm using v 6.0) > > > > > > How do I get my 3D plots look as given in textbooks, ie. with the y- > > > axis pointing to the right, the z-axis up and x-axis pointing out of > > > the paper/screen ( showing the first octant)? I mean the kind of > > > plots one draws on paper when working out surface integrals in > > > Calculus classes. > > > > > > If this is of any help, I'd like to get the plot of the paraboloid > > > > > > z = 2-(x^2+y^2), as given in Fig. 10-10 of Spiegel's Advanced > > > Calculus, Schaum Series. > > > > > > I tried > > > > > > Plot3D[2 - (x^2 + y^2), {x, -a, a}, {y, -a, a}], > > > > > > with various values of a. Unfortunately, none of them look like the > > > traditional cap-shaped paraboloid. > > > > > > Thanks for any help. > > > > > > Sid. > > > > > > > > > > > > > > > > > > > > > > > > -- > ========================================================== > Curtis Osterhoudt > cfo at remove_this.lanl.and_this.gov > PGP Key ID: 0x4DCA2A10 > Please avoid sending me Word or PowerPoint attachments See http://www.gnu.org/philosophy/no-word-attachments.html > ========================================================== > > -- ========================================================== Curtis Osterhoudt cfo at remove_this.lanl.and_this.gov PGP Key ID: 0x4DCA2A10 Please avoid sending me Word or PowerPoint attachments See http://www.gnu.org/philosophy/no-word-attachments.html ==========================================================