beamlet3dfig13.m

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

function Beamlet3Dfig10(OpenNewWindow,HaveTitle,LoadData)
LoadData=0;

if nargin<2
    HaveTitle=1;
end

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

v1=[-1 -1 0;-1 1 0;1 1 0;1 -1 0];              % z=0 red
v2=[-1 0 -1;-1 0 1;1 0 1;1 0 -1];              % y=0 green
v3=[-1 -1 -1;1 -1 -1;1 1 1; -1 1 1];           % z-y=0 blue
v4=[-1 -1 1;1 -1 1;1 1 -1; -1 1 -1];           % z+y=0  magenta
v5=[-1 -1 -0.5;1 -1 -0.5;1 1 0.5; -1 1 0.5];   % 2z-y=0 white
v6=[-1 -1 0.5;1 -1 0.5;1 1 -0.5; -1 1 -0.5];   % 2z+y=0 yelow
v7=[-1 -0.5 -1;1 -0.5 -1;1 0.5 1; -1 0.5 1];   % 2y-z=0 black
v8=[-1 0.5 -1;1 0.5 -1;1 -0.5 1; -1 -0.5 1];   % 2y+z=0 cyan
f=[1 2 3 4];
axis
set(gca,'XLimMode','manual','YLimMode','manual','ZLimMode','manual',...
    'XLim',[-1 1],'YLim',[-1 1],'ZLim',[-1 1]);
p1=patch('faces',f,'vertices',v1,'facecolor','r','LineWidth',1.5);
p2=patch('faces',f,'vertices',v2,'facecolor','g','LineWidth',1.5);
p3=patch('faces',f,'vertices',v3,'facecolor','b','LineWidth',1.5);
p4=patch('faces',f,'vertices',v4,'facecolor','m','LineWidth',1.5);
p5=patch('faces',f,'vertices',v5,'facecolor','w','LineWidth',1.5);
p6=patch('faces',f,'vertices',v6,'facecolor','y','LineWidth',1.5);
p7=patch('faces',f,'vertices',v7,'facecolor','k','LineWidth',1.5);
p8=patch('faces',f,'vertices',v8,'facecolor','c','LineWidth',1.5);
axis equal
box on
set (gca,'view',[-101, 14]);
%cameramenu
if HaveTitle
    title('shearings of a plane')
 end
 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]
%