MathGroup Archive 2002

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

Search the Archive

More accuracy in Disk


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