Re: Nice graphs with Mathematica

*To*: mathgroup at smc.vnet.net*Subject*: [mg25395] Re: Nice graphs with Mathematica*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Fri, 29 Sep 2000 01:06:29 -0400 (EDT)*Organization*: Universitaet Leipzig*References*: <8qlogo$q7r@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Hi, a) what TeX implementation ? Y&Y, MikTeX, PCTeX, VTeX, fpTeX ... b) Do you print with ghostscript ? TeX -> DVIPS ->Ghostscript or with the dvi viewer ? If you use the dvi-viewer it is no wonder that the printout gets wrong. Regards Jens 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.