## Re: [Maxima-lang-fr] Fwd: pivotage Jordan

 Re: [Maxima-lang-fr] Fwd: pivotage Jordan From: Robert Dodier - 2009-05-31 21:16:43 ```---------- Forwarded message ---------- From: "dso449@..." Subscript must be an integer: l -- an error. To debug this try debugmode(true); le programme: pivotage(A,l,c):block(matchdeclare(A,amatrixp,l,integer,c,integer), nn:matrix_size(A)[1], pivot:A[l,c], A:subst(A[l]/pivot,A[l],A), for i:1 step 1 thru nn do( if i#lpivot then A:rowop(A,i,lpivot,A[i,c]), return(expand(A))))\$ (1) To define a function, write pivotage(A,l,c) := ... not pivotage(A,l,c) : .... (2) The "matchdeclare" declarations are unneeded, and they have no effect in this example. Hope this helps! Robert Dodier ```

 Re: [Maxima-lang-fr] Fwd: pivotage Jordan From: Robert Dodier - 2009-05-31 21:16:43 ```---------- Forwarded message ---------- From: "dso449@..." Subscript must be an integer: l -- an error. To debug this try debugmode(true); le programme: pivotage(A,l,c):block(matchdeclare(A,amatrixp,l,integer,c,integer), nn:matrix_size(A)[1], pivot:A[l,c], A:subst(A[l]/pivot,A[l],A), for i:1 step 1 thru nn do( if i#lpivot then A:rowop(A,i,lpivot,A[i,c]), return(expand(A))))\$ (1) To define a function, write pivotage(A,l,c) := ... not pivotage(A,l,c) : .... (2) The "matchdeclare" declarations are unneeded, and they have no effect in this example. Hope this helps! Robert Dodier ```