beamlet3dfig04.m

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

function Beamlet3Dfig04(OpenNewWindow,HaveTitle,LoadData)

%auxillary function: cubegrid
LoadData=0;
if nargin<2
    HaveTitle=1;
end
if nargin<1
    OpenNewWindow=1;
end
if OpenNewWindow
    figure
end


subplot(1,3,1)
hold on
cubegrid(8,0,0,0)
if HaveTitle
    title('0th scale grid')
end
%zoom(1.2)

%cameramenu
set(gca,'view',[-30,30],'Projection','orthographic');
axis off
axis image
zoom(0.8)
subplot(1,3,2)
hold on
n=4;
d=3;
for x=0:1,
    for y =0:1,
        for z=0:1,
            cubegrid(4,x*(n+d),y*(n+d),z*(n+d))
        end
    end
end
if HaveTitle
    title('1st scale grid')
end
%cameramenu
set(gca,'view',[-30,30],'Projection','orthographic');
axis off
axis image
%zoom(1.2)

subplot(1,3,3)
hold on
n=2;
d1=1.5;
d2=3;
for x=0:1,
    for y =0:1,
        for z=0:1,
            for i=0:1,
                for j =0:1,
                    for k=0:1,
                        cubegrid(n,i*(n+d1)+x*(2*n+d2),j*(n+d1)+y*(2*n+d2),k*(n+d1)+z*(2*n+d2))
                    end
                end 
            end

        end
    end
end
if HaveTitle
    title('2nd scale grid')
end

%cameramenu
set(gca,'view',[-30,30],'Projection','orthographic');
axis off
axis image

%zoom(1.3)
set(GCF, 'Renderer','Zbuffer');
%
% 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]
%