Circles of given radius through two points: Difference between revisions
Circles of given radius through two points (view source)
Revision as of 12:48, 14 June 2021
, 3 years ago→{{header|Mathematica}}
No edit summary |
|||
Line 2,363:
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>Off[Solve::ratnz];
circs::invrad = "The radius is invalid.";
Line 2,381:
Abs[x - p2x]^2 + Abs[y - p2y]^2 == r^2, {x, y}];</lang>
{{out}}
<pre>
{{-0.863212, -0.752112}, {1.86311, 1.97421}}
In[3]:= circs[{.1234, .9876}, {.1234, .9876}, 2.]▼
circs::equpts: The given points (0.1234`, 0.9876`) are equivalent.
circs[{.1234, .9876}, {.8765, .2345}, .5]
▲In[5]:= circs[{.1234, .9876}, {.1234, .9876}, 0.]
circs::invrad: The radius is invalid.</pre>
| |||