In[]:=
MarionTheorem::usage="In any triangle, let's trisect its sides and join each of the two points that define this division with the vertex of the opposite side of the triangle. A central hexagonal region is determined whose area is 1/10 of the area of the original triangle. In the command below, enter the coordinates of the vertices of the triangle in clockwise direction. Reference: culturacientifica.com; Personal";
In[]:=
In[]:=
MarionTheorem[tri={{-2,5},{7,12},{9,-4}}]
PointA | PointB | PointC | PointD | PointE | PointF |
1, 22 3 | 4, 29 3 | 23 3 20 3 | 25 3 4 3 | 16 3 | 5 3 |
PointJ | PointK | PointL | PointM | PointN | PointI |
3, 9 2 | 21 5 14 5 | 23 4 9 4 | 6, 21 5 | 21 4 25 4 | 19 5 |
TriangleArea | HexagonArea | Ratio |
79 | 79 10 | 1 10 |
Out[]=
