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

    function c=char(qs,TeX)
% QUADSPLINE/CHAR char converter

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




if nargin==1
   TeX=1;
end

s= get(qs,'symbol');
var=s{1};
if TeX
   var= detex(var);
end

varp=['(',s{1},'-k)'];

plo= localpoly(qs.polylow,[],[]);
phi= localpoly(qs.polyhigh,[],[]);

cq1=['  ',char(plo,0,varp)];
cq2=['  ',char(phi,0,varp)];
c2 = ['   if ',var,' <= k'
      '   if ',var,' >  k'];
c3= [' where k = ',sprintf('%.3g',qs.knot+datum(qs))];


c=[ char({cq1 ;cq2}) c2];
c= [c [blanks(size(c3,2)-size(c,2)) ; blanks(size(c3,2)-size(c,2))]
   [c3 blanks(size(c,2)-size(c3,2))]];