total=nntrte(tri,trl,tei,tel)

function total=nntrte(tri,trl,tei,tel)
[mte,n]=size(tei);
str=sum(tri'.*tri');
ste=sum(tei'.*tei');
p=zeros(mte,1);
q=ones(mte,1);
for i=1:mte;
    d=str+ste(i)-2*tei(i,:)*tri';
    [p(i),q(i)]=min(d);
end;
tel1=trl(q(:));
total=0;
for i=1:mte;
    if tel1(i)~=tel(i);
        total=total+1;
    end;
end;