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: [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.


  • Prev by Date: Re: Linux/Unix add-ons
  • Next by Date: Importing graphics, is this really supported?
  • Previous by thread: Re: Nice graphs with Mathematica
  • Next by thread: Re: Nice graphs with Mathematica