MathGroup Archive 2008

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

Search the Archive

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


  • Prev by Date: Re: Mathematica 7 is now available
  • Next by Date: SQLExecute Update to MS-ACCESS text field
  • Previous by thread: Re: Re: A 3D Plot Query
  • Next by thread: Plotting a large dataset