% CDMP
% L.Linares, 2008
% For a second order differential equation with 
% a single real Eigenvalue b, and knowing
% the initial conditions:
%   yo = initial value of the function of time f(0).
%   yo'= initial value of the derivative of f'(0).  
%   yf = final value of the function of time f(infin).
%   b1 = one Eigenvalue
%   b2 = the other Eigenvalue
% NOTE: In the code, * means multiply.
% It produces k1 and k2 so:
%  y(t) = (k1*t+k2).exp(b.t)+yf

<< "yo Dyo yf b" PROMPT
   ->  a D K3 b
   << a K3 - DUP
      b * NEG D +
      ->STR "k1=" SWAP +
      SWAP  "k2=" SWAP +
   >>
>>