In[]:=
TheoremOfVanAubel[{-2,4},{3,6},{5,1},{-3,2}]
PuntoM
PuntoN
PuntoO
PuntoP

1
2
,-
5
2

-
7
2
,
7
2

-
1
2
,
15
2


13
2
,
9
2

Verification that the segments
MO
and
PN
have the same length and are ortogonal
SegmentMO
SegmentPN
101
101
VectorMO.VectorPN
0
Out[]=
In[]:=