Re: Magische Quadrate

["Udo und Susanne Krause" <su.krause@XXXXXXX.ch>]

Hallo Hans,

> Es gibt im Mma Library Archive ein notebook von Christopher Henrich zu
> diesem Thema.
>
>
> http://library.wolfram.com/infocenter/Conferences/7500/
>
>
> Aber leider läuft der Code nicht auf meiner Maschine (warum auch immer?
> Z.B. gibt schon  Needs[„Convex`ConvexPolyhedra`“]  eine Fehlermeldung) ,

Das passiert deshalb:

<Zitat>
 I submitted a set of packages for multidimensionl convex polyhedra to
 the Wolfram Library Archive:
 <http://library.wolfram.com/infocenter/MathSource/7034/>
 I would advise that you convert your coordinates to rational numbers.
 Then I think it would handle the problem you describe with satisfactory
 speed.

 --
 Christopher J. Henrich
 chenrich(a)monmouth.com
 http://www.mathinteract.com
 "A bad analogy is like a leaky screwdriver." -- Boon
</Zitat>

mit anderen Worten, Convex`ConvexPolyhedra ist keine package der  
Mathematica distribution.

Also holt man das Paket ersteinmal, packt es aus, es liegt jetzt hier unter
NoteBookDirectory[] <> "\\others\\Convex" weil das Package so codiert ist,
siehe §10 Implementation Notes in ConvexPolyhedra.pdf, welches in der o.g.
MathSource Distribution drin ist, lädt es

In[1]:= AppendTo[$Path, NotebookDirectory[] <> "others"];
In[2]:= Needs["Convex`ConvexPolyhedra`"];

und es funktioniert:

In[3]:= ?ConvexPolyhedron

ConvexPolyhedron is the head of an expression denoting a closed convex  
polyhedron.

> und wie ich das überblicke, findet er 220 magische Quadrate.
>
> (siehe unter “Let’s Try It”  Length[MagicSquareList] ).

Die Anzahl von dem Symmetriebegriff ab, den Henrich verwendet. Das koennen  
Sie ja nun durcharbeiten und gegebenenfalls korrigieren.

Gruss
Udo.