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.