Question: How to convert a table of diffs to D

I have a table indexed as A[i][j,k],  Each entry is an expression involving diff which I want to convert to D but convert(A,D) doesn't work. Any suggestions on how to do that?

> 

restart;

> 

for i from 1 to 2 do
  for j from 1 to 2 do
    for k from 1 to 2 do
      A[i][j,k] := diff(u[i](x[1],x[2]), x[j], x[k]);
    end do
  end do;
end do;

> 

A[1][1,1];

diff(diff(u[1](x[1], x[2]), x[1]), x[1])

> 

print(A);

A

> 

 
 

Download convert-table.mw

 

Please Wait...