正十二面体和正二十面体的程序.doc

《正十二面体和正二十面体的程序.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、正十二面体的源程序：phi=(1+sqrt(5))/2;vert=[1/phiphi0;-1/phiphi0;1/phi-phi0;-1/phi-phi0];vert=[vert;phi01/phi;-phi01/phi;phi0-1/phi;-phi0-1/phi];vert=[vert;01/phiphi;0-1/phiphi;01/phi-phi;0-1/phi-phi];vert=[vert;111;1-11;11-1;-111;-1-11;-11-1;-1-1-1;1-1-1];fac=[341710146819417916617105139101414320753419122081

2、811121916218867201211152115111813571519131216];h=patch('faces',fac,'vertices',vert,'FaceColor','r');view(3);%设置视角%set(h,'FaceAlpha',0.5);%设置正12面体透明度light('Posi',[0-1.70.5]);lightangle(-45,60);%建立光源并设置光源视角lightingflat;%设置光照模式materialmetal;%设置面的反射属性axisequal;%设置坐标轴显示方式%xlabel('X');ylabel('Y');zlabel('

3、Z');%为坐标轴加标签axisoff正二十面体的源程序：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=[00-h;vert;00a*sqrt(3)/2+h];fac=[1231341451561622372611271137834848945959105610610117812891291012101112711

4、12];h=patch('faces',fac,'vertices',vert,'FaceColor','r');view(3);%设置视角%set(h,'FaceAlpha',0.5);%设置正12面体透明度light('Posi',[100100100]);lightangle(30,30);%建立光源并设置光源视角lightingflat;%设置光照模式materialmetal;%设置面的反射属性axisequal;%设置坐标轴显示方式%xlabel('X');ylabel('Y');zlabel('Z');%为坐标轴加标签axisoff