putcolor10.m

用matlab实现图像融合

function P = putcolor10(A10, sizeP)
%------------------------------------------------------------------------------
%
% Gridfunction A10 is upsampled.
%
%
% Design and implementation by:
% Dr. Paul M. de Zeeuw <[e-mail]>  http://homepages.cwi.nl/~pauldz/
% Last Revision: June 6, 1999.
% Copyright 1999-2002 Stichting CWI, Amsterdam
%------------------------------------------------------------------------------
[n, m] = size(A10);
if nargin == 2
  nP = sizeP(1);
  mP = sizeP(2);
  if nP < 2*n
    error(' putcolor10 - 1st dimension of P too small ')
  end
  if mP < 2*m-1
    error(' putcolor10 - 2nd dimension of P too small ')
  end
elseif nargin == 1
  nP = 2*n+1;
  mP = 2*m-1;
else
  error(' putcolor10 - wrong number of arguments ')
end
P=reshape(linspace(0,0,nP*mP),nP,mP);
P(2:2:nP, 1:2:mP)=A10;
%------------------------------------------------------------------------------