Cos Function

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

Using the angle Alpha, the Cos function calculates the ratio of the length of the side that is adjacent to the angle, divided by the length of the hypotenuse in a right-angled triangle.

Cos(Alpha) = Adjacent/Hypotenuse

Syntax:


Cos (Number As Double) As Double

Return value:

Double

Parameters:

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

рдбрд┐рдЧреНрд░реАрд╣рд░реВрд▓рд╛рдИ рд░реЗрдбрд┐рдпрдирд╣рд░реВрдорд╛ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрди, рдбрд┐рдЧреНрд░реАрд╣рд░реВрд▓рд╛рдИ pi/резреорежрд▓реЗ рдЧреБрдгрди рдЧрд░реНрдиреБрд╣реЛрд╕реН ред рд░реЗрдбрд┐рдпрдирд╣рд░реВрд▓рд╛рдИ рдбрд┐рдЧреНрд░реАрд╣рд░реВрдорд╛ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрди резреореж/pi рд▓реЗ рдЧреБрдгрди рдЧрд░реНрдиреБрд╣реЛрд╕реН ред

рдбрд┐рдЧреНрд░реА=(рд░реЗрдбрд┐рдпрди*резреореж)/pi

рд░реЗрдбрд┐рдпрди=(рдбрд┐рдЧреНрд░реА*pi)/резреореж

Pi is here the fixed circle constant with the rounded value 3.14159...

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

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

Example:


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