[原创]自己编的一个拼图程序

射天狼

这两天着迷goolge earth抓图，编写了一个拼图的程序，主要是用到了imread imwrite和对话框几个知识点，很简单的。

1. % try color map computer
   
2. %[url]http://matlabspace.diy.myrice.com/webfiles/kidding/sp_01.htm[/url]
   
3. [p,filepath]=uigetfile('*.bmp','选择要打开的第一个图像文件')
   
4. if ~any(p) ,return,end
   
5. act=['x=imread(''' filepath p ''',''bmp'');'];
   
6. eval(act)
   
7. x=double(x);
   
8. [p,filepath]=uigetfile('*.bmp','选择要打开的第二个图像文件')
   
9. if ~any(p) ,return,end
   
10. act=['y=imread(''' filepath p ''',''bmp'');'];
    
11. eval(act)
    
12. prompt={'输入向左移动的像素个数'};
    
13. def={'125'};
    
14. dlgTitle='拼图';
    
15. lineNo=1;
    
16. answer=inputdlg(prompt,dlgTitle,lineNo,def);
    
17. use=answer{1};
    
18. imove=sscanf(use,'%f');
    
19. y=double(y);
    
20. [m n z]=size(x);
    
21. [mm n2 zz]=size(y);
    
22. nn=n+n2-imove;
    
23. nmid=int2str(nn);
    
24. nn=str2num(nmid);
    
25. %nn=uint8(nn);
    
26. nstar=nn-n2+1;
    
27. u=ones(m,nn,z);
    
28. u(1:end,1:n,1:end)=x(1:end,1:end,1:end);
    
29. u(1:end,nstar:end,1:end)=y(1:end,1:end,1:end);
    
30. u=uint8(round(u));
    
31. %i2=imcrop(x,[60 40 1000 800]);
    
32. imove=2*imove;
    
33. nn=nstar-imove;
    
34. 
    
35. uu=imcrop(u,[ nn 1 2*imove m ]);
    
36. figure(1)
    
37. image(uu)
    
38. daspect([7 7 1])
    
39. 
    
40. ButtonName=questdlg('您是否接受图片拼接的结果?', ...
    
41.                          '拼图', ...
    
42.                          '是保存结果','不重新拼图','是保存结果');
    
43. switch ButtonName,
    
44. case '是保存结果',
    
45.          disp('write in file');
    
46. [filename,filepath]=uiputfile('*.bmp','选择要保存的图像文件')
    
47. if ~any(filename) ,return,end
    
48. f=findstr(filename,'.bmp')
    
49. if ~any(f)
    
50. filename=[filename,'.bmp']
    
51. end
    
52. filename
    
53. usepath=[filepath,filename]
    
54. act=['imwrite(u,''' usepath ''',''bmp'');'];
    
55. %act=['save ',path,' lon  lat']
    
56. eval(act)
    
57. %imwrite(u,'caotry.bmp','bmp')
    
58. ok='保存文件成功';
    
59. disp(ok)
    
60.          
    
61.        case '不重新拼图',
    
62. 
    
63.          disp('star again')
    
64.        return
    
65.      end

复制代码

[ 本帖最后由 suffer 于 2006-10-9 21:05 编辑 ]

liwensheng

不行呀，运行不了

suffer

原帖由 liwensheng 于 2006-11-12 13:08 发表
不行呀，运行不了

运行没有什么问题

如果不行的话请说明错误信息

lf51999

filepath =

D:\WindowsXP Document\Document-FLiu\

??? Attempt to reference field of non-structure array.

Error in ==> imagesci\private\readbmp at 17
map = info.Colormap;

Error in ==> imread at 389
    [X, map] = feval(fmt_s.read, filename, extraArgs{:});

yelv123

我运行结果如下，也不行啊

filepath =

D:\applications\matlab71\work\

??? Attempt to reference field of non-structure array.

Error in ==> imagesci\private\readbmp at 17
map = info.Colormap;

Error in ==> imread at 308
    [X, map] = feval(fmt_s.read, filename, extraArgs{:});

guaike1314

??? Subscripted assignment dimension mismatch
貌似我这个错误是最低级的个错误吧？可额是个新手哦，看不明白