Re: Nice graphs with Mathematica

*To*: mathgroup at smc.vnet.net*Subject*: [mg25403] Re: Nice graphs with Mathematica*From*: adam_smith at my-deja.com*Date*: Fri, 29 Sep 2000 01:06:45 -0400 (EDT)*References*: <8qlogo$q7r@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

You might want to try using the TextStyle-> directives. It saves a lot of typing for each label and gives the same font to the ticks. I have included an example below. Note that there can be problems with the Mathematica fonts not coming out looking correct in a different program. P.J. Hinton has responded several times with a solution. Adam Smith dd = Plot[{g3[h, 0], ig6[h], Re[ g4[h, 0]], g1[h, 0], 1}, {h, 0, 1}, PlotRange -> {0, 1}, AspectRatio -> 1, GridLines -> {{1}, {}}, PlotPoints -> 100, AxesLabel -> {StyleForm[\[Pi]^h], StyleForm[\[Pi]^f]}, TextStyle -> {FontFamily->"Helvetica",FontWeight - > "Bold", FontSize -> 14}] In article <8qlogo$q7r at smc.vnet.net>, an_mo at yahoo.com wrote: > I hope this is not a FAQ, but I tried everything and I can't print nice > pictures with mathematica. My code is below. Basically, fonts look > ugly, curves are not "curvy" (you can see the "ladder" without looking > too close at the pictures). I have tried every possible graphic format > to no avail. Yet, pictures in the mathematica book look wonderful, so > there must be some way. > > I am using mathematica 4 on a pc. I then import the picture in a latex > document. The graph looks almost ok in the mathematica window, but > awful in the dvi preview after latex compile. When printed, it looks > exactly like from the dvi preview. > Here is an example of one of my pics in case you wonder: > > g1[ph_, pf_] := If[ph < 0.5, ph*(3 - 2ph)/(1 + 2ph), ph] > g3[ph_, pf_] := 4ph/(1 + 3ph) > g4[ph_, pf_] := 1/2*(3/2 - ph) - Sqrt[1/4*(3/2 - ph)^2 - ph/2] > g6[ph_, pf_] := pf*(3 - 2pf)/(1 + 2pf) > g8[ph_, pf_] := 4pf/(1 + 3pf) > g9[ph_, pf_] := 1/2*((3/2 - pf)) - Sqrt[1/4*(3/2 - pf)^2 - ph/2] > ig6[ph_] := -ph/(-4+3ph) > ig7[ph_] := If[h >= 0.5, h, g3[h]] > dd = Plot[{g3[h, 0], ig6[h], g4[h, 0], g1[h, 0], 1}, {h, 0, 1}, > PlotRange -> {0, 1}, AspectRatio -> 1, GridLines -> {{1}, {}}, > PlotPoints -> 100, > AxesLabel -> {StyleForm[\[Pi]^h, FontSize -> 14], > StyleForm[\[Pi]^f, FontSize -> 14]}] > Export["conditions2.eps",%] > > Sent via Deja.com http://www.deja.com/ > Before you buy. > > Sent via Deja.com http://www.deja.com/ Before you buy.