MAN page from Mandrake Other perl-Math-MagicSquare-1.40-1.i386.rpm

MagicSquare

Section: User Contributed Perl Documentation (3)
Updated: perl 5.004, patch 04
Index

NAME

Math::MagicSquare - Magic Square Checker

SYNOPSIS

  use Math::MagicSquare;

  $a= Math::MagicSquare -> new ([num,...,num],                                 ...,                                [num,...,num]);  $a->print("string");  $a->printhtml();  $a->check();  $a->rotation();  $a->reflection();

DESCRIPTION

The following methods are available:

new

Constructor arguments are a list of references to arrays of the samelength.

    $a = Math::MagicSquare -> new ([num,...,num],                                    ...,                                   [num,...,num]);

check

This function can return 4 value

•: 0: the Square is not Magic
•: 1: the Square is a Semimagic Square (the sum of the rows and the columnsis equal)
•: 2: the Square is a Magic Square (the sum of the rows, the columns and thediagonals is equal)
•: 3: the Square ia Panmagic Square (the sum of the rows, the columns, thediagonals and the broken diagonals is equal)

print

Prints the Square on STDOUT. If the method has additional parameters,these are printed before the Magic Square is printed.

printhtml

Prints the Square on STDOUT in an HTML format (exactly a inside a TABLE)

rotation

Rotates the Magic Square of 90 degree clockwise

reflection

Reflect the Magic Square

EXAMPLE

    use Math::MagicSquare;

    $A = Math::MagicSquare -> new ([8,1,6],                                   [3,5,7],                                   [4,9,2]);    $A->print("Magic Square A:\n");    $A->printhtml;    $i=$A->check;    if($i == 2) {print "This is a Magic Square.\n";}    $A->rotation();    $A->print("Rotation:\n");    $A->reflection();    $A->print("Reflection:\n");

 This is the output:    Magic Square A:        8     1     6         3     5     7         4     9     2     <TABLE border=3 width="2" height="2" cellpadding=1 cellspacing=1>    <TR>    <TD align=right><FONT size=+2><B>8</B></font></TD>    <TD align=right><FONT size=+2><B>1</B></font></TD>    <TD align=right><FONT size=+2><B>6</B></font></TD>    </TR>    <TR>    <TD align=right><FONT size=+2><B>3</B></font></TD>    <TD align=right><FONT size=+2><B>5</B></font></TD>    <TD align=right><FONT size=+2><B>7</B></font></TD>    </TR>    <TR>    <TD align=right><FONT size=+2><B>4</B></font></TD>    <TD align=right><FONT size=+2><B>9</B></font></TD>    <TD align=right><FONT size=+2><B>2</B></font></TD>    </TR>    </TABLE>    This is a Magic Square.    Rotation:        4     3     8         9     5     1         2     7     6    Reflection:        8     3     4        1     5     9        6     7     2

AUTHOR

 Fabrizio Pivari pivariAATTgeocities.com member of ANFACE Software http://www.geocities.com/CapeCanaveral/Hangar/4794/

Copyright

 Copyright 1998, Fabrizio Pivari pivariAATTgeocities.com This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Availability

 The latest version of this library is likely to be available from: http://www.geocities.com/CapeCanaveral/Lab/3469/ and at any CPAN mirror

Information about Magic Square

 Do you like Magic Square? Do you want to know more information about Magic Square? Try to visit

A very good introduction on Magic Square

http://www.astro.virginia.edu/~eww6n/math/MagicSquare.html

A whole collection of links and documents in Internet

http://www.pse.che.tohoku.ac.jp/~msuzuki/MagicSquare.html

A good collection of strange Magic Square

http://www.geocities.com/CapeCanaveral/Lab/3469/examples.html

The only Magic Square checker and gif maker in Internet (I think)

http://www.geocities.com/CapeCanaveral/Lab/3469/squaremaker.html

This document was created byman2html,using the manual pages.