El Grupo Ma 2

makelist(makelist(x,x,1,k),k,1,n); haz la lista de listas, donde empiezan en 1 y aumenta hasta n
matrix([a,b,c],
    [d,e,f],
    [g,h,i])
is(P=O); si p=q true, en su defecto false
invert(A); inversa de A
traza(X,Y):=lsum(X[k,k],k,makelist(x,x,1,Y))$ sumar los elementos de la diagonal principal


v1:[x,y,z]$  vector
modul(X):=sqrt(lsum(X[y]^2,y,[A])); Modulo
load(vect);