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 ...

Error codes:

5 αž€αžΆαžšβ€‹αž αŸ…β€‹αž”αŸ‚αž”αž”αž‘β€‹αž˜αž·αž“β€‹αžαŸ’αžšαžΉαž˜αžαŸ’αžšαžΌαžœ

αž§αž‘αžΆαž αžšαžŽαŸ αŸ–

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