匹配程序

hehedaxia

clear
) n  a2 }; ~1 N; e; vclc
  e! C+ H/ T: Dload('q2_13.mat')
- C; x$ f8 A: ^4 n; s( `' M1 Q8 sload('f.mat');
kz=[6,6,5.5,7.3,6.5,6,5.5,7.6,7.5,4.5,6.5];
  g; Y. c2 f: {3 Q5 `
( V8 G7 ?7 [, h0 b" a2 `for iii=1:11
%iii=1
k=f(iii);
t=qq(:,:,k);
for i=1:180
1 n! R4 g" t# i    if sum(t(i,:))~=72
. x2 b/ c( T% h' c        tt(i)=0;
% `9 E' p, z9 G* N    end
    if sum(t(i,:))==72
        tt(i)=1;
    end
end
tt=tt';
ll(1:209)=10000000000;
ttemp(1:180)=0;
ttemp=ttemp';
for i=1:209
1 Q9 V4 V% C/ J    if sum(ismember(f,i))==0
: E% ]5 e. a% P  y        temp=qq(:,:,i);
3 @% l# ~0 O5 q: v. j1 \5 ?        for ii=1:180
            if sum(temp(ii,:))~=72
               ttemp(ii)=0;
            end
            if sum(temp(ii,:))==72
& t$ Q9 m" @, H4 s: e) h( u1 s               ttemp(ii)=1;
            end
' l; N" X* d1 \# t        end
      
        ll(i)=norm(tt-ttemp);
    end
3 n6 O5 F) J. J% V3 D% k8 Wend
  ~3 d9 X4 D; N# \( }ii=1;
th(1:29)=0;
for i=1:209
6 _; g2 F! c0 ]' ~9 b1 Z) Y8 ?* z    if ll(i)<=kz(iii)
/ Y# Y5 @1 x, v% D+ y8 D        th(ii,1)=i;
        ii=ii+1;
    end
4 B0 S6 k  P, u0 Q: lend
9 z. S+ d* X& D% q/ \sizeth=size(th);
% X5 k- B6 w! T+ a3 Kfor iy=1:sizeth(1)
tth(iy,iii)=th(iy);
- M  j0 Z, f4 Z7 d6 \* O* Fend
end

) ?, @/ s3 J% U: a) y" y, P后面总是出错  请帮忙改一下