matlab 已知八个顶点 绘制平行六面体

matlab 已知八个顶点 绘制平行六面体

%已知八个顶点 绘制平行六面体
clear all
d1=[1,0,0];
d2=[0,1,0];
d3=[-1,0,0];
d4=[0,-1,0];
d5=[2,0,3];
d6=[1,1,3];
d7=[0,0,3];
d8=[1,-1,3];
% 根据xy的坐标生成底面
x1=[d1(1),d2(1),d3(1),d4(1),d1(1)];
y1=[d1(2),d2(2),d3(2),d4(2),d1(2)];
z1=[d1(3),d2(3),d3(3),d4(3),d1(3)];
% 根据xy的坐标生成顶面
x2=[d5(1),d6(1),d7(1),d8(1),d5(1)];
y2=[d5(2),d6(2),d7(2),d8(2),d5(2)];
z2=[d5(3),d6(3),d7(3),d8(3),d5(3)];
x=[x1;x2];
y=[y1;y2];
z=[z1;z2];
figure(1)
mesh(x,y,z)
colormap(gray(1))
hidden off
axis equal
axis on
grid on
 
 

把八个点的坐标分别存成a~h，均为列向量，排序方式如下图：

C = [a b c d a e f g h e h d c g f b];
plot3(C(1,:), C(2,:), C(3,:), 'k');
axis equal;
望采纳，谢谢！