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