%-----------------------------------------------------------------------
% Script File: pade_driver
clear
exp(1)
x = 1;
P = PadeArray(8,8);
for p=1:8
   for q=1:8
      numer = 0;
      for i=1:p
        numer = numer*x+P{p,q}.num(p-i+1);
     end 
     denom = 0;
      for j=1:q
         denom = denom*x+P{p,q}.den(q-j+1);
      end
      expr(p,q) = numer/denom;
   end
end
expr-exp(1)
