Centre and radius of a circle passing through 3 points in a plane: Difference between revisions
Centre and radius of a circle passing through 3 points in a plane (view source)
Revision as of 11:58, 17 June 2024
, 13 days agoAdded Uiua solution
(New post.) |
(Added Uiua solution) |
||
Line 794:
</pre>
=={{header|Uiua}}==
<syntaxhighlight lang="uiua">
# Find centre of circle given 3 points on its radius.
Ps ← [[22.83 2.07] [14.39 30.24] [33.65 17.31]]
Diffs ← ↻¯1-↻¯1.Ps
Squares ← ≡(/+≡(×.))Ps
Tops ← ⇌÷2/+×Squares Diffs
Bots ← /+ ×Ps ≡⇌Diffs
&p $"Centre of circle\n_\n" .÷ Bots Tops
≡(√/+×.-)Ps ¤
&p $"The distances to the 3 points (i.e. r)\n_"
</syntaxhighlight>
{{out}}
<pre>
Centre of circle
[18.978515660148815 16.26541079771587]
The distances to the 3 points (i.e. r)
[14.70862397833418 14.708623978334176 14.708623978334177]
</pre>
=={{header|Wren}}==
This follows the lines of the C++ code [https://www.geeksforgeeks.org/equation-of-circle-when-three-points-on-the-circle-are-given/ here].
| |||