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.
>
>

```

• Prev by Date: Re: ï
• Next by Date: Re: Re: Re: Which editor do you use for math articles
• Previous by thread: production quality 2-D graphs with mathematica
• Next by thread: Re: production quality 2-D graphs with mathematica