Cos Function

āĻāĻ•āϟāĻŋ āϕ⧋āύ⧇āϰ āϕ⧋āϏāĻžāχāύ āĻ—āĻŖāύāĻž āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤ āϕ⧋āύāϟāĻŋ āϰ⧇āĻĄāĻŋ⧟āĻžāύ⧇ āωāĻ˛ā§āϞ⧇āĻ– āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤ āĻĢāϞāĻžāĻĢāϞ -1 āĻāĻŦāĻ‚ 1 āĻāϰ āĻŽāĻ§ā§āϝ⧇ āĻāĻ•āϟāĻŋ āĻŽāĻžāύ āĻšā§ŸāĨ¤

āφāϞāĻĢāĻž āϕ⧋āύ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰ⧇, āϕ⧋āϏāĻžāχāύ āĻĢāĻžāĻ‚āĻļāύ⧇āϰ āϏāĻžāĻšāĻžāĻ¯ā§āϝ⧇ āϕ⧋āύ āϏāĻ‚āĻļā§āϞāĻŋāĻˇā§āϟ āĻŦāĻžāĻšā§āϰ āĻĻ⧈āĻ°ā§āĻ˜ā§āϝ, āϏāĻŽāϕ⧋āύ⧀ āĻ¤ā§āϰāĻŋāϭ⧁āĻœā§‡āϰ āĻ…āϤāĻŋāϭ⧁āĻœā§‡āϰ āĻĻ⧈āĻ°ā§āĻ˜ā§āϝ āĻĻā§āĻŦāϰāĻž āĻ­āĻžāϗ⧇āϰ āĻ…āύ⧁āĻĒāĻžāϤ āĻ—āĻŖāύāĻž āĻ•āϰāĻž āĻšā§ŸāĨ¤

Cos(Alpha) = Adjacent/Hypotenuse

āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:


Cos (Number)

āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:

āĻĄāĻžāĻŦāϞ

āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ:

āϏāĻ‚āĻ–ā§āϝāĻž: āϏāĻ‚āĻ–ā§āϝāĻžāϏ⧂āϚāĻ• āĻāĻ•ā§āϏāĻĒā§āϰāĻļ⧇āĻļāύ āϝāĻž āĻāĻ•āϟāĻŋ āϕ⧋āύ āϰ⧇āĻĄāĻŋ⧟āĻžāύ⧇ āωāĻ˛ā§āϞ⧇āĻ– āĻ•āϰ⧇ āĻĨāĻžāϕ⧇ āĻāĻŦāĻ‚ āϝāĻžāϰ āϕ⧋āϏāĻžāχāύ āĻ—āĻŖāύāĻž āĻ•āϰāϤ⧇ āϚāĻžāύāĨ¤

āĻĄāĻŋāĻ—ā§āϰāĻŋ āĻĨ⧇āϕ⧇ āϰ⧇āĻĄāĻŋ⧟āĻžāύ⧇ āϰ⧂āĻĒāĻžāĻ¨ā§āϤāϰ āĻ•āϰāĻžāϰ āϜāĻ¨ā§āϝ, āĻĄāĻŋāĻ—ā§āϰāĻŋāϕ⧇ pi/180 āĻĻā§āĻŦāĻžāϰāĻž āϗ⧁āĻŖ āĻ•āϰāĻž āĻšāĻŦ⧇āĨ¤ āϰ⧇āĻĄāĻŋ⧟āĻžāύ āĻĨ⧇āϕ⧇ āĻĄāĻŋāĻ—ā§āϰāĻŋāϤ⧇ āϰ⧂āĻĒāĻžāĻ¨ā§āϤāϰ āĻ•āϰāĻžāϰ āϜāĻ¨ā§āϝ, āϰ⧇āĻĄāĻŋ⧟āĻžāύāϕ⧇ 180/pi āĻĻā§āĻŦāĻžāϰāĻž āϗ⧁āĻŖ āĻ•āϰāĻž āĻšāĻŦ⧇āĨ¤

degree=(radian*180)/pi

radian=(degree*pi)/180

3.14159... āĻĒā§‚āĻ°ā§āĻŖ āϏāĻ‚āĻ–ā§āϝāĻž āĻŽāĻžāύ āϏāĻš āύāĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āϟ āĻŦ⧃āĻ¤ā§āϤāĻžāĻ•āĻžāϰ āĻ§ā§āϰ⧁āĻŦāĻ• āĻšāϞ⧋ āĻĒāĻžāχāĨ¤

Error codes:

5 Invalid procedure call

āωāĻĻāĻžāĻšāϰāĻŖ:


REM āύāĻŋāĻšā§‡āϰ āωāĻĻāĻžāĻšāϰāĻŖāϟāĻŋ āĻāĻ•āϟāĻŋ āϏāĻŽāϕ⧋āύ⧀ āĻ¤ā§āϰāĻŋāϭ⧁āĻœā§‡āϰ āϜāĻ¨ā§āϝ āĻāϰ āχāύāĻĒ⧁āϟ āĻ…āύ⧁āĻŽā§‹āĻĻāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇
REM āĻĒāϰāĻ¸ā§āĻĒāϰāϛ⧇āĻĻā§€ āĻāĻŦāĻ‚ āϕ⧋āύ (āĻĄāĻŋāĻ—ā§āϰāĻŋāϤ⧇) āĻāĻŦāĻ‚ āĻ…āϤāĻŋāϭ⧁āĻœā§‡āϰ āĻĻ⧈āĻ°ā§āĻ˜ā§āϝ āĻ—āĻŖāύāĻž āĻ•āϰāĻž āĻšā§Ÿ:
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