Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1999
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1999

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

Search the Archive

Re: Binary System Problem

  • To: mathgroup at smc.vnet.net
  • Subject: [mg18689] Re: Binary System Problem
  • From: "Ugo Marchesini" <vi13818 at iperbole.bologna.it>
  • Date: Thu, 15 Jul 1999 01:46:05 -0400
  • Organization: NETTuno
  • References: <7mek54$9it@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Frieder Schweigert ha scritto nel messaggio <7mek54$9it at smc.vnet.net>...
>Hi,
>
>does anybody know an algorithm or generating system for
>those binary numbers with a fix amount of '1's,
>for example (four times '1'):
>
> 1111
>10111
>11011
>11101
>11110
>.
>.
>..
>
>
>Greetings Frieder.
>

I hope this is the algoritm that you are looking for

alg[in_]:=Module[{},p1=Sum[2^i,{i,0,in-1}];
   p2=IntegerDigits[p1,2];
   p3=Table[p2,{i,1,in}];
   For[i=1,i<in+1,i++,p3[[i,i]]=0];
   MatrixForm[p3]
  ]


alg[7]
0   1   1   1   1   1   1

1   0   1   1   1   1   1

1   1   0   1   1   1   1

1   1   1   0   1   1   1

1   1   1   1   0   1   1

1   1   1   1   1   0   1

1   1   1   1   1   1   0







  • Prev by Date: Re: importing multiple files
  • Next by Date: Re: Manipulating differential equations
  • Previous by thread: RE: Binary System Problem
  • Next by thread: How to import 3D STL or IGES File to M-ma?