Basic Examples (2)
Basic Examples
(2)
Find the Monge point and six midplanes for a tetrahedron:
In[86]:=
Out[86]=
,-,,Hyperplane{-2,1,2},0,-1,-,Hyperplane{-3,0,5},-,-,1,Hyperplane{1,2,2},,-,-,Hyperplane{-1,-1,3},-,-1,2,Hyperplane{3,1,0},,0,,Hyperplane{4,2,-3},0,-,2
61
38
63
19
43
19
1
2
1
2
3
2
3
2
1
2
1
2
3
2
1
2
1
2
1
2
———
A graphic of a tetrahedron, the Monge point and the six midplanes:
In[87]:=
tet={{0,1,-2},{1,3,3},{3,-1,0},{-1,0,0}};monge=[tet];Graphics3D[{Tube[#]&/@Subsets[tet,{2}],Green,Sphere[monge[[1]],.2],Opacity[.6],Red,Polygon/@Subsets[tet,{3}],Yellow,Opacity[.2],monge[[2]]}]
Out[89]=
Scope (1)
Scope
(1)