In[]:=
ClearAll["Global`*"]v:=2s1:=2l1:=5/2d1:=2d2:=10a:=s1-l1f8:=((x1^2+x2^2)/(2av^2)-((x1-s1)^2+x2^2)/(2a)-a/2)^2-(x1-s1)^2+x2^2f9:=Solve[f8==0,{x2}]KM:=Sqrt[x1^2+x2^2]/.f9[[4]]MD:=Sqrt[(x1-d1)^2+(x2-d2)^2]/.f9[[4]]f2:=(KM+MD)/vf11=Minimize[f2,x1]N[f11]N[f9/.f11[[2]]]
Out[]=
1
6
-59+48+4
+91-84+18
2
877+12+4
,x191-84+18
-602
-59+48-9+4
2
91-84+18
2
Out[]=
{5.43002,{x11.12196}}
Out[]=
{{x20.-1.94648},{x20.+1.94648},{x2-0.357358},{x20.357358}}
In[]:=