波变换

开发平台：

Matlab

mrdivide.m：源码内容

							function [Q,R] = mrdivide(A,B)
%MRDIVIDE Laurent polynomial right division.
%   MRDIVIDE(A,B) overloads Laurent polynomial A / B.
%   [Q,R] = mrdivide(A,B) returns two Laurent polynomial Q and R
%   such that A = B*Q + R.
%   Among all possible euclidian divisions of A by B, MRDIVIDE returns
%   the one which has the remainder R with the smallest degree.
%
%   Example:
%     A = laurpoly([1 3 1],2);
%     B = laurpoly([1 1],1);
%     [Q,R] = mrdivide(A,B);
%     --------------------------------------
%     A(z) = z^(+2) + 3*z^(+1) + 1
%     B(z) = z^(+1) + 1
%     [Q,R] = mrdivide(A,B) returns 
%        Q(z) = z^(+1) + 2  and  R(z) = - 1
%     --------------------------------------
%   
%   See also EUCLIDEDIV, MLDIVIDE.
%   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 19-Mar-2001.
%   Last Revision: 13-Jun-2003.
%   Copyright 1995-2004 The MathWorks, Inc.
%   $Revision: 1.1.6.2 $  $Date: 2004/04/13 00:38:57 $
DEC = euclidediv(A,B);
[Q,R] = deal(DEC{1,:});

						