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

    function [out,Names] = gls_wlist(c,n)
%GLS_WLIST list of weighting functions available
%
% out= gls_wlist(c,n)

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

[wmodels,Names]= weightmodels(c);
wmodels= [{''},wmodels];
Names = [{''},Names];
if nargin==1
    n= find( strncmp( c.wfunc,wmodels,length(c.wfunc) ) );
    if isempty(c.wfunc) || isempty(n)
        n=1;
    end
    out= n;
else
    c.wfunc= wmodels{n};

    % default function values
    if ~isempty(c.wfunc)
        c.wparam= feval(c.wfunc,c);
    else
        c.wparam= [];
    end
    out= c;
end