drdrawfig10.m

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

function dRDrawFig10(OpenNewWindow,HaveTitle, LoadData)
%DrawFig10: Illustrate Slant Stack -- Slant Stack of Point images are broken lines

if nargin<2
    HaveTitle=1;
end
if nargin<1
    OpenNewWindow=1;
end
if OpenNewWindow
    figure
end

LoadData=0;

n1 = 64;
n2 = 128;
ell = 29;
theta = atan(2*ell/n1);
%
 
    %figure;
    X = zeros(32);
	X(6,9) = 1;
	S = FastSlantStack(X);
	X(5:7,8:10) = ones(3,3);
	subplot(2,3,1)
	imagesc(X)
	axis('image');set (gca,'XTick',[]);
    set (gca,'YTick',[]);%axis off
	%colormap(hot)
	subplot(2,3,2)
	imagesc(X)
	axis('image');set (gca,'XTick',[]);
    set (gca,'YTick',[]);%axis off
	%colormap(hot)
	%
	%
	X = 0 .* X;
	X(19,23) =1;
	S = FastSlantStack(X);
	X(18:20,22:24) = ones(3,3);
	subplot(2,3,3)
	imagesc(X)
	axis('image');set (gca,'XTick',[]);
    set (gca,'YTick',[]);%axis off
	colormap(hot)
	subplot(2,3,4)
	imagesc(abs(real(S)))
	axis('image');set (gca,'XTick',[]);
    set (gca,'YTick',[]);%axis off
	colormap(1-gray)
	%
	%
	X = 0 .* X;
	X(12,28) =1;
	S = FastSlantStack(X);
	X(11:13,27:29) = ones(3,3);
	subplot(2,3,5)
    imagesc(abs(real(S)))
	axis('image');set (gca,'XTick',[]);
    set (gca,'YTick',[]);%axis off
	colormap(1-gray)
	
	subplot(2,3,6)
	imagesc(abs(real(S)))
	axis('image');set (gca,'XTick',[]);
    set (gca,'YTick',[]);%axis off
	colormap(1-gray)
	%
%print -deps RawFig11.eps
% Copyright (c) 2002 Ana Georgina Flesia

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