• 大小: 9.14MB
    文件类型: .zip
    金币: 1
    下载: 0 次
    发布日期: 2023-10-09
  • 语言: 其他
  • 标签:

资源简介

对于纹理图像进行分类,判别其为哪类的纹理图像

资源截图

代码片段和文件信息


function [ T ] = get_wavelet( Input )
I=double(Input);
I1=double(I)/255;%归一化处理
[mn]=wavedec2(I14‘sym4‘);%采用sym4小波对图像进行4层小波分解
[H1V1D1]=detcoef2(‘all‘mn1);%提取二维小波分解的一层变换 
[H2V2D2]=detcoef2(‘all‘mn2);%提取二维小波分解的二层变换 
[H3V3D3]=detcoef2(‘all‘mn3);%提取二维小波分解的三层变换
[H4V4D4]=detcoef2(‘all‘mn4);%提取二维小波分解的四层变换
cal=appcoef2(mn‘sym4‘4);%提取小波分解概貌系数
CH1=size(H1);
   s1=0;
   for i=1:CH1(1)
       for j=1:CH1(2)
           s1=s1+abs(H1(ij));%abs求绝对值
       end
   end
   u1=(1/(CH1(1)*CH1(2)))*s1;%求均值
  
CH2=size(H2);
   s2=0;
   for i=1:CH2(1)
       for j=1:CH2(2)
           s2=s2+abs(H2(ij));%abs求绝对值
       end
   end
   u2=(1/(CH2(1)*CH2(2)))*s2;%求均值
 CH3=size(H3);
   s3=0;
   for i=1:CH3(1)
       for j=1:CH3(2)
           s3=s3+abs(H3(ij));%abs求绝对值
       end
   end
   u3=(1/(CH3(1)*CH3(2)))*s3;%求均值  
  CH4=size(H4);
   s4=0;
   for i=1:CH4(1)
       for j=1:CH4(2)
           s4=s4+abs(H4(ij));%abs求绝对值
       end
   end
   u4=(1/(CH4(1)*CH4(2)))*s4;%求均值
CV1=size(V1);
   s5=0;
   for i=1:CV1(1)
       for j=1:CV1(2)
           s5=s5+abs(V1(ij));%abs求绝对值
       end
   end
   u5=(1/(CV1(1)*CV1(2)))*s5;%求均值
  
CV2=size(V2);
   s6=0;
   for i=1:CV2(1)
       for j=1:CV2(2)
           s6=s6+abs(V2(ij));%abs求绝对值
       end
   end
   u6=(1/(CV2(1)*CV2(2)))*s6;%求均值
 CV3=size(V3);
   s7=0;
   for i=1:CV3(1)
       for j=1:CV3(2)
           s7=s7+abs(V3(ij));%abs求绝对值
       end
   end
   u7=(1/(CV3(1)*CV3(2)))*s5;%求均值
CV4=size(V4);
   s8=0;
   for i=1:CV4(1)
       for j=1:CV4(2)
           s8=s8+abs(V4(ij));%abs求绝对值
       end
   end
   u8=(1/(CV4(1)*CV4(2)))*s6;%求均值

CD1=size(D1);
   s9=0;
   for i=1:CD1(1)
       for j=1:CD1(2)
           s9=s9+abs(D1(ij));%abs求绝对值
       end
   end
   u9=(1/(CD1(1)*CD1(2)))*s9;%求均值
   
CD2=size(D2);
   s10=0;
   for i=1:CD2(1)
       for j=1:CD2(2)
           s10=s10+abs(D2(ij));%abs求绝对值
       end
   end
   u10=(1/(CD2(1)*CD2(2)))*s10;%求均值
CD3=size(D3);
   s11=0;
   for i=1:CD3(1)
       for j=1:CD3(2)
           s11=s11+abs(D2(ij));%abs求绝对值
       end
   end
   u11=(1/(CD3(1)*CD3(2)))*s11;%求均值
CD4=size(D4);
   s12=0;
   for i=1:CD4(1)
       for j=1:CD4(2)
           s12=s12+abs(D4(ij));%abs求绝对值
       end
   end
   u12=(1/(CD4(1)*CD4(2)))*s12;%求均值   
CCAL=size(cal);
   s13=0;
   for i=1:CCAL(1)
       for j=1:CCAL(2)
           s13=s13+abs(cal(ij));%abs求绝对值
       end
   end
   u13=(1/(CCAL(1)*CCAL(2)))*s13;%求均值
   
   
   T=[u1u2u3u4u5u6u7u8u9u10u11u12u13];

   



 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2014-09-04 21:32  运行程序\
     文件      133563  2014-05-21 10:14  运行程序\10.png
     文件       97083  2014-05-21 10:19  运行程序\13.png
     文件      106199  2014-05-21 10:20  运行程序\20.png
     文件       97300  2014-05-21 10:17  运行程序\4.png
     文件        8990  2014-05-21 17:17  运行程序\50.png
     文件        7739  2014-05-21 17:17  运行程序\51.png
     文件       26883  2014-05-21 17:18  运行程序\52.png
     文件       86837  2014-05-21 10:18  运行程序\8.png
     文件        2755  2014-05-11 16:29  运行程序\get_wavelet.asv
     文件        2774  2014-05-24 19:25  运行程序\get_wavelet.m
     文件        2377  2014-05-21 10:19  运行程序\oushijuli2.m
     文件     6157251  2014-05-20 15:09  运行程序\oushijuli2.mat
     文件        5884  2014-05-21 17:10  运行程序\shenjingwangluo2.m
     文件        2707  2014-05-12 13:44  运行程序\ture4.asv
     文件        2745  2014-05-12 13:46  运行程序\ture4.m
     文件     2927847  2014-05-11 08:43  运行程序\ture4.mat
     文件        1967  2014-05-12 13:39  运行程序\wode2.asv
     文件         887  2014-05-11 12:55  运行程序\zitu16.m
     文件         252  2014-05-09 18:16  运行程序\zitu4.m

评论

共有 条评论

相关资源