srm_view.m

来自「轨迹聚类工具箱及其相关说明和文章（台风路径分类等）。如有问题可与wyljess@」· M 代码 · 共 52 行

function Options = srm_view(M,trajs,Options)
%SRM_View  View SRM_* model
%
%   AxesHandles = SRM_View(Model,[trajs],[Options])
%

% Scott Gaffney   5 February 2002
% Department of Information and Computer Science
% University of California, Irvine

PROGNAME = 'srm_view';
if (~nargin)
  try; help(PROGNAME); catch; end
  return;
end

%%% Begin Argument Processing
%%
trajs = cexist('trajs',[]);
Options = cexist('Options',[]);
%%
%%% End Argument Processing

Options = DefaultOptions(Options);
bottompos = [0.1200    0.5676    0.3329    0.3267];
toppos    = [0.3900    0.5486    0.3743    0.3686];

% Activate the figure
if (~Options.SeparateFigs)
  if (isempty(Options.bfig))
    Options.bfig = figure('Units','normalized','Position',bottompos);
  end
  figure(Options.bfig);
end

Options.plot_regcoef.T = (M.knots(1):.1:M.knots(end))';
Options.plot_regcoef.X = bsplinebasis(M.knots,M.order,Options.plot_regcoef.T);
Options = plot_regmix(M,trajs,Options);

info = listmodels(M.method);
set(gcf,'Name',info.description);




%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Helper Functions
%%
function Options = DefaultOptions(Options);
Options = SetFieldDef(Options,'bfig',[]);
Options = SetFieldDef(Options,'SeparateFigs',0);