Length of an arc between two angles: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 446: | Line 446: | ||
{{out}} |
{{out}} |
||
<pre>arc length: 43.633231299858</pre> |
<pre>arc length: 43.633231299858</pre> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<lang Mathematica>ClearAll[MajorArcLength] |
|||
MajorArcLength[r_, {a1_, a2_}] := Module[{d}, |
|||
d = Mod[Abs[a1 - a2], 360]; |
|||
d = Max[d, 360 - d]; (* this will select the major arc *) |
|||
d Degree r |
|||
] |
|||
MajorArcLength[10, {10, 120}] // N</lang> |
|||
{{out}} |
|||
<pre>43.6332</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |
||