how to write code for finding KL transform in Matlab

Question

Ramessh Naiidu 2015-5-25

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/218507-how-to-write-code-for-finding-kl-transform-in-matlab

编辑： Walter Roberson 2017-6-18

about image compression using KL transform in matlab

2 个评论
显示无隐藏无

B.k Sumedha 2015-5-25

Asking to write a code is huge task.What have u tried so far??

Walter Roberson 2015-5-25

http://www.mathworks.com/matlabcentral/fileexchange/37082-kl-transform--karhunen-lo%C3%A8ve-theorem-

请先登录，再进行评论。

请先登录，再回答此问题。

Answer 1

B.k Sumedha 2015-5-25

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/218507-how-to-write-code-for-finding-kl-transform-in-matlab#answer_180310

在 MATLAB Online 中打开

Well here is the code

clc;
close all;
clear all;
I=imread('cameraman.tif');
I=im2double(I);
m=1;
for i=1:8:256
    for j=1:8:256
        for x=0:7
            for y=0:7
            img(x+1,y+1)=I(i+x,j+y);
            end
        end
            k=0;
            for l=1:8
                img_expect{k+1}=img(:,l)*img(:,l)';
                k=k+1;
            end
            imgexp=zeros(8:8);
            for l=1:8
                imgexp=imgexp+(1/8)*img_expect{l};%expectation of E[xx']
            end
            img_mean=zeros(8,1);
            for l=1:8
                img_mean=img_mean+(1/8)*img(:,l);
            end
            img_mean_trans=img_mean*img_mean';
            img_covariance=imgexp - img_mean_trans;
            [v{m},d{m}]=eig(img_covariance);
            temp=v{m};
             m=m+1;
            for l=1:8
                v{m-1}(:,l)=temp(:,8-(l-1));
            end
             for l=1:8
           trans_img1(:,l)=v{m-1}*img(:,l);
             end
           for x=0:7
               for  y=0:7
                   transformed_img(i+x,j+y)=trans_img1(x+1,y+1);
               end
           end
mask=[1 1 1 1 1 1 1 1 
      1 1 1 1 1 1 1 1 
      1 1 1 1 1 1 1 1 
      1 1 1 1 1 1 1 1 
      1 1 1 1 1 1 1 1 
      1 1 1 1 1 1 1 1 
      1 1 1 1 1 1 1 1 
      1 1 1 1 1 1 1 1 ];
  trans_img=trans_img1.*mask;
           for l=1:8
           inv_trans_img(:,l)=v{m-1}'*trans_img(:,l);
           end
            for x=0:7
               for  y=0:7
                  inv_transformed_img(i+x,j+y)=inv_trans_img(x+1,y+1);
               end
           end
          end
  end
  imshow(transformed_img);
  figure
  imshow(inv_transformed_img);

2 个评论
显示无隐藏无

mohammed abdul wadood 2017-6-18

hi. i have a set of multi-spectral satellite images and i want to reduce dimensional of this images by using (KLT) in matlab. please can you give me matlab code of (KLT) if you have it, and send it on this email please ( donquixotedoflamingo695@yahoo.com ). thank you so much.