Ceva’s Theorem

Hidekazu Takahashi

Load Eos

In[]:=
<<EosLoader`
Eos3.7.1.1 (March 21,2023) running under Mathematica 13.2.0 for Mac OS X ARM (64-bit) (November 18, 2022) on Thu 30 Mar 2023 14:46:19.

Construction


Verification

Weprove
EH
HA
AI
IB
BG
GE
=1.
In[]:=
Goal[SquaredDistance["E","H"]SquaredDistance["A","I"]SquaredDistance["B","G"]==SquaredDistance["H","A"]SquaredDistance["I","B"]SquaredDistance["G","E"]];
In[]:=
map={"A"{0,0},"B"{1,0},"C"{1,1},"D"{0,1},"E"{u1,u2},"F"{u3,u4}};
In[]:=
Prove["Ceva's Theorem",Mappingmap]
Proof is successful.
Ceva's Theorem: Step 11
Out[]=
{Success,0.056379,
Ceva's Theorem.pdoc.nb
}
In[]:=
EndSession[];