Re: combinations of n objects 2 at a time
- To: mathgroup at smc.vnet.net
- Subject: [mg15215] Re: [mg15188] combinations of n objects 2 at a time
- From: Des Penny <penny at suu.edu>
- Date: Tue, 22 Dec 1998 04:01:45 -0500
- Organization: Southern Utah University
- References: <199812180711.CAA03934@smc.vnet.net.>
- Sender: owner-wri-mathgroup at wolfram.com
Dear Albert:
The following can easily be developed as a function that handles n
objects taken k at a time. Here is the code for n objects, taken 2 at
a time:
In[1]:=
n=6;
t=Range[n];
t1=Flatten[Outer[List,t,t],1];
t2=Map[Sort,t1];
t3=Union[t2];
t4=Cases[t3,{x_,y_}/;(x=!=y)]
Out[1]=
{{1,2},{1,3},{1,4},{1,5},{1,6},{2,3},{2,4},{2,5},{2,6},{3,4},{3,5},{3,6},{4,
5},{4,6},{5,6}}
In[2]:=
Length[t4]
Out[2]=
15
By the way, you have an error in your Diag[] function in your other
posting:
Diag[matrix_List]:=
Table[If[i==j,matrix\[LeftDoubleBracket]i,j\[RightDoubleBracket],0],{i,
Length[matrix]},{j,Length[matrix]}]
Cheers,
Des Penny
Physical Science Dept
Southern Utah University
Cedar City, Utah 84720
Voice: (435) 586-7708
FAX: (435) 865-8051
Email: penny at suu.edu
Albert Maydeu-Olivares wrote:
> Hello,
>
> In order to generate all combinations of n objects 2 at a time I load
> the `DiscreteMath` add-on.
>
> <<DiscreteMath`Combinatorica`
>
> l[n_]:=rt[Ksubsets[Reverse[Table[i,{i,n}]],2]]
>
> So that with n=objects I get
>
> l[6]
>
> {{2,1},{3,1},...,{6,4},{6,5}}
>
> Any suggestions on how to do this without loading the add-on?
>
> --
>
> Albert Maydeu-Olivares Tel. +34 3 4021079 ext. 3099 Faculty of
> Psychology Fax. +34 3 4021362 University of Barcelona E-Mail:
> amaydeu at tinet.fut.es Passeig de la Vall d'Hebron, 171.
> 08035 - Barcelona (Spain)
- References:
- combinations of n objects 2 at a time
- From: "Albert Maydeu-Olivares" <amaydeu@nil.fut.es>
- combinations of n objects 2 at a time