Anonymous user
Length of an arc between two angles: Difference between revisions
Length of an arc between two angles (view source)
Revision as of 22:07, 25 November 2021
, 2 years agoAdded solution for Action!
Alpha bravo (talk | contribs) (Added AutoHotkey) |
(Added solution for Action!) |
||
Line 20:
<pre>
43.6332
</pre>
=={{header|Action!}}==
{{libheader|Action! Tool Kit}}
{{libheader|Action! Real Math}}
<lang Action!>INCLUDE "H6:REALMATH.ACT"
PROC ArcLength(REAL POINTER r,a1,a2,len)
REAL tmp1,tmp2,r180,r360,pi
IntToReal(360,r360)
IntToReal(180,r180)
ValR("3.14159265",pi)
RealAbsDiff(a1,a2,tmp1) ;tmp1=abs(a1-a2)
RealSub(r360,tmp1,tmp2) ;tmp2=360-abs(a1-a2)
RealMult(tmp2,pi,tmp1) ;tmp1=(360-abs(a1-a2))*pi
RealMult(tmp1,r,tmp2) ;tmp2=(360-abs(a1-a2))*pi*r
RealDiv(tmp2,r180,len) ;len=(360-abs(a1-a2))*pi*r/180
RETURN
PROC Main()
REAL r,a1,a2,len
Put(125) PutE() ;clear screen
Print("Length of arc: ")
IntToReal(10,r)
IntToReal(10,a1)
IntToReal(120,a2)
ArcLength(r,a1,a2,len)
PrintR(len)
RETURN</lang>
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Length_of_an_arc_between_two_angles.png Screenshot from Atari 8-bit computer]
<pre>
Length of arc: 43.63323122
</pre>
| |||