box1.m

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

function box1(n,dx,dy,dz);

% auxilary function used by Beamlet3Dfig03.m

v=[0 0 0;0 n 0;n n 0;n 0 0;0 0 n;0 n n;n n n;n 0 n];
v=v+[dx*ones(8,1),dy*ones(8,1),dz*ones(8,1)];
f=[1 2 3 4;5 6 7 8;1 5 6 2;2 6 7 3;3 7 8 4;4 8 5 1];
p=patch('faces',f,'vertices',v,'facecolor','w','linewidth',1);
set(gca,'view',[-30,30],'Projection','orthographic');
axis off
axis image
hold on

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