Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: Graphics saving nightmare

  • To: mathgroup at smc.vnet.net
  • Subject: [mg100430] Re: Graphics saving nightmare
  • From: dh <dh at metrohm.com>
  • Date: Wed, 3 Jun 2009 05:28:04 -0400 (EDT)
  • References: <h02vj5$87p$1@smc.vnet.net>


Hi Sebastian,

in version 7.0.1 PDF and JPEG and BMP seem to do their job. I have not 

tried any other formats.

Daniel



Sebastian Meznaric wrote:

> Try the following function:

> w[\[Alpha]_, \[Phi]_] :=

>  Exp[\[Alpha]^2 (I Sin[\[Phi]/2] Cos[\[Phi]/2] - Sin[\[Phi]/2]^2)]

> 

> Produce a 3D plot as follows:

> Plot3D[Abs[w[\[Alpha], \[Phi]]], {\[Alpha], -5, 5}, {\[Phi], -2 \[Pi],

>    2 \[Pi]}, ColorFunction -> "BrownCyanTones",

>  AxesLabel -> {\[Alpha], \[Phi], Abs[Subscript[A, w]]},

>  Ticks -> {Range[-4, 4, 2], Range[-2 \[Pi], 2 \[Pi], \[Pi]], {0, 1}}]

> 

> Exporting the image turns out to be much harder than one would think.

> Right click and Save Graphics As ... has the following effect:

> - EPS: Mesh polygons become visible, making the image useless

> - PDF: Same as above

> - PNG, JPG, etc: The image produced is gibberish of 1x52 pixels in

> size

> 

> Thankfully, the Export function can handle the JPG, PNG etc cases

> successfully. However, the polygons in PDF are extremely annoying and

> the save graphics function should definitely be fixed.

> 

> Note: The polygons can be successfully removed from contour images

> with the following package:  http://library.wolfram.com/infocenter/MathSource/7029/.

> This only works for contour plots, though...

> 




  • Prev by Date: Re: proper way of posing a non-autonomous ode in mathematica?
  • Next by Date: Re: FindRoot inside FindMinimum
  • Previous by thread: Graphics saving nightmare
  • Next by thread: slightly malfunctioning Help