From: Robert D. <rob...@ya...> - 2009-05-31 21:16:43
|
---------- Forwarded message ---------- From: "ds...@ms..." <ds...@ms...> 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 |