DMUG-Archiv 2013

Frühere   Chronologischer Index   Spätere
Vorherige   Thematischer Index   Nächste

Re: Magische Quadrate

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.



Antworten:
Verweise:
Frühere   Chronologischer Index   Spätere
Vorherige   Thematischer Index   Nächste

DMUG DMUG-Archiv, http://www.mathematica.ch/archiv.html