In[]:=
ClearAll["Global`*"]​​v:=2​​s1:=2​​l1:=5/2​​d1:=2​​d2:=10​​a:=s1-l1​​f8:=((x1^2+x2^2)/(2av^2)-((x1-s1)^2+x2^2)/(2a)-a/2)^2-(x1-s1)^2+x2^2​​f9:=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)/v​​f11=Minimize[f2,x1]​​N[f11]​​N[f9/.f11[[2]]]​​
Out[]=

1
6
-59+48
1.12
…
+4
91-84
1.12
…
+18
2
1.12
…
+
877+12
1.12
…
+4
91-84
1.12
…
+18
2
1.12
…
-60
-59+48
1.12
…
-9
2
1.12
…
+4
91-84
1.12
…
+18
2
1.12
…
,x1
1.12
…

Out[]=
{5.43002,{x11.12196}}
Out[]=
{{x20.-1.94648},{x20.+1.94648},{x2-0.357358},{x20.357358}}
In[]:=
​