Re: Magic Matrices

*To*: mathgroup at smc.vnet.net*Subject*: [mg32588] Re: Magic Matrices*From*: "Hans Michel" <hansjm at bellsouth.net>*Date*: Wed, 30 Jan 2002 03:19:08 -0500 (EST)*References*: <a2onju$5v3$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Flip: See: http://mathworld.wolfram.com/MagicSquare.html http://mathworld.wolfram.com/packages/MagicSquares.m Hans "Flip Flippy" <flip at safebunch.com> wrote in message news:a2onju$5v3$1 at smc.vnet.net... > Hi All, > > does anyone know of code for Mathematica to produce magic matrices? > > For example Magic[n] would produce an nxn matrix where all of the > row, column and diagonal sums are equal. > > As an example: > > Magic[3] would produce as output: > > {{8,1,6},{3,5,7},{4,9,2}}. > > > Thank you for any inputs, Flip > > > -- > Posted via Mailgate.ORG Server - http://www.Mailgate.ORG >