beamlet3dfig08.m

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

function Beamlet3Dfig08(OpenNewWindow,HaveTitle,LoadData)

% auxillary funcyion: Adj_FastSlantStack
% for getting the negative of the plots set sgn=1
% if you don't have the slant stack package set LoadData=1

if nargin<3
    LoadData=0;
end

if nargin<2
    HaveTitle=1;
end

if nargin<1
    OpenNewWindow=1;
end
if OpenNewWindow
    figure
end
if LoadData
    load Beamlet3Dfig08
end

sgn=-1;
ind=[16 1;16 5;16 9;16 13;16 17;16 21;16 25;16 29;16 32;5 1;21 1;10 9;20 9;9 17;21 17;21 25];

for i=1:16
    subplot(4,4,i);
    x=zeros(32,32);
    x(ind(i,1),ind(i,2))=1;
    if LoadData
        im=vv(:,:,i);
    else
        im=Adj_FastSlantStack(x);
    end
    imagesc(sgn*abs(flipud(im)))
    axis image
    set(gca,'XTick',[],'YTick',[]);
    colormap gray
    if HaveTitle
        title(strcat('b(',num2str(ind(i,1)),',',num2str(ind(i,2)),')'))
    end
    
 end
 
 if HaveTitle
    %text(15,-70,'2D Slant Stack Lines','fontsize',14,'fontunits','normalized');
    text(-50,-70,'2D Slant Stack Lines','fontsize',10,'fontunits','normalized');
 end
%
% 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]
%