問題タブ [magic-square]

Wolfram Mathematica で魔方陣の関数を作成する方法を教えてください。関数 MagicSquare[n_] を作成する必要があります。この出力は、最初の n^2 整数の正方行列であり、すべての列、すべての行、および対角線上のこれらの整数の合計は同じでなければなりません。私を助けてください、私はこれを数日間試しましたが、失敗しました。学校の課題でこれが必要です。

わかりましたので、私のコードは機能していると思いましたが、そのように見えます。ユーザーは、1 番が開始点であり、最初の行の中央から始まる魔方陣のサイズを選択できます。パターンはこの線に沿って進みます....1 つ上に移動します.最初の行の上に移動する場合....最後の行に戻るか、列の右側の端から外れると.列の最初に戻るよりも...魔方陣に慣れていない場合は、その辺または対角線の数字が数えられると、すべての辺が等しくなります。

これを魔方陣として書き出すには、奇数を入力する必要があります (例: 3x3、5x5、7x7 など)。問題は、11x11 を入力するまで機能することです。プログラムがすでに満たされたスロットに実行されると、配列に入力された最後の番号の下に次の番号を入力することになっています...しかし、11x11 が入力されると、1 が 13 で上書きされ、サイクルが中断されます。パターンを台無しにします....誰かがこれを手伝ってくれたら幸いです。問題は、開始点を選択するために使用する方程式に関係していると思います。これは 11x11 までずっと機能し、その後に入力されたすべての奇数は開始点を上書きするようです。

この述語を機能させるのに問題があります。アイデアはdiabolic([A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P])、そのリスト内のすべての可能な魔方陣を取得するために使用することです。

最初は使用することを考えpermutation/2ましたが、16個の数字のリストでは非常に遅いです。

次に、外部ライブラリ（clpfd）を使用して素晴らしいパフォーマンスを発揮する例を見つけましたが、外部ライブラリなしで解決しようとしています...だから、次のようなことを試しました：

そこで私がやろうとしているのは、合計が 34 になるさまざまな数のすべての可能なリストを取得することです。これにより、どの組み合わせが魔方陣になるかを確認できます (通常の順列を使用するよりも速くすることを期待しています.

それでも、一部の Operator Expected に関するエラーが発生するmember(X,[1..16]),ので、何か間違っている可能性があります。私は Prolog にかなり慣れていないので、皆さんから助けを得たいと思っていました。

前もって感謝します。

この演習を解決するアルゴリズムを作成する必要があります。何か提案はありますか?

エクササイズ：

自然数を持つ nxm の正方形に分割された長方形があります。この四角形の中にある魔方陣の数を数える関数を書いてください。

魔方陣は、kxk (k>=2) の数字 (通常は整数) を正方形のグリッドに配置したもので、各行と各列の数字、および主対角線と副対角線の数字をすべて合計すると、同じ数。

MAGIC SQUARE に関する課題があります。

しかし、私はそれを書き直す必要があります。

これは現時点での私のコードです:

現在、私のプログラムの出力は次のとおりです。

私の期待/望ましい出力:

私が必要とするのは、開始番号 (1) が行 x col の中央上部にあり、パターンが上にあり、左にあることです。

こんにちは、Java で魔方陣プログラムを作成しました。数値 3 を入力すると正常に動作しますが、5 などを入力すると問題が発生します。パターンが間違っています。

私のコードで何が間違っているかを見つけるのを手伝ってください：

これが私のコードです：

3を入力すると正しいです。出力は次のとおりです。

しかし、5: のような数字を入力すると、次のようになります。

更新しました！

私は魔方陣プログラムを書きましたが、うまくいきました。

しかし、私は自分の仕事の出力をこれに逆にする必要があります: (出力を見てください):

現在、私のプログラムの出力は次のとおりです。

私の望ましい出力は次のとおりです。

これは現時点での私のコードです:

みんな、コードをデバッグするのを手伝ってください。必要なのは、コードを完全に傷つけない小さな変更だけです。LOOP に何か変更点があると思いますが、見つかりませんでした。

多分数学の公式..