MathGroup Archive 2006

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

Search the Archive

Re: Fit rectangle to set of points


Hi,

points = Table[{Random[], Random[]}, {16}];

box = Transpose[{Min[#], Max[#]} & /@ 
Transpose[points]];

Show[Graphics[
{RGBColor[0, 0, 1],
  Rectangle @@ box, {AbsolutePointSize[4], 
RGBColor[1, 1, 0],
  Point /@ points}}, PlotRange -> All, 
Background -> RGBColor[1, 0, 0]]]

or should the rectangle rotated ??

Regards

  Jens

<buttgereit at biomediclab.de> schrieb im Newsbeitrag 
news:edom0n$hu2$1 at smc.vnet.net...
| Dear Group,
|
| I have a set of 2D points given for which I 
would like to find the
| smallest rectangle circumscribing all the 
points.
|
| Doing this with a circle instead of a rectangle 
was easy --- for the
| rectangle I don't see the trick.
|
| Any hints?
|
| TIA + Best Regards,
|
| Peter
| 



  • Prev by Date: Re: GridLines on top of Raster or RasterArray?
  • Next by Date: Re: Fit rectangle to set of points
  • Previous by thread: Re: Fit rectangle to set of points
  • Next by thread: Re: Fit rectangle to set of points