threedshearing.m

beamlet变化的工具箱

% s=1;
% v3=Shear3D(v1,1,1,atan(-1+(2*s-2)/n),1);
% subplot(2,3,3);
% p3a=patch(isosurface(v3,.1),'facecolor','y');
% p3b=patch(isocaps(v3,.1),'facecolor','y');
% light
% z=((s-(n/2)-1)/(n/2))*(n/2-[n 0]);
% vertices=[0,0,n/2+z(1);0,n,n/2+z(2);n,n,n/2+z(2);n,0,n/2+z(1);0,0,3*n/2+z(1);0,n,3*n/2+z(2);n,n,3*n/2+z(2);n,0,3*n/2+z(1)];
% faces=[1,2,3,4;5,6,7,8;1 2 6 5;3 4 8 7];
% p3c=patch('faces',faces,'vertices',vertices,'facecolor','n','EdgeColor','b');
% p3d=patch('faces',faces,'vertices',vertices2,'facecolor','n','EdgeColor','r');
% axis equal
% axis off
% box
% set(gca,'view',vw,'Xlim',[0-1 n+1],'Ylim',[0-1 n+1],'Zlim',[0-1 2*n+1]);
%
% 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]
%