tetraèdre
Lfacesini:=[[[0.57,0.57,0.57],[0.57,-0.57,-0.57],[-0.57,0.57,-0.57]],[[0.57,0.57,0.57],[-0.57,-0.57,0.57],[0.57,-0.57,-0.57]],[[0.57,0.57,0.57],[-0.57,0.57,-0.57],[-0.57,-0.57,0.57]],[[0.57,-0.57,-0.57],[-0.57,-0.57,0.57],[-0.57,0.57,-0.57]]]


LfacesPOL=
[[[[1/3*sqrt(3),1/3*sqrt(3),1/3*sqrt(3)],[1/3*sqrt(3)*K,0,0],[-1/3*sqrt(3)*K/(K-4),-1/3*sqrt(3)*K/(K-4),1/3*sqrt(3)*K/(K-4)],[0,1/3*sqrt(3)*K,0]],[[1/3*sqrt(3),-1/3*sqrt(3),-1/3*sqrt(3)],[1/3*sqrt(3)*K,0,0],[-1/3*sqrt(3)*K/(K-4),-1/3*sqrt(3)*K/(K-4),1/3*sqrt(3)*K/(K-4)],[0,0,-1/3*sqrt(3)*K]],[[-1/3*sqrt(3),1/3*sqrt(3),-1/3*sqrt(3)],[0,0,-1/3*sqrt(3)*K],[-1/3*sqrt(3)*K/(K-4),-1/3*sqrt(3)*K/(K-4),1/3*sqrt(3)*K/(K-4)],[0,1/3*sqrt(3)*K,0]]],[[[1/3*sqrt(3),1/3*sqrt(3),1/3*sqrt(3)],[0,0,1/3*sqrt(3)*K],[-1/3*sqrt(3)*K/(K-4),1/3*sqrt(3)*K/(K-4),-1/3*sqrt(3)*K/(K-4)],[1/3*sqrt(3)*K,0,0]],[[-1/3*sqrt(3),-1/3*sqrt(3),1/3*sqrt(3)],[0,0,1/3*sqrt(3)*K],[-1/3*sqrt(3)*K/(K-4),1/3*sqrt(3)*K/(K-4),-1/3*sqrt(3)*K/(K-4)],[0,-1/3*sqrt(3)*K,0]],[[1/3*sqrt(3),-1/3*sqrt(3),-1/3*sqrt(3)],[0,-1/3*sqrt(3)*K,0],[-1/3*sqrt(3)*K/(K-4),1/3*sqrt(3)*K/(K-4),-1/3*sqrt(3)*K/(K-4)],[1/3*sqrt(3)*K,0,0]]],[[[1/3*sqrt(3),1/3*sqrt(3),1/3*sqrt(3)],[0,1/3*sqrt(3)*K,0],[1/3*sqrt(3)*K/(K-4),-1/3*sqrt(3)*K/(K-4),-1/3*sqrt(3)*K/(K-4)],[0,0,1/3*sqrt(3)*K]],[[-1/3*sqrt(3),1/3*sqrt(3),-1/3*sqrt(3)],[0,1/3*sqrt(3)*K,0],[1/3*sqrt(3)*K/(K-4),-1/3*sqrt(3)*K/(K-4),-1/3*sqrt(3)*K/(K-4)],[-1/3*sqrt(3)*K,0,0]],[[-1/3*sqrt(3),-1/3*sqrt(3),1/3*sqrt(3)],[-1/3*sqrt(3)*K,0,0],[1/3*sqrt(3)*K/(K-4),-1/3*sqrt(3)*K/(K-4),-1/3*sqrt(3)*K/(K-4)],[0,0,1/3*sqrt(3)*K]]],[[[1/3*sqrt(3),-1/3*sqrt(3),-1/3*sqrt(3)],[0,-1/3*sqrt(3)*K,0],[1/3*sqrt(3)*K/(K-4),1/3*sqrt(3)*K/(K-4),1/3*sqrt(3)*K/(K-4)],[0,0,-1/3*sqrt(3)*K]],[[-1/3*sqrt(3),-1/3*sqrt(3),1/3*sqrt(3)],[0,-1/3*sqrt(3)*K,0],[1/3*sqrt(3)*K/(K-4),1/3*sqrt(3)*K/(K-4),1/3*sqrt(3)*K/(K-4)],[-1/3*sqrt(3)*K,0,0]],[[-1/3*sqrt(3),1/3*sqrt(3),-1/3*sqrt(3)],[-1/3*sqrt(3)*K,0,0],[1/3*sqrt(3)*K/(K-4),1/3*sqrt(3)*K/(K-4),1/3*sqrt(3)*K/(K-4)],[0,0,-1/3*sqrt(3)*K]]]]