小波纹理提取.docVIP

小波纹理提取 [x,map]=imread(123.jpg); r=x(:,:,1); g=x(:,:,2); b=x(:,:,3); %R [ca1,ch1,cv1,cd1] = dwt2(r,haar); [ca2,ch2,cv2,cd2] = dwt2(ca1,haar); [ca3,ch3,cv3,cd3] = dwt2(ca2,haar); [ca4,ch4,cv4,cd4] = dwt2(ca3,haar); ch1s=size(ch1); ch1m=0; for i=1:ch1s(2) ch1m=ch1m+ch1(i); end ch2s=size(ch2); ch2m=0; for i=1:ch2s(2) ch2m=ch2m+ch2(i); end ch3s=size(ch3); ch3m=0; for i=1:ch3s(2) ch3m=ch3m+ch3(i); end ch4s=size(ch4); ch4m=0; for i=1:ch4s(2) ch4m=ch4m+ch4(i); end cv1s=size(cv1); cv1m=0; for i=1:cv1s(2) cv1m=cv1m+cv1(i); end cv2s=size(cv2); cv2m=0; for i=1:cv2s(2) cv2m=cv2m+cv2(i); end cv3s=size(cv3); cv3m=0; for i=1:cv3s(2) cv3m=cv3m+cv3(i); end cv4s=size(cv4); cv4m=0; for i=1:cv4s(2) cv4m=cv4m+cv4(i); end cd1s=size(cd1); cd1m=0; for i=1:cd1s(2) cd1m=cd1m+cd1(i); end cd2s=size(cd2); cd2m=0; for i=1:cd2s(2) cd2m=cd2m+cd2(i); end cd3s=size(cd3); cd3m=0; for i=1:cd3s(2) cd3m=cd3m+cd3(i); end cd4s=size(cd4); cd4m=0; for i=1:cd4s(2) cd4m=cd4m+cd4(i); end Tr=[ch1m,ch2m,ch3m,ch4m,cv1m,cv2m,cv3m,cv4m,cd1m,cd2m,cd3m,cd4m]; Tm=ch1m+ch2m+ch3m+ch4m+cv1m+cv2m+cv3m+cv4m+cd1m+cd2m+cd3m+cd4m; Trr=Tr/Tm; %G [ca1,ch1,cv1,cd1] = dwt2(g,haar); [ca2,ch2,cv2,cd2] = dwt2(ca1,haar); [ca3,ch3,cv3,cd3] = dwt2(ca2,haar); [ca4,ch4,cv4,cd4] = dwt2(ca3,haar); ch1s=size(ch1); ch1m=0; for i=1:ch1s(2) ch1m=ch1m+ch1(i); end ch2s=size(ch2); ch2m=0; for i=1:ch2s(2) ch2m=ch2m+ch2(i); end ch3s=size(ch3); ch3m=0; for i=1:ch3s(2) ch3m=ch3m+ch3(i); end ch4s=size(ch4); ch4m=0; for i=1:ch4s(2) ch4m=ch4m+ch4(i); end cv1s=size(cv1); cv1m=0; for i=1:cv1s(2) cv1m=cv1m+cv1(i); end cv2s=size(cv2); cv2m=0; for i=1:cv2s(2) cv2m=cv2m+cv2(i); end cv3s=size(cv3); cv3m=0; for i=1:cv3s(2) cv3m=cv3m+cv3(i); end cv4s=size(cv4); cv4m=0; for i=1:cv4s(2) cv4m=cv4m+cv4(i); end cd1s=size(cd1); cd1m=0; for i=1:cd1s(2) cd1m=cd1m+cd1(i); end cd2s=size(cd2); cd2m=0; for i=1:cd2s(2) cd2m=cd2m+cd2(i); end cd3s=size(cd3); cd3m=0; for i=1:cd3s(2) cd3m=cd3m+cd3(i); end cd4s=size(cd4); cd4m=0; for i=1:cd4s(2) cd4m=cd4m+cd4(i); e