Annexe

Algorithme pour des matrices carrées de taille $(n,n)$ où $n$ est impair.

i:=1;
j:=(n+1)/2
Pour k=1..n^2 Faire
| A[i,j]:=k;
| Si i=1 Alors
| | i':=n
| Sinon
| | i':=i-1
| Finsi
| Si j=n Alors
| | j':=1
| Sinon
| | j':=j+1
| Finsi
| 
| Si A[i',j'] !=0 Alors
| | j':=j
| | Si i=n Alors
| | | i':=1
| | Sinon
| | | i':=i+1
| | Finsi
| Finsi
| i,j:=i',j'
Fait

/pub/magik.mwsTélécharger l'algorithme pour Maple V'R4