正十二面体的源程序:
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); %
设置?/p>
12
面体透明?/p>
light('Posi',[0 -1.7 0.5]);
lightangle(-45,60); %
建立光源并设置光源视?/p>
lighting flat; %
设置光照模式
material metal; %
设置面的反射属?/p>
axis equal; %
设置坐标轴显示方?/p>
%xlabel('X'); ylabel('Y'); zlabel('Z'); %
为坐标轴加标?/p>
axis off