Advanced Search

Question: How to output a list when writing a procedure

Question:How to output a list when writing a procedure

Ex 95 Maple
proc
July 31 2011
0

How to output a list when writing a procedure

i want to get the list c in the procedure, but "return" c not work

z := [x1, x2, x3];
symMonomial(z)

symMonomial := proc(test)
with(combinat):
h := 0;
for i from 1 to nops(test) do
    h[i] := choose(z,i);
od;

c := 0;
for k from 1 to nops(test) do
    c[k] := 0;
    for i from 1 to nops(h[k]) do
        ki := 1;
        for j from 1 to nops(h[k][i]) do
            ki := ki*h[k][i,j];
        od;
        c[k] := c[k] + ki;
    od;
od;

end proc;
Please Wait...