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

MathGroup Archive 2010

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

Search the Archive

Re: i get an empty figure when exporting it, if I keep

  • To: mathgroup at smc.vnet.net
  • Subject: [mg112034] Re: i get an empty figure when exporting it, if I keep
  • From: Themis Matsoukas <tmatsoukas at me.com>
  • Date: Thu, 26 Aug 2010 06:47:23 -0400 (EDT)

I don't know how to answer to your question other than to point out that the problem is not Epilog itself but some conflict between Epilog and ScientificTicks. If you remove ScientificTicks, the graphic is saved correctly:

result = resultmodif = Table[{i, i}, {i, -80000, 80000, 2000}];
MyGraph = 
 ListPlot[{result, resultmodif}, PlotRange -> Full, 
  AxesOrigin -> {0, 0}, Joined -> True, PlotStyle -> {Black, Red}, 
  AspectRatio -> 2, 
  Epilog -> {Inset[
     Labeled[Framed[
       ListPlot[{result, resultmodif}, 
        PlotRange -> {{4.54, 4.6}, {-4480, -4250}}, Joined -> True, 
        PlotStyle -> {Black, Red}, ImageSize -> 110, 
        Ticks -> {{4.56, 4.58}, {-4400, -4300}}]], "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}]}]

SetDirectory@NotebookDirectory[]
Export["MyGraph.eps", MyGraph, "EPS"]

Themis


  • Prev by Date: Re: Selecting points from graphics
  • Next by Date: Re: Getting started with 3D cardioid
  • Previous by thread: Re: List of multiple elements
  • Next by thread: Re: i get an empty figure when exporting it, if I keep