Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: production quality 2-D graphs with mathematica

• To: mathgroup at smc.vnet.net
• Subject: [mg95608] Re: [mg95567] production quality 2-D graphs with mathematica
• From: "Scot T. Martin" <smartin at deas.harvard.edu>
• Date: Thu, 22 Jan 2009 07:04:13 -0500 (EST)
• References: <200901211150.GAA12726@smc.vnet.net>

Below is an example of a publication quality plot I've made. It looks a 
bit messy in plain text of this email but works out just fine if you copy 
and paste (separately) each of these 4 cells back into Mathematica.

r[pH_, O2_, Fe2_] :=
  7.9 10^-6 (O2 1.26 10^-3) Fe2 +
   25 3.16 10^-10 10^pH (O2 1.26 10^-3) Fe2 +
   7.9 10^6 2.51 10^-21 10^(2 pH) (O2 1.26 10^-3) Fe2

ticks[start_, stop_, division_] :=
  Table[{i, i, {0, 0.02}, {Thickness[0.005]}}, {i, start, stop,
    division}]

homogeneousiron =
  Plot[Log[10, r[pH, 0.2, Fe2]/Fe2 (24 60 60)/1], {pH, 1, 7},
   PlotStyle -> {Thickness[0.005]},
   PlotRange -> {{0.95, 7.05}, {-5.25, 2}},
   BaseStyle -> {FontFamily -> "TimesNewRoman", FontSize -> 12},
   Axes -> False, FrameLabel -> {"pH", "log \!\(\*
StyleBox[\"Rate\",\nFontSlant->\"Italic\"]\) \
(\!\(\*SuperscriptBox[\"day\",
RowBox[{\"-\", \"1\"}]]\))"}, Frame -> True,
   FrameTicks -> {ticks[1, 7, 1], ticks[-5, 1, 1], {}, {}},
   ImageSize -> 72 5, AspectRatio -> .67,
   FrameStyle -> Thickness[0.005],
   Epilog -> {Text[
      "25C\n\!\(\*SubscriptBox[\"P\", SubscriptBox[\"O\", \"2\"]]\) = \
0.2 atm\n\!\(\*
StyleBox[\"Rate\",\nFontSlant->\"Italic\"]\) = -\!\(\*FractionBox[
RowBox[{\"dlog\", \"[\",
RowBox[{\"Fe\",
RowBox[{\"(\", \"II\", \")\"}]}], \"]\"}], \"dt\"]\)", {1.25,
       1.5}, {-1, 1}]}]

SetDirectory[NotebookDirectory[]]

Export["C:\\Documents and Settings\\smartin\\Desktop\\homogeneousiron.gif", homogeneousiron,
  ImageResolution -> 300]





On Wed, 21 Jan 2009, plrusso at phys.columbia.edu wrote:

> Most books and sites on mathematica graphics tend to focus on the very
> impressive 3-D visualizations that mathematica can perform.  However, what
> are the resources for making a simple 2-D graph production/professional
> quality?
>
> Another way of saying this is,
> it seems the defaults for the lines, data points, and fonts for Plot[] (
> and related functions) are not for production quality.  Are there any
> examples of the options used for graphs which go into journals, papers,
> reports, etc?
>
> Thanks for any help.
>
>

• References:
  • production quality 2-D graphs with mathematica
    • From: plrusso@phys.columbia.edu