?? pingtu.m
字號:
% try color map computer
%[url]http://matlabspace.diy.myrice.com/webfiles/kidding/sp_01.htm[/url]
[p,filepath]=uigetfile('*.bmp','選擇要打開的第一個圖像文件')
if ~any(p) ,return,end
act=['x=imread(''' filepath p ''',''bmp'');'];
eval(act)
x=double(x);
[p,filepath]=uigetfile('*.bmp','選擇要打開的第二個圖像文件')
if ~any(p) ,return,end
act=['y=imread(''' filepath p ''',''bmp'');'];
eval(act)
prompt={'輸入向左移動的像素個數'};
def={'125'};
dlgTitle='拼圖';
lineNo=1;
answer=inputdlg(prompt,dlgTitle,lineNo,def);
use=answer{1};
imove=sscanf(use,'%f');
y=double(y);
[m n z]=size(x);
[mm n2 zz]=size(y);
nn=n+n2-imove;
nmid=int2str(nn);
nn=str2num(nmid);
%nn=uint8(nn);
nstar=nn-n2+1;
u=ones(m,nn,z);
u(1:end,1:n,1:end)=x(1:end,1:end,1:end);
u(1:end,nstar:end,1:end)=y(1:end,1:end,1:end);
u=uint8(round(u));
%i2=imcrop(x,[60 40 1000 800]);
imove=2*imove;
nn=nstar-imove;
uu=imcrop(u,[ nn 1 2*imove m ]);
figure(1)
image(uu)
daspect([7 7 1])
ButtonName=questdlg('您是否接受圖片拼接的結果?', ...
'拼圖', ...
'是保存結果','不重新拼圖','是保存結果');
switch ButtonName,
case '是保存結果',
disp('write in file');
[filename,filepath]=uiputfile('*.bmp','選擇要保存的圖像文件')
if ~any(filename) ,return,end
f=findstr(filename,'.bmp')
if ~any(f)
filename=[filename,'.bmp']
end
filename
usepath=[filepath,filename]
act=['imwrite(u,''' usepath ''',''bmp'');'];
%act=['save ',path,' lon lat']
eval(act)
%imwrite(u,'caotry.bmp','bmp')
ok='保存文件成功';
disp(ok)
case '不重新拼圖',
disp('star again')
return
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -