Скачать: CL | DM;

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

← →
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]

up

---

← →
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]

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

---

← →
MBo ©   (2007-04-24 08:50) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c