www.gusucode.com > mbcmodels 工具箱 matlab 源码程序 > mbcmodels/@localpoly/shift.m

    function p = shift(p,k)
%SHIFT Shift polynomial p(x) to p(x-k)
%
%  SHIFT(P, K) shifts the MBC polynomial model P(x) to be P(x-K).  The
%  shifted polynomial is returned.

%  Copyright 2000-2004 The MathWorks, Inc. and Ford Global Technologies, Inc.


b = double(p);
i = find(b);
if ~isempty(i)
    i = i(1);
    bs = b(i);
    b1 = b(i:end)/bs;
    c = compan(b1);
    c = c - eye(size(c))*k;
    b(i:end) = poly(c)'*bs;
    p.xreglinear = update(p.xreglinear ,b);
end