Curve that touches three points: Difference between revisions
→{{header|Nim}}
Line 162:
The circle with center at x = 105.0, y = 81.31578947368422 and radius 118.78948534384199.
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
Built-in function of Mathematica (not a library):
<lang Mathematica>pts = {{10, 10}, {100, 200}, {200, 10}};
cs = Circumsphere[pts]
Graphics[{PointSize[Large], Point[pts], cs}]</lang>
{{out}}
Outputs the circle:
<pre>Sphere[{105, 1545/19}, (5 Sqrt[203762])/19]</pre>
and a graphical representation of the input points and the circle.
=={{header|Nim}}==
| |||