Length of an arc between two angles: Difference between revisions

add FreeBASIC
(add FreeBASIC)
Line 195:
first angle: 10.0000000 second angle: 120.000000 radius: 10.0000000 Length of major arc: 43.6332321
first angle: 180.000000 second angle: 270.000000 radius: 10.0000000 Length of major arc: 47.1238899
</pre>
 
=={{Header|FreeBASIC}}==
 
<lang freebasic>
#define DEG 0.017453292519943295769236907684886127134
 
function arclength( r as double, a1 as double, a2 as double ) as double
return (360 - abs(a2 - a1)) * DEG * r
end function
print arclength(10, 10, 120)
</lang>
{{out}}
<pre>
43.63323129985824
</pre>
 
781

edits