清晰的所有;clc;
=双(rgb2gray (imread (“Lenna.png”)));
[q d r] =圣言();
a_tp = ';
Z1 = a_tp *;
[Z1_vec, Z1_val] = eig (Z1);
(k p) = (a)大小;(mn) = (Z1_vec)大小;[o p] =大小(Z1_val);
U = 0 (p、m);% U的大小
为我= 1:1:m
U (:, i) = (a * Z1_vec (:, n)) /√(Z1_val (o p));% U在圣言
o = 1;p = p - 1;
n = n - 1;
结束
[o p] =大小(Z1_val);
σ=√Z1_val);
Sig = 0 (o, p);
为我= 1:1:p
Sig(我)=σ(导出,我+ 1,+ 1);% Diagnol矩阵
结束
V = fliplr (Z1_vec);% r在圣言
图(1)Img_new = imshow ((mat2gray (U *团体* V ')));
图(2)Img_svd = imshow ((mat2gray (q * d * r ')));