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