正二十面体的各个面位置点
MATLAB
clear all;clc;
%------------------------------------------------------
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];
scatter3(vert(:,1),vert(:,2),vert(:,3));