Re: i get an empty figure when exporting it, if I keep Epilogue->{.....}
- To: mathgroup at smc.vnet.net
- Subject: [mg112099] Re: i get an empty figure when exporting it, if I keep Epilogue->{.....}
- From: Uayeb <uayebswinburne at gmail.com>
- Date: Mon, 30 Aug 2010 06:20:32 -0400 (EDT)
- References: <i52pqo$n6k$1@smc.vnet.net>
Mirela, I have had similar difficulties in the past. In my case, I usually get a PDF which I can open and see with Mac OS X's Preview.app, but which produces a blank page when printed. I have promised to send John Fultz at Wolfram (cc'd here) a note when I encountered the next example. However, testing your example, it seems to work fine for me. I'm curious, exactly how are you "saving the result"? Are you right clicking on the graphic in the front end, or are you using an Export["fig.pdf",fig] command? (Or, what most often causes me greif, copying the graphic and pasting it into a PDF app such as Preview.app?) Also what version are you using? (Execute "$Version", my output is below) I'm now beginning to wonder if the issue I had was some combination of 7.0 vs 7.0.1 and Mac OS X 10.5 vs 10.6, since I have been unable to reproduce it recently. >> $Version "7.0 for Mac OS X x86 (64-bit) (February 19, 2009)" John might be interested to have a look at the PDF file generated by your example. Cheers, Andy Green PhD in Astronomy Swinburne University On Aug 25, 8:04 pm, mircea <mircea.da... at gmail.com> wrote: > Hello, > > I have Mathematica 7.0 and I'm trying to save the following figure > (as .eps or .pdf preferably): > > ScientificTicks[ > ListPlot[{result, resultmodif}, PlotRange -> Full, > AxesOrigin -> {0, 0}, Joined -> True, PlotStyle -> {Black, Red}, > AspectRatio -> 2, > Epilog -> {Inset[ > Labeled[Framed[ > ScientificTicks[ > ListPlot[{result, resultmodif}, > PlotRange -> {{4.54, 4.6}, {-4480, -4250}}, Joined -> = True, > PlotStyle -> {Black, Red}, ImageSize -> 110, > Ticks -> {{4.56, 4.58}, {-4400, -4300}}], False, True]= ], > "Zoom In", Top], {8, -35000}], > Text[Style["h[\[Mu]m]", 14], {10, -6000}], > Text[Style[ > "Im[\!\(\*SuperscriptBox[\"\[Omega]\", \ > \"*\"]\)][\!\(\*SuperscriptBox[\"s\", > RowBox[{\"-\", \"1\"}]]\)]", 14], {2.5, -70000}]} > ], False, True] > > where ScientificTicks is just a function to maipulate the ticks and > their Format on the axes: > > ScientificTicks[plot_Graphics, xSci_: False, ySci_: True] := > Module[{t}, > Show[plot, > Ticks -> {(t = Ticks /. AbsoluteOptions[plot, Ticks])[[1]] /. > If[xSci, {x_, xlab_?NumericQ, r__} -> {x, > ScientificForm[x, NumberFormat -> (Row[{#1, "e", #3}]= &)], > r}, {}], > t[[2]] /. > If[ySci, {y_, ylab_?NumericQ, r__} -> {y, > ScientificForm[y, NumberFormat -> (Row[{#1, "e", #3}]= &)], > r}, {}]}]]; > > and 'result' and 'resultmodif' are two lists with points in the range > {{0,12},{-80000,2500}}. The figure look great when i run these two > routines, but if I try to save it the result isempty. If I remove the > Epilogue, everything works fine, but I want to have this picture-in- > picture format... > > Could anyone give me an idea how to solve my problem? > Thank you very much! > > Kind regards, > Mirela