Sorting coefficients
- To: mathgroup at smc.vnet.net
- Subject: [mg124021] Sorting coefficients
- From: Chris Young <cy56 at comcast.net>
- Date: Fri, 6 Jan 2012 04:14:17 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
I'm trying to get my points sorted first by rows first. But I'm having trouble figuring out how to do the kind of double sorting I need with Sort. SortBy seems very hard to figure out and I'm not sure if it's what I need here. I've just got a hexagonal layout of point coordinates, with another one on the origin, and I'm trying to sort everything from lower left to upper right. I.e., the usual ordering of going through the bottom row from left to right, then through the middle row from left to right, etc. Any help appreciated. Chris Young cy56 at comcast.net In[1043]:= Prepend[ Table[{Re, Im}[ E^(k (2 \[Pi])/6 I)] // Through, {k, 0, 5}], {0, 0}] Out[1043]= {{0, 0}, {1, 0}, {1/2, Sqrt[3]/2}, {-(1/2), Sqrt[3]/ 2}, {-1, 0}, {-(1/2), -(Sqrt[3]/2)}, {1/2, -(Sqrt[3]/2)}} In[1046]:= Sort[%1043, #1[[2]] < #2[[2]] &] Out[1046]= {{1/2, -(Sqrt[3]/2)}, {-(1/2), -(Sqrt[3]/2)}, {-1, 0}, {1, 0}, {0, 0}, {-(1/2), Sqrt[3]/2}, {1/2, Sqrt[3]/2}} In[1073]:= Sort[%1046, #1[[2]] < #2[[2]] &] Out[1073]= {{-(1/2), -(Sqrt[3]/2)}, {1/2, -(Sqrt[3]/2)}, {0, 0}, {1, 0}, {-1, 0}, {1/2, Sqrt[3]/2}, {-(1/2), Sqrt[3]/2}}
- Follow-Ups:
- Re: Sorting coefficients
- From: Andrzej Kozlowski <akoz@mimuw.edu.pl>
- Re: Sorting coefficients
- From: Bob Hanlon <hanlonr357@gmail.com>
- Re: Sorting coefficients