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