Matematické Fórum
Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.
Nástěnka
❗22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
❗04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
❗23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.
Nejste přihlášen(a). Přihlásit
#1 13. 03. 2011 17:25
pascal magicke ctverce
Dobry den,
rekneme ze mam naprogramovan v pascalu generator magickych ctvercu (pouze pro velmi male n)
a nyni bych potreboval zjistit kolik z nich je ruznych? Tedy vynechat ty ctverce ktere vzniknou z nejakeho otocenim.
Nevim si s tim vubec rady.
Dekuji za odpovedi a napovedy.
myrek
Offline
#3 14. 03. 2011 00:22
Re: pascal magicke ctverce
↑ Honzc:
nevim jestli je generator to prave slovo ale je prece znam soucet pro konkretni n, takze nejdrive mam n-tice z cisel 1 az n na druhou davajici soucet, dale to probiha polozenim radku polozenim dalsiho radku prvku ktere nebyly pouzity... cili v radcich je uz dosazeno souctu a pak dochazi k permutaci tak aby byl soucet dosazen i ve sloupcich ale takove permutovani je hodne narocne takze to mam jen pro n=3 a n=4 mozna to jde i lepe nevim.
Offline
#4 14. 03. 2011 09:32
Re: pascal magicke ctverce
↑ myrek:
Pokud vím, tak pro mč.3x3 je pouze jedno řešení (bez rotace a odzrcadlení)
a pro mč.4x4 je takových řešení 880. (924 i se zrcadlem a otáčením)
Sice nevím, na co ti bude informace, že lze nalézt takový nebo takový počet řešení pro určité n.
Pokud by ti stačil pouze program jak pro nějaké n udělat magický čtverec tak Zde máš program v Pascalu, který to umí.
Offline
#6 14. 03. 2011 11:43
Re: pascal magicke ctverce
↑ Honzc:
jinak sem ten program zkousel hodit do pascalu a pri kompilaci mi to hlasilo hodnekrat:
identifier not found "Result"
a jeste na radku if MaxIntValue(roz)=2 then ... mi to hlasi incompatible type for arg no. 1: Got "Dynamic Array Of SmallInt", expected "Open Array Of LongInt"
dale jeste identifier not found "Try"
Syntax error, "UNTIL" expected, but identifier "WRITELN" found
Offline
#8 14. 03. 2011 13:44 — Editoval musixx (14. 03. 2011 13:57)
Re: pascal magicke ctverce
↑ myrek: Od nějakého naivního algoritmu typu hrubá síla, případně vlastně od jakéhokoli pokusu něco takového algoritmizovat, by tě mělo odradit následující: dokument a výňatek z něho:
EDIT: resp. oficiálnější zdroj mathworld.wolfram.com/MagicSquare.html s touto informací:
Offline
#9 14. 03. 2011 14:25
Re: pascal magicke ctverce
↑ myrek:
Ještě k počtu možností sestavení mag.čtverců
Řád (n) Počet mag.čtverců Detaily
3 1 Lo Shu čtverec
4 880 Frénicle de Bessy (1693)
5 275305224 Richard Schroeppel (1973)
6 (1.7754 ± 0.0016) × 10^19 Klaus Pinn a C. Wieczerkowski (1998),
7 (3.7982 ± 0.0004) × 10^34 přes simulaci Monte Carlo.
Offline