Matlab - Graficas un tetraedro

x=[-1    -1     1     1    -1    -1     1     1     0]';

y=[-1     1    -1     1    -1     1    -1     1     0]';

z=[-1    -1    -1    -1     1     1     1     1     0]';

pt=delaunayTriangulation(x,y,z);

tetramesh(pt);

camorbit(25,0)

a = input('arista: ');

x = [0 0 a*sqrt(3)/2 a*sqrt(3)/6]';

y = [0 a a/2 a/2]';

z = [0 0 0 a*sqrt(6)/3]';

pt = delaunayTriangulation(x,y,z);

tetramesh(pt);