Re: Selecting Many Things Rather Than Selecting One Thing From Many

• To: mathgroup at smc.vnet.net
• Subject: [mg66210] Re: Selecting Many Things Rather Than Selecting One Thing From Many
• From: "Chris Chiasson" <chris.chiasson at gmail.com>
• Date: Thu, 4 May 2006 05:20:39 -0400 (EDT)
• References: <e39k7e\$cno\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Select and Cases are very similar. I would recommend Cases for this.
The code below gives results in a form similar to the one MathGroup
showed you last time.

In[1]:=
dim=12;

In[2]:=
maxint=200;

In[7]:=
theMatrix=Table[Random[Integer,maxint],{dim},{dim}];

In[4]:=
K=Extract[theMatrix,
Table[{Random[Integer,{1,dim}],Random[Integer,{1,dim}]},{4}]]

Out[4]=
{46,54,171,17}

In[5]:=
Select[#1,#>maxint/2&]&/@Transpose[theMatrix]

Out[5]=
{{136,195,121,169,178,118,122},{195,190,106,149,171},{128,132,
135,168,195},{175,153,116,134,110,

122,193,174,173,166},{181,173,129,136},{192,135,150,141,136,191,130,101,
119},{105,161,152,102,195,188,174,102},{102,171,154,117,
155,114,132},{109,152,129,168,189,197,133,162},{122,123,145,128,

158,150},{107,190,106,121,169,123,177,194},{177,115,106,119,123,120,132}}

In[6]:=
Cases[#1,Alternatives@@K]&/@Transpose[theMatrix]

Out[6]=
{{},{46,54,171},{},{17},{},{46},{},{171},{},{46},{},{}}

```

• Prev by Date: Re: Selecting Many Things Rather Than Selecting One Thing From Many
• Next by Date: Re: Selecting Many Things Rather Than Selecting One Thing From Many
• Previous by thread: Re: Selecting Many Things Rather Than Selecting One Thing From Many
• Next by thread: Re: Selecting Many Things Rather Than Selecting One Thing From Many