Smallest enclosing circle problem: Difference between revisions

=={{header|Mathematica}}/{{header|Wolfram Language}}==

<lang Mathematica>f=BoundingRegion[#,"MinBall"]&;

f[{{0,0},{0,1},{1,0}}]

f[{{5,-2},{-3,-2},{-2,5},{1,6},{0,2}}]

f[{{2,4,-1},{1,5,-3},{8,-4,1},{3,9,-5}}]

f[{{-0.6400900432782123`,2.643703255134232`,0.4016122094706093`,1.8959601399652273`,-1.1624046608380516`},{0.5632393652621324`,-0.015981105190064373`,-2.193725940351997`,-0.9094586577358262`,0.7165036664470906`},{-1.7704367632976061`,0.2518283698686299`,-1.3810444289625348`,-0.597516704360172`,1.089645656962647`},{1.3448578652803103`,-0.18140877132223002`,-0.4288734015080915`,1.53271973321691`,0.41896461833399573`},{0.2132336397213029`,0.07659442168765788`,0.148636431531099`,2.3386893481333795`,-2.3000459709300927`},{0.6023153188617328`,0.3051735340025314`,1.0732600437151525`,1.1148388039984898`,0.047605838564167786`},{1.3655523661720959`,0.5461416420929995`,-0.09321951900362889`,-1.004771137760985`,1.6532914656050117`},{-0.14974382165751837`,-0.5375672589202939`,-0.15845596754003466`,-0.2750720340454088`,-0.441247015836271`}}]</lang>

{{out}}

<pre>Ball[{0.5,0.5},0.707107]

Ball[{1.,1.},5.]

Disk[{11/2,5/2,-2},Sqrt[115/2]]

Ball[{0.0405866,0.555668,-0.231368,0.607407,-0.200346},2.7946]</pre>