Формула Магического квадрата

← →
junior_177 (2007-04-22 16:52) [0]

Подскажите формулу магического квадрата нечеткого порядка. Нашел в Википедии вот такую:
1+(i-j+(n-1)/2)mod n)*n+(-i-j+(n+1)/2)mod n
ИМХО в ней есть ошибки, к примеру, строю нормальный МК 3х3:
n:=3; for i:=1 to 3 do for j:=1 to 3 do StringGrid1.Cells[i,j]:= IntToStr( (1+(i-j+Round((n-1)/2))mod n)*n+(-i-j+Round((n+1)/2))mod n );
Должно получится, что-то вида:
4 9 2
3 5 7
8 1 6
Мне же выдает:
6 8 1
2 4 9
-2 3 5

← →
default © (2007-04-22 16:58) [1]

воспользуйся методом HelpMeMyGod.GiveMeTheMagicSquareFormula

← →
YurikGL © (2007-04-22 20:39) [2]

> воспользуйся методом HelpMeMyGod.GiveMeTheMagicSquareFormula
>

еще надо добавить в uses GodFunctions

← →
unregistered_member (2007-04-23 08:23) [3]

← →
MBo © (2007-04-23 08:41) [4]

Если я правильно понял, формула формализует вот этот прием: числа выписываются в форме ромба с пробелами, затем вылезающие за квадрат переставляются в противоположное свободное место, например, 1 встанет между 7 и 8, 6 - между 2 и 7 и т.д. Вот и оформи этот метод так, чтобы правильно получалось
1 2 3 4 5 6 7 8 9

← →
junior_177 (2007-04-24 08:39) [5]

Спасибо, попробую.

http://mathworld.wolfram.com/MagicSquare.html

Формула Магического квадрата Найти похожие ветки