MathGroup Archive 2002

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

Search the Archive

More accuracy in Disk

  • To: mathgroup at smc.vnet.net
  • Subject: [mg33796] More accuracy in Disk
  • From: Lorenzo Pesce <fish at chem.northwestern.edu>
  • Date: Tue, 16 Apr 2002 03:51:26 -0400 (EDT)
  • Organization: Northwestern University, Evanston, IL, US
  • Sender: owner-wri-mathgroup at wolfram.com

Hi to all,
I am  trying to plot a series of disks but  I do not manage to make
mathematica plot my disks with higher accuracy (some of the small ones
look really bad).
How can I alter the number of points in a graphic of this sort to have
more precise disks?

TableDisk =
    Table[Disk[{Random[Real, {-200, 200}], Random[Real, {-200, 200}]},
        RandomNormal[10, 1]], {n, 40}];

  Show[
  Graphics[ TableDisk],
  Frame -> True,
  AspectRatio -> 1,
  PlotRange -> {{-200, +200}, {-200, +200}},
  PlotRegion -> {{0, 1}, {0, 1}},
  ImageSize -> {500, 500}
  ]

Thanks a lot,

 Lorenzo



  • Prev by Date: Driving me nuts
  • Next by Date: Biokmod Mathematica toolbox
  • Previous by thread: Re: Driving me nuts
  • Next by thread: RE: More accuracy in Disk