Cos Function

គណនា​កូស៊ីនុស​នៃ​មុំ​មួយ​ ។ មុំ​ត្រូវ​បាន​បញ្ជាក់​​​ជា​រ៉ាដ្យង់ ។ លទ្ធផល​ស្ថិត​នៅ​ចន្លោះ -1 និង 1 ។

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

Cos (Number As Double) As Double

Double

ចំនួន​ ៖ កន្សោម​លេខ​ដែល​បញ្ជាក់​មុំ​​ជា​រ៉ាដ្យង់ ដែល​អ្នក​ចង់​គណនា​កូស៊ីនុស ។

ដើម្បី​បម្លែង​ដឺក្រេ​ជា​រ៉ាដ្យង់ គុណ​ដឺក្រេ​ជាមួយ​នឹង pi/180 ។ ដើម្បី​បម្លែង​រ៉ាដ្យង់​ជា​ដឺក្រេ គុណ​រ៉ាដ្យង់​ជាមួយ​នឹង 180/pi ។

degree=(radian*180)/pi

radian=(degree*pi)/180

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

REM The following example allows for a right-angled triangle the input of
REM secant and angle (in degrees) and calculates the length of the hypotenuse:
Sub ExampleCosinus
REM rounded Pi = 3.14159
Dim d1 As Double, dAngle As Double
    d1 = InputBox$ (""Enter the length of the adjacent side: ","Adjacent")
    dAngle = InputBox("Enter the angle Alpha (in degrees): ","Alpha")
    Print "The length of the hypotenuse is"; (d1 / cos (dAngle * Pi / 180))
End Sub