beamlet3dfig15.m

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

function Beamlet3Dfig15(OpenNewWindow,HaveTitle,LoadData)

%Auxillary functions: 3D beamlets
LoadData=0;
if nargin<2
    HaveTitle=1;
end
if nargin<1
    OpenNewWindow=1;
end
if OpenNewWindow
    figure
end
n=16;
ind=[8,8,1,1;8,8,1,8;8,8,1,16;8,8,8,1;8,8,8,8;8,8,8,16;8,8,16,1;8,8,16,8;8,8,16,16];
for i=1:9
    subplot(3,3,i)
    B=zeros(n,n,n,n);
    B(ind(i,1),ind(i,2),ind(i,3),ind(i,4))=1;
    vol=adj_newbt3aa(B);
    p=patch(isosurface(vol,0),'facecolor','g');
    set(gca,'view',[145 20],'Xlim',[0 n],'Ylim',[0 n],'Zlim',[0 n]);
    axis square
    light
    box on
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]
%