plotcube.m

用MATLAB实现模拟立方体的重构

function plotcube(X,T)
%画3D模型函数(function)
%plotcube(X)  只有一个参数时按照缺省属性画线和点
%此函数只能够画3维的立方体，且定点按照一定的规律标记
%其中第一个参数为物体定点坐标矩阵，如：X(:,i)为第i个定点坐标的列向量
%第二个参数T为画线属性设置函数，使用时应用如下格式：plot3data(X,'r:')
X11=[X(:,1)];
X12=[X(:,2)];
X13=[X(:,3)];
X14=[X(:,4)];
X15=[X(:,5)];
X16=[X(:,6)];
X17=[X(:,7)];
X18=[X(:,8)];

%########################################
%顶点标记
plot3(X11(1),X11(2),X11(3),'k.');
plot3(X12(1),X12(2),X12(3),'k.');
plot3(X13(1),X13(2),X13(3),'k.');
plot3(X14(1),X14(2),X14(3),'k.');
plot3(X15(1),X15(2),X15(3),'k.');
plot3(X16(1),X16(2),X16(3),'k.');
plot3(X17(1),X17(2),X17(3),'k.');
plot3(X18(1),X18(2),X18(3),'k.');
text(X11(1),X11(2),X11(3),'1');
text(X12(1),X12(2),X12(3),'2');
text(X13(1),X13(2),X13(3),'3');
text(X14(1),X14(2),X14(3),'4');
text(X15(1),X15(2),X15(3),'5');
text(X16(1),X16(2),X16(3),'6');
text(X17(1),X17(2),X17(3),'7');
text(X18(1),X18(2),X18(3),'8');

%部分连线
Xt=[X11(1) X12(1) X13(1) X14(1) X15(1) X16(1) X17(1) X18(1)];
Yt=[X11(2) X12(2) X13(2) X14(2) X15(2) X16(2) X17(2) X18(2)];
Zt=[X11(3) X12(3) X13(3) X14(3) X15(3) X16(3) X17(3) X18(3)];
if nargin~=1    
    plot3(Xt,Yt,Zt,T);
else plot3(Xt,Yt,Zt);
end
%补线(4185)(7236)
Xt=[X14(1) X11(1) X18(1) X15(1)];
Yt=[X14(2) X11(2) X18(2) X15(2)];
Zt=[X14(3) X11(3) X18(3) X15(3)];
if nargin~=1    
    plot3(Xt,Yt,Zt,T);
else plot3(Xt,Yt,Zt);
end
Xt=[X17(1) X12(1) X13(1) X16(1)];
Yt=[X17(2) X12(2) X13(2) X16(2)];
Zt=[X17(3) X12(3) X13(3) X16(3)];
if nargin~=1    
    plot3(Xt,Yt,Zt,T);
else plot3(Xt,Yt,Zt);
end