内容发布更新时间 : 2024/5/28 10:59:14星期一 下面是文章的全部内容请认真阅读。

正十二面体的源程序： phi = (1+sqrt(5))/2;

vert = [1/phi phi 0;-1/phi phi 0;1/phi -phi 0;-1/phi -phi 0]; vert = [vert;phi 0 1/phi; -phi 0 1/phi;phi 0 -1/phi;-phi 0 -1/phi]; vert = [vert;0 1/phi phi;0 -1/phi phi;0 1/phi -phi;0 -1/phi -phi]; vert = [vert;1 1 1;1 -1 1; 1 1 -1;-1 1 1;-1 -1 1;-1 1 -1;-1 -1 -1;1 -1 -1]; fac = [3 4 17 10 14 6 8 19 4 17 9 16 6 17 10 5 13 9 10 14 14 3 20 7 5 3 4 19 12 20 8 18 11 12 19 16 2 18 8 6 7 20 12 11 15 2 1 15 11 18 13 5 7 15 1 9 13 1 2 16];

h = patch('faces',fac,'vertices',vert,'FaceColor','r'); view(3); %设置视角

%set(h,'FaceAlpha',0.5); %设置正12面体透明度 light('Posi',[0 -1.7 0.5]);

lightangle(-45,60); %建立光源并设置光源视角 lighting flat; %设置光照模式 material metal; %设置面的反射属性 axis equal; %设置坐标轴显示方式

%xlabel('X'); ylabel('Y'); zlabel('Z'); %为坐标轴加标签 axis off

正二十面体的源程序： t = 0:2*pi/5:(2*pi-2*pi/5); vert = [cos(t'),sin(t'),zeros(5,1)]; t = t'+pi/5; a = 2*sin(pi/5);

vert=[vert;cos(t),sin(t),a*sqrt(3)*ones(5,1)/2]; h = sqrt(0.75*a^2-cos(pi/5)^2); vert = [0 0 -h;vert;0 0 a*sqrt(3)/2+h]; fac = [1 2 3 1 3 4 1 4 5 1 5 6 1 6 2 2 3 7 2 6 11 2 7 11 3 7 8 3 4 8 4 8 9 4 5 9 5 9 10 5 6 10 6 10 11 7 8 12 8 9 12 9 10 12 10 11 12 7 11 12];

h = patch('faces',fac,'vertices',vert,'FaceColor','r');

view(3); %设置视角

%set(h,'FaceAlpha',0.5); %设置正12面体透明度 light('Posi',[100 100 100]);

lightangle(30,30); %建立光源并设置光源视角 lighting flat; %设置光照模式 material metal; %设置面的反射属性 axis equal; %设置坐标轴显示方式

%xlabel('X'); ylabel('Y'); zlabel('Z'); %为坐标轴加标签 axis off