tikhonnov正则化matlab代码包括L曲线法求平衡参数

利用tikhonnov正则化的方法求解病态方程的解。包括利用L曲线法求解所需平衡参数

function [UsV] = csvd（Atst）
%CSVD Compact singular value decomposition.
%
% s = csvd（A）
% [UsV] = csvd（A）
% [UsV] = csvd（A‘full‘）
%
% Computes the compact form of the SVD of A:
%    A = U*diag（s）*V‘
% where
%    U  is  m-by-min（mn）
%    s  is  min（mn）-by-1
%    V  is  n-by-min（mn）.
%
% If a second argument is present the full U and V are returned.

% Per Christian Hansen IMM 06/22/93.

if （nargin==1）
  if （nargout > 1）
    [mn] = size（A）;
    if （m >= n）
      [UsV] = svd（full（A）0）; s = diag（s）;
    else
      [VsU] = svd（full（A）‘0）; s = diag（s）;
    end
  else
    U = svd（full（A））;
  end
else
  if （nargout > 1）
    [UsV] = svd（full（A））; s = diag（s）;
  else
    U = svd（full（A））;
  end
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1273  2017-04-21 09:14  lcfun.m

     文件       4702  2017-04-21 09:48  l_curve.m

     文件       7128  2017-04-20 16:36  l_corner.m

     文件        721  2017-04-21 09:14  csvd.m

     文件       3248  2007-07-30 08:08  tikhonov.m

     文件       1828  2007-07-30 08:04  plot_lc.m

----------- ---------  ---------- -----  ----

                18900                    6