dmakessfigure1.m

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

function MakeSSFigure1(varargin)
% MakeSSFigure1.m -- Figure 1 of Slant Stack Paper
% Usage: MAKESSFIGURE1 will start a new figure window and plot Figure 1 of Slant Stack Paper.
%        MAKESSFIGURE1(n) for any argument type n will plot the figure on the current figure 
%        window and plot Figure 1 of Slant Stack Paper.
if nargin == 0
	 figure;
else
     gcf;
end
%set(gcf,'Visible','off')

	X = zeros(32);
	X(6,9) = 1;
	S = FastSlantStack(X);
	X(5:7,8:10) = ones(3,3);
	subplot(3,2,1)
    imagesc(X)
	axis('image')
	colormap(hot)
	subplot(3,2,2)
    imagesc(abs(real(S)))
	axis('image')
	colormap(1-gray)
	%
	norm(imag(S))
	%
	X = 0 .* X;
	X(19,23) =1;
	S = FastSlantStack(X);
	X(18:20,22:24) = ones(3,3);
	subplot(3,2,3)
	imagesc(X)
	axis('image')
	colormap(hot)
	subplot(3,2,4)
	imagesc(abs(real(S)))
	axis('image')
	colormap(1-gray)
	%
	norm(imag(S))
	%
	X = 0 .* X;
	X(12,28) =1;
	S = FastSlantStack(X);
	X(11:13,27:29) = ones(3,3);
	subplot(3,2,5)
	imagesc(X)
	axis('image')
	colormap(hot)
	subplot(3,2,6)
	imagesc(abs(real(S)))
	axis('image')
	colormap(1-gray)
	%
	norm(imag(S))

	
%
% 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]
%