dmakessfigure2.m

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

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

% TestSlowSlantStack
	%figure;
    
	S = zeros(64);
	S(44,1) = 1;
	XX = Adj_FastSlantStack(S);
	S(42:46,1:5)=ones(5);
	subplot(4,4,1)
	imagesc(S)
	axis('image')
	colormap(1-gray)
	subplot(4,4,2)
	imagesc(abs(real(XX)))
	axis('image')
%
	S = zeros(64);
	S(37,8) = 1;
	XX = Adj_FastSlantStack(S);
	S(35:39,6:10)=ones(5);
	subplot(4,4,3)
	imagesc(S)
	axis('image')
	colormap(1-gray)
	subplot(4,4,4)
	imagesc(abs(real(XX)))
	axis('image')
%
	S = zeros(64);
	S(30,29) = 1;
	XX = Adj_FastSlantStack(S);
	S(28:32,26:30)=ones(5);
	subplot(4,4,5)
	imagesc(S)
	axis('image')
	colormap(1-gray)
	subplot(4,4,6)
	imagesc(abs(real(XX)))
	axis('image')
%
	S = zeros(64);
	S(20,37) = 1;
	XX = Adj_FastSlantStack(S);
	S(18:22,35:39)=ones(5);
	subplot(4,4,7)
	imagesc(S)
	axis('image')
	colormap(1-gray)
	subplot(4,4,8)
	imagesc(abs(real(XX)))
	axis('image')
	
	S = zeros(64);
	S(28,44) = 1;
	XX = Adj_FastSlantStack(S);
	S(26:30,42:46)=ones(5);
	subplot(4,4,9)
	imagesc(S)
	axis('image')
	colormap(1-gray)
	subplot(4,4,10)
	imagesc(abs(real(XX)))
	axis('image')
%
	S = zeros(64);
	S(28,55) = 1;
	XX = Adj_FastSlantStack(S);
	S(26:30,53:57)=ones(5);
	subplot(4,4,11)
	imagesc(S)
	axis('image')
	colormap(1-gray)
	subplot(4,4,12)
	imagesc(abs(real(XX)))
	axis('image')
%
	S = zeros(64);
	S(28,60) = 1;
	XX = Adj_FastSlantStack(S);
	S(26:30,58:62)=ones(5);
	subplot(4,4,13)
	imagesc(S)
	axis('image')
	colormap(1-gray)
	subplot(4,4,14)
	imagesc(abs(real(XX)))
	axis('image')
%
	S = zeros(64);
	S(28,64) = 1;
	XX = Adj_FastSlantStack(S);
	S(26:30,60:64)=ones(5);
	subplot(4,4,15)
	imagesc(S)
	axis('image')
	colormap(1-gray)
	subplot(4,4,16)
	imagesc(abs(real(XX)))
	axis('image')

%
%	Copyright (c) 2001 Amir Avercbuch and David L. Donoho
%
%
% 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]
%