Mercurial > octave-antonio
diff scripts/polynomial/residue.m @ 2312:204cc7db6f4a
[project @ 1996-07-11 21:20:36 by jwe]
author | jwe |
---|---|
date | Thu, 11 Jul 1996 21:20:36 +0000 |
parents | 2b5788792cad |
children | 5ca126254d15 |
line wrap: on
line diff
--- a/scripts/polynomial/residue.m Thu Jul 11 20:18:38 1996 +0000 +++ b/scripts/polynomial/residue.m Thu Jul 11 21:20:36 1996 +0000 @@ -62,9 +62,11 @@ ## ## SEE ALSO: poly, roots, conv, deconv, polyval, polyderiv, polyinteg -function [r, p, k, e] = residue (b, a, toler) +## Author: Tony Richardson <amr@mpl.ucsd.edu> +## Created: June 1994 +## Adapted-By: jwe - ## Written by Tony Richardson (amr@mpl.ucsd.edu) June 1994. +function [r, p, k, e] = residue (b, a, toler) ## Here's the method used to find the residues. ## The partial fraction expansion can be written as: