function s = expex(t)

%*****************************************************************************80
%
%% expex()  Experimental version of EXP(T)
%
%  Licensing:
%
%   Copyright 2014 The MathWorks, Inc.
%
%  Author:
%
%    Cleve Moler
%
%  Reference:
%
%    Cleve Moler,
%    Experiments with MATLAB
%    https://www.mathworks.com/moler
%
s = 1;
term = 1;
n = 0;
r = 0;
while r ~= s
   r = s;
   n = n + 1;
   term = (t/n)*term;
   s = s + term;
   fprintf('%5d %14.4g %25.15g \n',n,term,s)
end
