IBM Lotus Symphony
|
Trigonometrinen funktio, joka palauttaa numeerisen lausekkeen arkustangentin. Palautusarvo on -pii/2 - +pii/2.
Arkustangentti on tangentin vastakohta. Atn-funktio palauttaa "Alpha"-kulman, radiaaneissa ilmaistuna, kyseisen kulman tangentin avulla. Funktio voi palauttaa "Alpha"-kulman myös vertaamalla kulman vastaisen sivun pituutta suhteessa kulman viereisen sivun pituuteen suorakulmaisessa kolmiossa.
Atn(kulman vastainen sivu/kulman viereinen sivu)= Alpha
Atn (Number)
Pitkä liukuluku
Number: Mikä tahansa numeerinen lauseke, joka ilmaisee suorakulmaisen kolmion kahden sivun suhteen. Atn-funktio palauttaa vastaavan kulman radiaaneina (arkustangentti).
Voit muuntaa radiaanit asteiksi kertomalla radiaanit arvolla 180/pii.
aste=(radiaani*180)/pii
radiaani=(aste*pii)/180
Piin arvo on tässä pyöristetty lukuun 3,14159.
REM Seuraavassa esimerkissä käytetään suorakulmaista kolmiota
REM Alpha-kulma Alpha-kulman tangentista:
Sub ExampleATN
REM pyöristetty pii = 3,14159
Dim d1 As Double
Dim d2 As Double
d1 = InputBox$ ("Enter the length of the side adjacent to the angle: ","Adjacent")
d2 = InputBox$ ("Enter the length of the side opposite the angle: ","Opposite")
Print "The Alpha angle is"; (atn (d2/d1) * 180 / Pi); "
End Sub