LibreOffice 7.2 Help
āϤā§āϰāĻŋāĻā§āύāĻŽāĻŋāϤāĻŋāĻ āĻĢāĻžāĻāĻļāύ āϝāĻž āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύā§āϰ āĻāϰā§āĻāĻā§āύāĻā§āύā§āĻ āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύāĻāĻŋ -Pi/2 āĻĨā§āĻā§ +Pi/2 āĻŽāĻžāύā§āϰ āĻŽāϧā§āϝ⧠āĻāĻāĻāĻŋ āĻŽāĻžāύāĨ¤
āĻāϰā§āĻāĻā§āύāĻā§āύā§āĻ āĻšāϞ⧠āĻā§āύāĻā§āύā§āĻā§āϰ āĻŦāĻŋāĻĒāϰā§āϤ āĻĢāĻžāĻāĻļāύāĨ¤ Atn āĻĢāĻžāĻāĻļāύā§āϰ āĻŽāĻžāϧā§āϝāĻŽā§ "Alpha" āĻā§āύāĻāĻŋ āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§, āϝāĻž āĻā§āύāĻāĻŋāϰ āĻā§āύāĻā§āύā§āĻ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰ⧠āϰā§āĻĄāĻŋā§āĻžāύ⧠āĻĒā§āϰāĻāĻžāĻļ āĻāϰāĻž āĻšā§āĨ¤ āĻā§āύā§āϰ āĻŦāĻŋāĻĒāϰā§āϤ āĻŦāĻžāĻšā§āϰ āĻĻā§āϰā§āĻā§āϝ āĻāĻŦāĻ āϏāĻŽāĻā§āύ⧠āϤā§āϰāĻŋāĻā§āĻā§āϰ āĻā§āύā§āϰ āĻāĻžāĻā§āϰ āĻŦāĻžāĻšā§āϰ āĻ āύā§āĻĒāĻžāϤ āϤā§āϞāύāĻž āĻāϰāĻžāϰ āĻŽāĻžāϧā§āϝāĻŽā§ āĻĢāĻžāĻāĻļāύāĻāĻŋ "Alpha" āĻā§āύāĻāĻŋāĻ āĻĢāϞāĻžāĻĢāϞ āĻšāĻŋāϏā§āĻŦā§ āĻĒā§āϰāĻĻāĻžāύ āĻāϰāϤ⧠āĻĒāĻžāϰā§āĨ¤
Atn(āĻā§āύā§āϰ āĻŦāĻŋāĻĒāϰā§āϤ āĻŦāĻžāĻšā§/āĻā§āύā§āϰ āύāĻŋāĻāĻāĻŦāϰā§āϤ⧠āĻŦāĻžāĻšā§)= āĻāϞāĻĢāĻž
Atn (Number)
āĻĄāĻžāĻŦāϞ
āϏāĻāĻā§āϝāĻž: āϝā§āĻā§āύ⧠āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻž āĻāĻāĻāĻŋ āϏāĻ āĻŋāĻ āϤā§āϰāĻŋāĻā§āĻā§āϰ āĻĻā§āĻ āĻŦāĻžāĻšā§āϰ āĻ āύā§āĻĒāĻžāϤ āĻāϞā§āϞā§āĻ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ Atn āĻĢāĻžāĻāĻļāύ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰ⧠āϏāĻāĻļā§āϞāĻŋāώā§āĻ āĻā§āύā§āϰ āĻŽāĻžāύ āϰā§āĻĄāĻŋā§āĻžāύ⧠āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§ (āĻāϰā§āĻāĻā§āύāĻā§āύā§āĻ)āĨ¤
āϰā§āĻĄāĻŋāϝāĻŧāĻžāύāĻā§ āĻĄāĻŋāĻā§āϰā§āϤ⧠āĻĒāϰāĻŋāĻŦāϰā§āϤāύ āĻāϰāϤ⧠āĻāĻžāĻāϞā§, āϰā§āĻĄāĻŋāϝāĻŧāĻžāύāĻā§ ā§§ā§Žā§Ļ/āĻĒāĻžāĻ āĻĻāĻŋāϝāĻŧā§ āĻā§āĻŖ āĻāϰāϤ⧠āĻšāĻŦā§āĨ¤
degree=(radian*180)/pi
radian=(degree*pi)/180
Pi is here the fixed circle constant with the rounded value 3.14159. Pi is a Basic mathematical constant.
REM āύāĻŋāĻā§āϰ āĻāĻĻāĻžāĻšāϰāĻŖāĻāĻŋ āϏāĻŽāĻā§āύ⧠āϤā§āϰāĻŋāĻā§āĻ āĻāĻŖāύāĻž āĻāϰāĻžāϰ āĻāύā§āϝ
REM āĻāϞāĻĢāĻž āĻā§āύā§āϰ āĻā§āύāĻā§āύā§āĻ āĻĨā§āĻā§ āĻāϞāĻĢāĻž āĻā§āύ:
Sub ExampleAtn
REM rounded Pi = 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); " degrees"
End Sub