In[]:=
In the command below, type the new coordinates of the points. You can also change the extension to X and Y. Evaluate the notebook.
In[]:=
DeLongchampsEllipse[tri={{-2,5},{7,12},{9,-4}},{-10,10},{-10,10}]
TypeEllipse,Equation23.6241-7.78192x+1.-9.09775y-0.0724906xy+0.9535640,Foci{{4.62107,5.93349},{3.51788,3.91667}},Vertices{{5.96798,8.39586},{2.17097,1.4543}},Covertices{{0.748411,6.74169},{7.39053,3.10847}},Eccentricity0.290542,Center{4.06947,4.92508},SemimajorAxisLength3.95609,SemiminorAxisLength3.78543,AreaEnclosed47.047,SemiLatusRectum3.62214,Directrices{y20.9171-0.546996x,y22.5643-0.546996x},AxesOfSymmetry{y-2.51459+1.82817x,y7.15107-0.546996x},Circumference24.3237,RotationAngle1.07026,BaseConicEquation0.0638951+0.06978611,RotationAngle1.07026,DisplacementFromOrigin{4.06947,4.92508}
2
x
2
y
2
x
2
y
Out[]=