plotobject.m

用MATLAB实现计算机视觉中三维重构所需的基本矩阵的运算

%画立方体
% X为立方体顶点坐标矩阵 T为设置颜色或线条类型参数
function plotobject(X,T)
P1=[X(:,1)];
P2=[X(:,2)];
P3=[X(:,3)];
P4=[X(:,4)];
P5=[X(:,5)];
P6=[X(:,6)];
P7=[X(:,7)];
P8=[X(:,8)];

% 画出8个顶点
plot3(P1(1),P1(2),P1(3),'r.');
plot3(P2(1),P2(2),P2(3),'r.');
plot3(P3(1),P3(2),P3(3),'r.');
plot3(P4(1),P4(2),P4(3),'r.');
plot3(P5(1),P5(2),P5(3),'r.');
plot3(P6(1),P6(2),P6(3),'r.');
plot3(P7(1),P7(2),P7(3),'r.');
plot3(P8(1),P8(2),P8(3),'r.');

% text(P1(1),P1(2),P1(3),'1');
% text(P2(1),P2(2),P2(3),'2');
% text(P3(1),P3(2),P3(3),'3');
% text(P4(1),P4(2),P4(3),'4');
% text(P5(1),P5(2),P5(3),'5');
% text(P6(1),P6(2),P6(3),'6');
% text(P7(1),P7(2),P7(3),'7');
% text(P8(1),P8(2),P8(3),'8');

%顶点连线 1－2－3－4－8－7－6－5－1－4
Xt=[P1(1) P2(1) P3(1) P4(1) P8(1) P7(1) P6(1) P5(1) P1(1) P4(1)];
Yt=[P1(2) P2(2) P3(2) P4(2) P8(2) P7(2) P6(2) P5(2) P1(2) P4(2)];
Zt=[P1(3) P2(3) P3(3) P4(3) P8(3) P7(3) P6(3) P5(3) P1(3) P4(3)];
if nargin~=1  %参数是否为1
    plot3(Xt,Yt,Zt,T);
else
    plot3(Xt,Yt,Zt);
end

% Xt=[P1(1) P4(1)];
% Yt=[P1(2) P4(2)];
% Zt=[P1(3) P4(3)];
% if nargin~=1 
%     plot3(Xt,Yt,Zt,T);
% else
%     plot3(Xt,Yt,Zt);
% end
% hold on;

% 连线 2－6
Xt=[P2(1) P6(1)];
Yt=[P2(2) P6(2)];
Zt=[P2(3) P6(3)];
if nargin~=1 
    plot3(Xt,Yt,Zt,T);
else
    plot3(Xt,Yt,Zt);
end

% 连线 3－7
Xt=[P3(1) P7(1)];
Yt=[P3(2) P7(2)];
Zt=[P3(3) P7(3)];
if nargin~=1 
    plot3(Xt,Yt,Zt,T);
else
    plot3(Xt,Yt,Zt);
end

% 连线5－8
Xt=[P5(1) P8(1)];
Yt=[P5(2) P8(2)];
Zt=[P5(3) P8(3)];
if nargin~=1 
    plot3(Xt,Yt,Zt,T);
else
    plot3(Xt,Yt,Zt);
end