【正文】 irrorShrink(u)。 v = BoundMirrorShrink(v)。%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%function imdisp(I)% 動態(tài)顯示圖像x = (0:255)./255。grey = [x。x。x]39。 minI = min(min(I))。 maxI = max(max(I))。I = (IminI)/(maxIminI)*255。image(I)。 axis(39。square39。,39。off39。)。 colormap(grey)。%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%function [X,map] = rawread(filename,n,m)。% 讀入位圖文件(*.raw 和 *.pmg).% X為原始圖像,map為色彩映射(可選)dot = max(find(filename == 39。.39。))。suffix = filename(dot+1:dot+3)。% 獲取文件名if strcmp(suffix,39。pgm39。) | strcmp(suffix,39。raw39。) disp(sprintf(39。\nopens %s file\n39。,filename))。 fp = fopen(filename,39。rb39。,39。b39。)。 if (fp0) error([39。打不開 39。 filename 39。.39。])。 end % 取出文件頭 if strcmp(suffix,39。pgm39。) head = fread(fp,2,39。uchar39。)。 % pgm格式文件 magic number: P5 if ~strcmp(head,39。P539。), fprintf(1,39。\n Magic Number : %s\n39。,head)。 else fprintf(1,39。\n Bad Magic Number : %s\n39。,head)。 error(39。讀文件失敗 39。)。 end c = fread(fp,1,39。uchar39。)。 %分離P5,讀取文件內(nèi)容 precreator = fread(fp,1,39。uchar39。)。 % 尋找39。39。字符 if precreator == 39。39。, c = setstr(20)。 cr = setstr(10)。 while c ~= cr, c = fread(fp,1,39。uchar39。)。 creator = [creator,c]。 end。 fprintf(1,39。\n creator : %s\n39。,creator)。 else fprintf(39。\n No creator signature\n39。)。 fseek(fp,1,39。cof39。)。 end。endif nargin 2,% 設(shè)置文件大小為256*256 if strcmp(suffix,39。raw39。) disp(39。RAW 文件大小設(shè)置為 256x25639。)。 n = 256。 m = 256。 else % 處理pmg文件 % 讀入文件大小和長度 disp(39。讀入大小39。)。 n = fscanf(fp,39。%d39。,1)。 tn = num2str(n)。 disp([39。 xsize = 39。 tn])。 m = fscanf(fp,39。%d39。,1)。 tm = num2str(m)。 disp([39。 ysize = 39。 tm])。 p = fscanf(fp,39。%d39。,1)。 tp = num2str(p)。 disp([39。 depth = 39。 tp])。 c = fread(fp,1,39。uchar39。)。 end。 end % 創(chuàng)建灰色調(diào)色板,范圍在(0,1)間 disp(39。 創(chuàng)建灰色調(diào)色板 39。)。 for i=1:256, map(i,[1:3])=[i/256,i/256,i/256]。 end。 % 讀入圖像 disp(39。 讀入圖像數(shù)據(jù) ...39。)。 [X,l] = fread(fp,[n,m],39。uchar39。)。 if l ~= m*n, l, error(39。HSI 圖像長度出錯39。), end X = X39。+1。 fclose(fp)。 disp(39。end39。)。else error(39。圖像數(shù)據(jù)必須為 39。39。raw39。39。 或 39。39。pgm39。39。格式.39。)end%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%function rawwrite(X,MAX,filename)。% 圖像輸出% MAX表示輸出灰度圖像的最大灰度級disp(39。RawWrite39。)。dot = max(find(filename == 39。.39。))。suffix = filename(dot+1:dot+3)。if strcmp(suffix,39。pgm39。) | strcmp(suffix,39。raw39。) disp(sprintf(39。\nopens %s file\n39。,filename))。 fp = fopen(filename,39。wb39。,39。b39。)。 if (fp0) error([39。Cannot open 39。 filename 39。.39。])。 end [height,width] = size(X)。% 寫入文件頭 if strcmp(suffix,39。pgm39。) fprintf(fp,39。P5\n39。)。 % pgm文件magic number : P5 fprintf(fp, 39。%d %d\n39。, [height width])。 if (MAX255) %大于255灰度級的默認(rèn)為255 MAX = 255。 end fprintf(fp, 39。%d\n39。, MAX)。 end % 寫入圖像數(shù)據(jù) disp(39。 Writes image data ...39。)。 l = fwrite(fp,X,39。uchar39。)。 if l ~= height*width, l, error(39。HSI image file is wrong length39。), end fclose(fp)。 disp(39。end39。)。else error(39。Image file name must end in 39。39。raw39。39。 or 39。39。pgm39。39。.39。)end%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%function [x,y] = snakedeform(x,y,alpha,beta,gamma,kappa, kappap, fx,fy,ITER)% 指定外力場區(qū)域進(jìn)行蛇行變形(附加外部壓力)% alpha表示柔性參數(shù), beta表示剛性參數(shù), gamma表示粘性參數(shù), kappa表示外力權(quán)重% fx,fy表示外力區(qū)域, ITER表示迭代次數(shù)% 產(chǎn)生蛇形參數(shù)N = length(x)。alpha = alpha* ones(1,N)。 beta = beta*ones(1,N)。% 產(chǎn)生5個對角向量alpham1 = [alpha(2:N) alpha(1)]。alphap1 = [alpha(N) alpha(1:N1)]。betam1 = [beta(2:N) beta(1)]。betap1 = [beta(N) beta(1:N1)]。a = betam1。b = alpha 2*beta 2*betam1。c = alpha + alphap1 +betam1 + 4*beta + betap1。d = alphap1 2*beta 2*betap1。e = betap1。% 產(chǎn)生參數(shù)矩陣A = diag(a(1:N2),2) + diag(a(N1:N),N2)。A = A + diag(b(1:N1),1) + diag(b(N), N1)。A = A + diag(c)。A = A + diag(d(1:N1),1) + diag(d(N),(N1))。A = A + diag(e(1:N2),2) + diag(e(N1:N),(N2))。invAI = inv(A + gamma * diag(ones(1,N)))。for count = 1:ITER, vfx = interp2(fx,x,y,39。*linear39。)。 vfy = interp2(fy,x,y,39。*linear39。)。 % 附加壓力 xp = [x(2:N)。x(1)]。 yp = [y(2:N)。y(1)]。 xm = [x(N)。x(1:N1)]。 ym = [y(N)。y(1:N1)]。 qx = xpxm。 qy = ypym。 pmag = sqrt(qx.*qx+qy.*qy)。 px = qy./pmag。 py = qx./pmag。% 蛇形變形 x = invAI * (gamma* x + kappa*vfx + kappap.*px)。 y = invAI * (gamma* y + kappa*vfy + kappap.*py)。end%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%function h = snakedisp(x,y,style)% 蛇形顯示hold on% 轉(zhuǎn)換為列向量x = x(:)。 y = y(:)。if nargin == 3 h=plot([x。x(1,1)],[y。y(1,1)],style)。 hold offelse disp(39。: 輸入?yún)?shù)不正確39。)。 end%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%function y = snakeindex(IDX)% snake主程式N = length(IDX)。y=1::N+。x=1:N。 y(2*x(IDX==0))=[]。%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%function [x