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

    function lam= RidgeMatrix(TS);
% RIDGEMATRIX

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




if islinear(TS)
	for i=1:length(TS.Global);
		lam{i}= RidgeMatrix(TS.Global{i});
	end
	lam= spblkdiag(lam{:});	
	if nnz(lam)==0
		lam=0;
	end
else
	lam=0;
end