正则化方法matlab程序

其中包含奇异值分解/L曲线/tikhonov正则化方法等正则化方法的matlab程序

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 

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2018-04-16 10:37  正则化方法\
     文件         758  2001-09-13 08:25  正则化方法\csvd.m
     文件         650  2009-11-25 13:42  正则化方法\der.m
     文件        2399  2016-06-10 17:19  正则化方法\dsvd.m
     文件        2842  2016-06-10 17:32  正则化方法\fil_fac.m
     文件        4924  2017-01-07 20:06  正则化方法\gcv.m
     文件       48622  2014-06-07 09:40  正则化方法\hb_to_msm.m
     文件        1276  2003-12-16 08:58  正则化方法\lcfun.m
     文件        1645  2017-01-02 16:45  正则化方法\least_squares.m
     文件        7440  2003-01-27 08:33  正则化方法\l_corner.m
     文件        5338  2017-01-02 15:48  正则化方法\l_curve.m
     文件        1996  2016-06-10 17:21  正则化方法\tgsvd.m
     文件        3310  2003-05-11 07:59  正则化方法\tikhonov.m
     文件         902  2002-08-26 16:03  正则化方法\tsvd.m