// fltk 7Fl_Tile 34 86 724 247 [ // fltk N4xcas7EditeurE 34 86 724 246 1315 , // Noyau d'une application lineaire de matrice M // detaille l'algorithme de la fonction ker de xcas gauss_j(M):= { local pivo,jc,k,j,nl,nc,temp,l,a,noyau; nl:=nrows(M); nc:=ncols(M); jc:=0; while((jcjc;j:=j-1) { M[j]:=M[j-1]; } M[jc]:=makelist(0,1,nc); nl:=nl+1; } } jc:=jc+1; if ((jc==nl) && (jc