@acer good idea. Thanks!

@tomleslie This works great. Thank you.

@Kitonum Very nice. Thank you!

@Carl Love Thanks. I always learn a lot about Maple from your answers.

@Carl Love Unfortunately I only have access to Maple 17. Thank you very much for the insight though.

@Kitonum I want maple to do the work for me so I don't have to list the vectors out in order myself. 

@Carl Love Yes of course. Edited. Thanks.

@Kitonum This only works for my specific example though. I'd like an algorithm that can be used on any 2xn matrix.

@Kitonum 

Sorry, I think I misstated my question. I wanted the output to be a list of the columns without multiples. So in this example I'd like the output to be [1,0], [0,1], [-2,0], and [-1,-3]. Is there a way to ammend this code to produce this?

Thanks for the help!

Sorry, I think I misstated my question. I wanted the output to be a list of the columns without multiples. So in this example I'd like the output to be [1,0], [0,1], [-2,0], and [-1,-3]. Is there a way to ammend this code to produce this?

Thanks for the help!

@Preben Alsholm Now I'm having a new problem. My full code is

with(LinearAlgebra):

Q := Matrix ([[1,1,1,0,0,0,-2,-1],[0,0,0,1,1,1,0,-3]]);

f := unapply(

      seq(product(t[j]^'Q[j,i]',j=1..RowDimension(Q)),i=1..ColumnDimension(Q))

    , seq(t[i],i=1..RowDimension(Q))

);

the error is

Error, (in unapplyu) variables must be unique and of type name

How can I correct this? 

Thanks!

@Preben Alsholm This works perfectly. Thank you.

Carl-

Out of curiosity, is it possible to add text to your example? For example, I tried 

f := x-> x^2; a := 0; b := 1;
for i to 5 do print("The answer is" 'f'(x[i])=f(a+i*(b-a)/5)*(b-a)/5) end do;

but this does not work.

Thanks again!

Carl-

Out of curiosity, is it possible to add text to your example? For example, I tried 

f := x-> x^2; a := 0; b := 1;
for i to 5 do print("The answer is" 'f'(x[i])=f(a+i*(b-a)/5)*(b-a)/5) end do;

but this does not work.

Thanks again!

This is just as good. Thanks!