%
%   IVPNEX1B.M  Function file to evaluate forcing function at any t
%     
%   given function:  f(t) = 10*exp(-2t)
%
%   this file is used by ivpnex1.m and ivpnex1a.m
%
%   File prepared by J. R. White, UMass-Lowell (Aug. 2003).
%
      function f = funfile(t)
      f = 10*exp(-2*t);
%
%   end of function
