Sin Function

рдХреЛрдгрдХреЛ рд╕рд╛рдЗрди рдлрд░реНрдХрд╛рдЙрдБрдЫ ред рдпреЛ рдХреЛрдг рд░реЗрдбрд┐рдпрдирдорд╛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рд╣реБрдиреНрдЫ ред рдпрд╕рдХреЛ рдорд╛рди -рез рд░ рез рдХреЛ рдмреАрдЪрдорд╛ рд╣реБрдиреНрдЫ ред

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

Syntax:


Sin (Number As Double) As Double

Return value:

Double

Parameters:

рдирдореНрдмрд░: рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рддреНрдпрд╕рд▓реЗ рд░реЗрдбрд┐рдпрдирдорд╛ рдХреЛрдгрдХреЛ рдкрд░рд┐рднрд╛рд╖рд╛ рдЧрд░реНрджрдЫ рдЬреБрди рддрдкрд╛рдИрдБ рд╕рд╛рдЗрдирдХрд╛ рд▓рд╛рдЧрд┐ рдЧрдгрдирд╛ рдЧрд░реНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред

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.

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

Example:


' рдпреЛ рдЙрджрд╛рд╣рд░рдгрдорд╛ рддрд┐ рдирд┐рдореНрди рдкреНрд░рд╡рд┐рд╖реНрдЯрд┐рд╣рд░реВ рджрд╛рдпрд╛рдБ-рдХреЛрдг рднрдПрдХреЛ рддреНрд░рд┐рднреБрдЬрдХрд╛ рд▓рд╛рдЧрд┐ рд╕рдореНрднрд╡ рд╣реБрдиреНрдЫ:
' рдХреЛрдгрдХреЛ рд╡рд┐рдкрд░рд┐рдд рднреБрдЬрд╛ рд░ рдХреЛрдг(рдбрд┐рдЧреНрд░реАрдорд╛) рдХрд░реНрдгрдХреЛ рд▓рдореНрдмрд╛рдЗ рдЧрдгрдирд╛ рдЧрд░реНрдирд▓рд╛рдИ:
Sub ExampleSine
' Pi = 3.1415926 рдкреВрд░реНрд╡рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЪрд▓ рд╣реЛ
Dim d1 As Double
Dim dAlpha As Double
    dрез = рдЖрдЧрдд рдмрд╛рдХрд╕$ ("рд╡рд┐рдкрд░рд┐рдд рднреБрдЬрд╛рдХреЛ рд▓рдореНрдмрд╛рдЗ рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдиреБрд╣реЛрд╕реН: ","рд╡рд┐рдкрд░рд┐рдд рднреБрдЬрд╛")
    dAlpha = рдЖрдЧрдд рдмрд╛рдХрд╕$ ("рдХреЛрдг рдЕрд▓реНрдлрд╛ (рдбрд┐рдЧреНрд░реАрд╣рд░реВрдорд╛) рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдиреБрд╣реЛрд╕реН: ","рдЕрд▓реНрдлрд╛")
    "рдХрд░реНрдгрдХреЛ рд▓рдореНрдмрд╛рдЗ рд╣реЛ"; (dрез / рд╕рд╛рдЗрди (dAlpha * рдкрд╛рдИ / резреореж))
End Sub