Search Results for: Badges
mathematical-optimization share | improve this question asked yesterday nico a nico a gold badge silver badges bronze badges $\endgroup$ $egingroup$ it sounds like you're need general methodology advice more-so than anything hyper-specific to programming in mathematica.
points] ] min = nminimize[{distfun[array[x, ], r, pts], r > }, flatten@{array[x, ], r}] graphics d[{ red, pointsize[ ], point[pts], white, opacity[ ], sphere[array[x, ], r] /. last@min }, lighting -> "neutral" ] share | improve this answer edited yesterday answered yesterday marcob marcob . k gold badges...
https://mathematica.stackexchange.com/questions/212214/finding-a-center-and-radius-that-minimizes-total-distance