Re: Split
- To: mathgroup at smc.vnet.net
- Subject: [mg17480] Re: [mg17450] Split
- From: Jean-Marie THOMAS <jmthomas at agat.net>
- Date: Mon, 10 May 1999 01:44:23 -0400
- Organization: TeA
- References: <199905090843.EAA13410@smc.vnet.net.>
- Sender: owner-wri-mathgroup at wolfram.com
Try this :
noise:=Random[Real,{-1/10,1/10}]
polygonList=Table[{"point information",noise+Random[Integer,{1,15}]},{1000}];
s=Sort[polygonList,#1[[2]]<#2[[2]]&];
Split[s,TrueQ[(Abs[#1[[2]]-#2[[2]]]<1/2)]&]
Hope this helps,
*************************
Jean-Marie THOMAS
mailto:jmthomas at agat.net
http://www.agat.net
*************************
On Sun, 09 May 1999, Russell Towle wrote:
>I have a list of 3D polygons with known surface areas, say, 1000 polygons
>and 15 different areas. I wish to divide the list up into sets of equal
>surface area, and it seems that Split ought to be able to do this.
>
>How can Split be used to split the list of polygons by area? How does one
>tell Split to admit a polygon into a sublist if its area is within, say,
>.001 of another area?
>
>Thanks much for your consideration of this question!
>
>Russell Towle
>P.O. Box 141
>Dutch Flat, California 95714
>------------------------------
>Voice: (530) 389-2872
>e-mail: rustybel at foothill.net
>------------------------------
--
- References:
- Split
- From: Russell Towle <rustybel@foothill.net>
- Split