je cite exactement l'énoncé de l'exercice :
afficher un carré dont la somme des nombres sur chaque ligne, chaque colonne ou chaque diagonale est la même.
et on me donne pour exemple :
pour n=7, le total est 175, avec le tableau identique à celui que j'ai mis dans le message précédent à ceci près que comme je l'expliquais les nombres "montent" alors que dans celui que j'ai obtenu, celui du message précédent donc, les valeurs descendent.

Bonsoir,

Donc ceci.


Mais je ne connais pas encore la programmation sous Maple.

tout à fait.
le lien avec celui que j'obtiens est flagrant mais je cherche comment modifier si possible ma procédure maple pour en arriver à ce résultat.
si ça peut aider, on m'a donné un petit speech explicatif même si le tableau en lui-même est bien plus explicite:
on utilisera un tableau carré T[i,j], dans lequel seront rangés les nombres calculés, la dimension doit être impaire; on place la valeur 1 dans la case au dessus du milieu et on incrémente à chaque nouvelle case; pour se déplacer, on avance vers la droite puis vers le haut; si la case est occupée, on avance (à partir de la case occupée) à gauche puis en haut; si on arrive hors des limites du carré, on considère le tableau circulaire dans les deux directions (haut-bas, droite-gauche)

Voici la méthode du marquis de Liouville
on place les nombres naturels k de 0 à n²-1 augmentés de 1 dans un tableau de la manière suivante:
si k est un multiple de n, alors
la ligne est diminuée de 2
sinon
la ligne est diminuée de 1 et la colonne augmenté de 1. (modulo n)
fsi
Ce qui donne en Basic:


CONST n = 7
DIM mat(n, n) AS INTEGER
DIM i AS INTEGER, j AS INTEGER, k AS INTEGER
CLS
i = (n - 1) / 2
j = (n + 1) / 2
FOR k = 0 TO n * n - 1
IF k MOD n = 0 THEN
  j = (j + n - 2) MOD n
ELSE
  j = (j + n - 1) MOD n
  i = (i + n + 1) MOD n
END IF
mat(i + 1, j + 1) = k + 1
NEXT k

FOR i = 1 TO n
FOR j = 1 TO n
  PRINT mat(j, i); " ";
NEXT j
PRINT
NEXT i
END

tout d'abord merci Caylus pour l'algorithme.
j'ai essayé de le traduire en langage Maple. il marche, seul problème c'est que j'obtiens pas encore le bon tableau (voir image).
le bon étant celui qu'a posté Caylus. Alors après ai-je fait une erreur dans ma procédure ?

après quelques modifications j'obtiens quelque chose qui se rapproche encore un peu plus de ce que j'attends à ceci près que certaines valeurs sont décalés :

Bonjour,

Il y a une erreur dans votre frappe:
j = (j + n - 2) MOD n


Je ne sais pas introduire un programme sous Maple4.
J'ai frappé ceci mais

> carre := proc (n)
>  local i, j, k, A;
>  A := matrix(n, n, 0);
>  i := (n-1)/2;
>  j := (n+1)/2;
>  for k from 0 to n^2-1
>   do
>    if irem(k, n) = 0  then
>     j:= irem(j + n - 2,n)
>    else
>     j:= irem(j + n - 1,n);
>     i:=irem(i+n+1,n);
>    endif;    
>    A[i+1,j+1]:=k+1;
>   enddo;
>  print(evalm(A));
>  endproc
>
> carre(7);
Syntax error, missing operator or `;`

Après quelqueS essaiS,



@+

bon ben merci beaucoup.
la procédure marche parfaitement.
A en juger par les "S" vous avez du y passer beaucoup de temps.
Et quant à moi, je m'excuse si j'avais vu plutôt votre post, j'aurais peut être pu vous aider.

encore merci,
bonne soirée,

SUJET CLOS