Euler Line
Euler Line
Load Eos
Load Eos
<<"EosHeader.m"
In[]:=
g3 Version 1.2.9
Eos3.31 (November 5,2020) running under Mathematica 12.1.1 for Mac OS X x86 (64-bit) (June 22, 2020)
Euler line
Euler line
Three centers are collinear
Three centers are collinear
For any triangle ΔABE, the circumcenter, the centroid and the orthocenter are collinear.
The line determined by the three points is called Euler line.
EosSession["Euler line"];
In[]:=
NewOrigami[10]
In[]:=
Euler line: Step 1
Out[]=
NewPoint["E"{7,8}]
In[]:=
Euler line: Step 1
Out[]=
HO["A","E",Mark{{"AD","F1"},{"AB","F2"}}]!
In[]:=
Euler line: Step 3
Out[]=
HO["B","E",Mark{{"F1F2","O"}}]!
In[]:=
Euler line: Step 5
Out[]=
circle={Green,Thickness[0.01],GraphicsCircle["O","OE"]};triangle={Red,Thickness[0.01],Line[{"A","B","E","A"}]};
In[]:=
ShowOrigami[More{triangle,circle}]
In[]:=
Euler line: Step 5
Out[]=
O is the circumcenter.
HO["BE"]!
In[]:=
Euler line: Step 7
Out[]=
HO["BE","A",Mark{{"BE","J"}}]!
In[]:=
Euler line: Step 9
Out[]=
HO["AE"]!
In[]:=
Euler line: Step 11
Out[]=
HO["AE","B",Mark{{"AJ","H"}}]!
In[]:=
Euler line: Step 13
Out[]=
HO["A","E",Mark{{"AE","K"}}]!
In[]:=
Euler line: Step 15
Out[]=
HO["B","E",Mark{{"BE","L"}}]!
In[]:=
Euler line: Step 17
Out[]=
HO["AL"]!
In[]:=
Euler line: Step 19