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

    function ch= char(ts,TeX)
%CHAR

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



if nargin<2
    TeX=1;
end

s= get(ts,'symbol');
if TeX
    s= detex(s);
end

ch= char(polynom(ts),TeX);

p= double(ts);
m= ts.order-1;

nk = length(ts.knots);
beta= p(end-nk+1:end);
if m>0
    for i=1:nk
        if beta(i)>=0
            signbeta = ' +';
        else
            signbeta = ' -';
        end
        ch= [ch signbeta sprintf(' %.3g*(%s%+.3g)^%1d',abs(beta(i)),s{1},-ts.knots(i),m)];
    end
end