IBM Lotus Symphony
|
Trigonometrisk funktion, der returnerer et numerisk udtryks arcus tangens. Returværdien ligger i området -pi/2 til +pi/2.
Arcus tangens er den inverse tangensfunktion. Funktionen Atn returnerer vinklen "Alfa", udtrykt i radianer, ved hjælp af vinklens tangens. Funktionen kan også returnere vinklen "Alfa" ved at sammenligne længden på siden over for vinklen med den side, der ligger op vinklen, i en retvinklet trekant.
Atn(side over for vinklen/side ved siden af vinklen)=Alfa
Atn (Tal)
Double
Tal: Et numerisk udtryk, der repræsenterer forholdet mellem to sider i en retvinklet trekant. Funktionen Atn returnerer den tilhørende vinkel i radianer (arcus tangens).
Multiplicér radianer med 180/pi, hvis du vil konvertere radianer til grader.
grad=(radian*180)/pi
radian=(grad*pi)/180
Pi er her den faste cirkelkonstant med den afrundede værdi 3,14159.
REM I følgende eksempel beregnes for en retvinklet trekant
REM vinklen Alfa fra vinklen Alfas tangens:
Sub EksempelATN
REM Pi = 3,14159 (afrundet) er en foruddefineret konstant
Dim d1 As Double
Dim d2 As Double
d1 = InputBox$ ("Angiv længden på vinklens tilstødende side","Tilstødende")
d2 = InputBox$ ("Angiv længden på siden over for vinklen:","Over for")
Print "Vinklen Alfa er"; (Atn (d2/d1) * 180 / Pi); " grader"
End Sub