In[3]:= cntrs = {{1, 2}, {-1, 1}, {1, 3}};
In[4]:= cons =
Flatten @
Table[r[i] + r[j] <=
Sqrt[(cntrs[[i]] - cntrs[[j]]).(cntrs[[i]] - cntrs[[j]])], {i,
2}, {j, i + 1, 3}]
Out[4]= {r[1] + r[2] <= Sqrt[5], r[1] + r[3] <= 1,
r[2] + r[3] <= 2 Sqrt[2]}
In[5]:= sln =
NMaximize[{r[1] + r[2] + r[3], Sequence @@ cons}, {r[1], r[2], r[3]}]
Out[5]= {3.03225, {r[1] -> 0.20382, r[2] -> 2.03225, r[3] -> 0.79618}}
In[7]:= Show[
Graphics @ Table[Circle[cntrs[[i]], r[i]], {i, 3}] /. sln[[2]],
Graphics @ Table[Point[cntrs[[i]]], {i, 3}]]
