Discussion :

[NoThik]

Bonjour,

Désolé pour les accents, je suis sur un clavier anglais.
Voici le problème : je crée une matrice M (Matrix). J'utilise DeleteColumn de LinearAlgebra ainsi que Concatenate de ArrayTools, afin de retirer la dernière colonne de M et de la remettre immédiatement (on appelle N la "nouvelle" matrice, identique a M si on fait un print).
Problème : si on teste "if M=N then return 1 else return 0", Maple retourne 0 .
Pourtant DeleteColumn retourne bien un Matrix, et j'ai pris soin de prendre la dernière (k-ieme) colonne de M avec le code Matrix(n,1,Column(M,k)) pour que tout ait lieu dans la catégorie des Matrix.

Merci pour votre aide.
PS: vous pouvez rigoler en imaginant le temps qu'il faut pour localiser un problème pareil au sein d'un programme qui semble parfaitement rédigé

[NoThik]

Voici le code précis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
> restart;
> with(LinearAlgebra); with(ArrayTools);
 
> test := proc (X) 
local c, Y, i; 
c := ColumnDimension(X); 
Y := Concatenate(2, DeleteColumn(X, c), Matrix(3, 1, Column(X, c))); 
if Y = X then return true; fi; 
return false; 
end proc;
 
> m := Matrix([[5, 6, 1, 2, 3, 4], [0, 1, 0, 1, 0, 1], [0, 0, 0, 0, 0, 0]]);
> test(m);

[NoThik]

J'ai la solution, en fait tester l'egalite de deux matrices se fait par la commande "Equal(M,N)" et non "M=N".