LibreOffice 24.2 Help
āĻāĻāĻāĻŋ āĻā§āĻ¨ā§āĻ° āĻ¸āĻžāĻāĻ¨ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤ āĻā§āĻ¨āĻāĻŋ āĻ°ā§āĻĄāĻŋā§āĻžāĻ¨ā§ āĻāĻ˛ā§āĻ˛ā§āĻāĻŋāĻ¤ āĻšā§āĨ¤ āĻĢāĻ˛āĻžāĻĢāĻ˛ -1 āĻāĻŦāĻ 1 āĻāĻ° āĻŽāĻ§ā§āĻ¯ā§ āĻŦāĻŋāĻĻā§āĻ¯āĻŽāĻžāĻ¨āĨ¤
Using the angle Alpha, the Sin function returns the ratio of the length of the opposite side of an angle to the length of the hypotenuse in a right-angled triangle.
Sin(Alpha) = side opposite the angle/hypotenuse
Sin (Number As Double) As Double
Double
āĻ¸āĻāĻā§āĻ¯āĻž: āĻ¸āĻāĻā§āĻ¯āĻžāĻ¸ā§āĻāĻ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ āĻ¯āĻž āĻ°ā§āĻĄāĻŋā§āĻžāĻ¨ā§ āĻā§āĻ¨ āĻĒā§āĻ°āĻāĻžāĻļ āĻāĻ°ā§ āĻĨāĻžāĻā§ āĻāĻŦāĻ āĻ¯āĻžāĻ° āĻ¸āĻžāĻāĻ¨ āĻāĻŖāĻ¨āĻž āĻāĻ°āĻ¤ā§ āĻāĻžāĻ¨āĨ¤
To convert degrees to radians, multiply degrees by Pi/180, and to convert radians to degrees, multiply radians by 180/Pi.
degrees=(radians*180)/Pi
radians=(degrees*Pi)/180
Pi is approximately 3.141593.
REM āĻāĻ āĻāĻĻāĻžāĻšāĻ°āĻŖā§, āĻ¨āĻŋāĻā§āĻ° āĻāĻ¨ā§āĻā§āĻ°āĻŋāĻāĻŋ āĻ¸āĻŽāĻā§āĻ¨ā§ āĻ¤ā§āĻ°āĻŋāĻā§āĻā§āĻ° āĻāĻ¨ā§āĻ¯ āĻ¸āĻŽā§āĻāĻžāĻŦā§āĻ¯:
REM āĻā§āĻ¨ā§āĻ° āĻŦāĻŋāĻĒāĻ°ā§āĻ¤ āĻŦāĻžāĻšā§ āĻāĻŦāĻ āĻ
āĻ¤āĻŋāĻā§āĻā§āĻ° āĻĻā§āĻ°ā§āĻā§āĻ¯ āĻāĻŖāĻ¨āĻž āĻāĻ°āĻžāĻ° āĻāĻ¨ā§āĻ¯ āĻā§āĻ¨ (āĻĄāĻŋāĻā§āĻ°āĻŋāĻ¤ā§):
Sub ExampleSine
REM Pi = 3.1415926 āĻāĻāĻāĻŋ āĻĒā§āĻ°ā§āĻŦāĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŋāĻ¤ āĻā§āĻ°āĻŋā§ā§āĻŦāĻ˛
Dim d1 As Double
Dim dAlpha As Double
d1 = InputBox("Enter the length of the opposite side: ","Opposite Side")
dAlpha = InputBox("Enter the angle Alpha (in degrees): ","Alpha")
Print "The length of the hypotenuse is"; (d1 / sin (dAlpha * Pi / 180))
End Sub