[Date Index]
[Thread Index]
[Author Index]
Graphics saving nightmare
*To*: mathgroup at smc.vnet.net
*Subject*: [mg100377] Graphics saving nightmare
*From*: Sebastian Meznaric <meznaric at gmail.com>
*Date*: Tue, 2 Jun 2009 06:43:51 -0400 (EDT)
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: Min function returns Min[2.05875,] instead of just**
Next by Date:
**Re: Re: String as a variable name**
Previous by thread:
**Re: Min function returns Min[2.05875,] instead of just**
Next by thread:
**Re: Graphics saving nightmare**
| |