Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2000

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

Search the Archive

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.


  • Prev by Date: Re: Nice graphs with Mathematica
  • Next by Date: Re: Another strange bug in Mathematica 4.0's Integrate
  • Previous by thread: Re: Nice graphs with Mathematica
  • Next by thread: on element extraction