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