dir='D:\m\pic\s1\';
picname=importdata(strcat(dir,'c.txt'));

[m,n]=size(picname);
p=0;
q=0;

for i=1:m
  ml=mleft(strcat(dir,picname{i}));
  mr=mright(strcat(dir,picname{i}));
  q=mcombine(q,ml');
  %ȥһ
  p=mcombine(p,mr');
end

q=q(:,2:size(q,2));
p=p(:,2:size(p,2));
%ȥһ

per=0.6;
while per<1&per>0.3
  g=mcomp(p,q,per);
  %Ҫȥ1size(q,2)-1gһ0˲üȥ1
  if size(g,2)>(size(q,2))
    per=per+0.01;
  elseif size(g,2)<(size(q,2))
    per=per-0.01;
  else
    per=per+1;
  end
end

%ͨƥ顣

e=size(g,2);
g=g(:,2:e);
%ɾgĵһ

pics=mfind(g,1);
%picture sequence.

pic=imread(strcat(dir,picname{pics(1)+1}));
% ַ1ΪӦʵƣʵƴ0ʼimportdataļ1ʼ߲ͬ
sizepics=size(pics,2);

i=2;
while i<=sizepics
pic1=imread(strcat(dir,picname{pics(i)+1}));
pic=[pic pic1];
i=i+1;
end

imshow(pic)
imwrite(pic, strcat(dir,'hecheng.jpg'), 'Quality', 75); 