In[]:=
NobbsPoints::usage=" Given the base triangle, the Gergonne triangle is built, which is formed with the three tangential poiints of the circle inscribed with each side of the base triangle. Then the sides of both triangles are prolonged until they intersect with three points D', E' and F' which are colineal because they are on the Gergonne line and are known as Nobbs points. References: Wolfram MathWorld: Nobbs Points; Personal.";
In[]:=
In the command below, type the new coordinates of the points. Evaluate the notebook.
In[]:=
NobbsPoints[tri={{4,7},{7,10},{9,-2}}]
CalculatedContactPoints | ContactPointsInTrilinealCoordinates |
{{4.83889,7.83889},{7.50245,6.98532},{4.57615,5.96292}} | {{4.83889,7.83889},{7.50245,6.98532},{4.57615,5.96292}} |
CalculatedNobbsPoints | NobbsPointsInTrilinearCoordinates |
{{3.2513,8.34766},{2.09662,5.09662},{5.99016,16.059}} | {{3.2513,8.34766},{2.09662,5.09662},{5.99016,16.059}} |
Out[]=
