dmakessfigure3.m

来自「beamlet变化的工具箱」· M 代码 · 共 15 行

function MakeSSFigure3(varargin)
% MakeSSFigure3.m -- Figure 3 of Slant Stack Paper
% Usage: MAKESSFIGURE3 will start a new figure window and plot Figure 3 of Slant Stack Paper.
%        MAKESSFIGURE3(n) for any argument type n will plot the figure on the current figure 
%        window and plot Figure 3 of Slant Stack Paper.
if nargin == 0
	 figure;
else
     gcf;
end

% Ilustrate Shearing --
n1 = 64;
n2 = 128;
ell = 29;
theta = ell/n2*pi;
%
Img    = ReadImage('Lincoln');
BigImg = zeros(n2,n1);
BigImg((n1+1 - (n1/2)):(n1+ n1/2),:) = Img;
%
ExactShift  = zeros(n2,n1);

%
% Build matrices of Difference
for i=1:n1,
	vshift = Shift1dSignal(BigImg(:,i),(i-n1/2-1).*sin(theta));
	ExactShift(:,i) = real(vshift(:));
end
%

%figure;
subplot(1,2,1);
imagesc(BigImg);
axis('image')
title('Image Embedded in Zeros')
colormap(gray)
subplot(1,2,2);
imagesc(ExactShift);
axis('image')
title(sprintf('Image Sheared %f radians; m= 2n',theta))
colormap(gray)
%
% Part of BeamLab Version:200
% Built:Friday,23-Aug-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%
%
% Part of BeamLab Version:200
% Built:Saturday,14-Sep-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%