In[]:=
In[]:=
NapoleonPoints[{0,0},{1,0},{.3,.8},{-10,10},{-10,10}]
Coordinates of Napoleon's point
Napoleon
{0.397109,0.271401}
Out[]=