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: [mg25418] Re: Nice graphs with Mathematica
  • From: Laurent CHUSSEAU <chusseau at univ-montp2.fr>
  • Date: Fri, 29 Sep 2000 01:07:18 -0400 (EDT)
  • References: <8qlogo$q7r@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

dans l'article 8qlogo$q7r at smc.vnet.net, an_mo at yahoo.com à an_mo at yahoo.com a
écrit le 24/09/2000 22:34 :

> 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",%]
> 
That's OK but you must convert the .dvi file in postscript before viewing
and printing. That way will give the best result.

Afterthat you can also convert to pdf for web publication, result will
always be very nice.

I often used this procedure, Mathematica is then a powerfull grapher for
LaTeX !  

In fact .dvi files only include a preview of your eps illustrations that is
only useful for page layout.

-- 
"We all know what light is, but it is not easy to tell what it is"
S. Johnson cited by R. Loudon in "The Quantum Theory of Light"
         <Laurent Chusseau> chusseau at univ-montp2.fr



  • Prev by Date: LegendreP & Gauss quad bug
  • Next by Date: Re: Nice graphs with Mathematica
  • Previous by thread: Re: Nice graphs with Mathematica
  • Next by thread: Re: Nice graphs with Mathematica