Cos Function
ααααΆβααΌαααΈαα»αβααβαα»αβαα½αβΒ α αα»αβααααΌαβααΆαβαααααΆααβββααΆβαααΆαααααΒ α ααααααβαααα·αβαα βα ααααα -1 αα·α 1Β α
αααβααααΎβαα»α Alpha α’αα»αααα Cos ααααΆβαααΆααΆαααβααααααβααβαααα»αβαααβαα βααΆααβαα»α α ααβααΉαβααααααβα’ααΈαααΌααΈαα»αβαααα»αβααααΈαααβαααΒ α
Cos(Alpha) = αααα»αβααΆαα/α’ααΈαααΌααΈαα»α
ααΆαααβααααααα α
Cos (Number)
αααααβαααα‘αα α
αααα
αααΆαααΆαααααα α
α ααα½αβ α ααααααβαααβαααβαααααΆααβαα»αββααΆβαααΆααααα αααβα’αααβα ααβααααΆβααΌαααΈαα»αΒ α
ααΎααααΈβααααααβααΊααααβααΆβαααΆααααα αα»αβααΊααααβααΆαα½αβααΉα pi/180Β α ααΎααααΈβααααααβαααΆαααααβααΆβααΊαααα αα»αβαααΆαααααβααΆαα½αβααΉα 180/piΒ α
degree=(radian*180)/pi
radian=(degree*pi)/180
Pi αα βααΈβαααβααΊβααΆβαααβααααααβααα αααβααΆαβαααααβββαααααα 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 hypothenuse is"; (d1 / cos (dAngle * Pi / 180))
End Sub