"File Reduce"

D_(a):=DIMENSION(a)

I_(n):=IDENTITY_MATRIX(n)

E_(a,i):=ELEMENT(a,i)

R_R(a,b):=ROW_REDUCE(a,b)

F_(a,n):=VECTOR(E_(a,i),i,n)`

L_(a,n):=VECTOR(E_(a,i),i,n+1,D_(a))`

M_(a,n):=L_(R_R(F_(a`,n),I_(D_(a)))`,n)

"###############################"

"USER FUNCTIONS"

REDUCE(a,n):=M_(a,n) . a

"If a is a matrix, REDUCE(A,N) performs the row operations"

"necessary to reduce the first N columns of A to the matrix A."

"#####################"

"EXAMPLE"

a:=[[1,2,3,4,5],[6,7,8,9,2],[3,4,9,6,7]]

"Simplify the following expression to reduce the first 2 columns of A"

REDUCE(a,2)