求下面的初中几何题

mathematica

看看大家有什么办法

mathematica

1. Clear["Global`*"];(*Clear all variables*)
   
2. (*假设AE=A'E=x,AB=A'B'=4,BF=B'F=9-4=5,
   
3. 做B'G垂直于BC于G,在三角形A'EB'与三角形B'FG中,
   
4. 两次使用勾股定理,联立方程组解方程
   
5. *)
   
6. Solve[{x^2+4^2==y^2,(x+y-5)^2+4^2==5^2},{x,y}]
   

复制代码

{{x->-3,y->5},{x->3,y->5}}

这个问题我觉得很简单！