Tan Function

āĻāĻ•āĻŸāĻŋ āĻ•ā§‹āĻ¨ā§‡āĻ° āĻŸā§‡āĻ¨āĻœā§‡āĻ¨ā§āĻŸ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻ•āĻ°āĻž āĻšā§ŸāĨ¤ āĻ•ā§‹āĻ¨āĻŸāĻŋ āĻ°ā§‡āĻĄāĻŋā§ŸāĻžāĻ¨ā§‡ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ– āĻ•āĻ°āĻž āĻšā§ŸāĨ¤

āĻ†āĻ˛āĻĢāĻž āĻ•ā§‹āĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡, āĻŸā§‡āĻ¨āĻœā§‡āĻ¨ā§āĻŸ āĻĢāĻžāĻ‚āĻļāĻ¨āĻŸāĻŋ āĻ•ā§‹āĻ¨ā§‡āĻ° āĻŦāĻŋāĻĒāĻ°ā§€āĻ¤ āĻŦāĻžāĻšā§āĻ° āĻĻā§ˆāĻ°ā§āĻ¯ā§āĻ¯ (āĻ˛āĻŽā§āĻŦ) āĻāĻŦāĻ‚ āĻ¸āĻŽāĻ•ā§‹āĻ¨ā§€ āĻ¤ā§āĻ°āĻŋāĻ­ā§āĻœā§‡āĻ° āĻ•ā§‹āĻ¨ āĻ¸āĻ¨ā§āĻ¨āĻŋāĻšāĻŋāĻ¤ āĻŦāĻžāĻšā§āĻ° (āĻ­ā§āĻŽāĻŋ) āĻĻā§ˆāĻ°ā§āĻ˜ā§āĻ¯ā§‡āĻ° āĻ…āĻ¨ā§āĻĒāĻžāĻ¤ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡āĨ¤

āĻŸā§āĻ¯āĻžāĻ¨(āĻ†āĻ˛āĻĢāĻž) = āĻ•ā§‹āĻ¨ā§‡āĻ° āĻŦāĻŋāĻĒāĻ°ā§€āĻ¤ āĻŦāĻžāĻšā§āĻ° āĻĻā§ˆāĻ°ā§āĻ˜ā§āĻ¯/āĻ•ā§‹āĻ¨ā§‡āĻ° āĻ¨āĻŋāĻ•āĻŸāĻŦāĻ°ā§āĻ¤ā§€ āĻŦāĻžāĻšā§āĻ° āĻĻā§ˆāĻ°ā§āĻ˜ā§āĻ¯

āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸:


Tan (Number)

āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨:

āĻĄāĻžāĻŦāĻ˛

āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻŸāĻžāĻ°:

āĻ¸āĻ‚āĻ–ā§āĻ¯āĻž: āĻ¯ā§‡āĻ•ā§‹āĻ¨ā§‹ āĻ¸āĻ‚āĻ–ā§āĻ¯āĻžāĻ¸ā§‚āĻšāĻ• āĻāĻ•ā§āĻ¸āĻĒā§āĻ°ā§‡āĻļāĻ¨ āĻ¯āĻžāĻ° āĻŸā§‡āĻ¨āĻœā§‡āĻ¨ā§āĻŸ āĻ—āĻŖāĻ¨āĻž āĻ•āĻ°āĻ¤ā§‡ āĻšāĻžāĻ¨ (āĻ°ā§‡āĻĄāĻŋā§ŸāĻžāĻ¨ā§‡)āĨ¤

āĻĄāĻŋāĻ—ā§āĻ°āĻŋ āĻĨā§‡āĻ•ā§‡ āĻ°ā§‡āĻĄāĻŋā§ŸāĻžāĻ¨ā§‡ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯, pi/180 āĻĻā§āĻŦāĻžāĻ°āĻž āĻ—ā§āĻŖ āĻ•āĻ°āĻž āĻšāĻŦā§‡āĨ¤ āĻ°ā§‡āĻĄāĻŋā§ŸāĻžāĻ¨ āĻĨā§‡āĻ•ā§‡ āĻĄāĻŋāĻ—ā§āĻ°āĻŋāĻ¤ā§‡ āĻ°ā§‚āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯, 180/pi āĻĻā§āĻŦāĻžāĻ°āĻž āĻ—ā§āĻŖ āĻ•āĻ°āĻž āĻšāĻŦā§‡āĨ¤

degrees=(radiant*180)/Pi

radiant=(degrees*Pi)/180

āĻĒāĻžāĻ‡ āĻāĻ° āĻŽāĻžāĻ¨ āĻšāĻ˛ā§‹ āĻĒā§āĻ°āĻžāĻ¯āĻŧ 3.141593āĨ¤

Error codes:

5 Invalid procedure call

āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ:


REM āĻāĻ‡ āĻ‰āĻĻāĻžāĻšāĻ°āĻŖā§‡, āĻ¨āĻŋāĻšā§‡āĻ° āĻāĻ¨ā§āĻŸā§āĻ°āĻŋāĻŸāĻŋ āĻ¸āĻŽāĻ•ā§‹āĻ¨ā§€ āĻ¤ā§āĻ°āĻŋāĻ­ā§āĻœā§‡āĻ° āĻœāĻ¨ā§āĻ¯ āĻ¸āĻŽā§āĻ­āĻžāĻŦā§āĻ¯:
REM āĻ•ā§‹āĻ¨ā§‡āĻ° āĻŦāĻŋāĻĒāĻ°ā§€āĻ¤ āĻŦāĻžāĻšā§ āĻāĻŦāĻ‚ āĻ•ā§‹āĻ¨ āĻ¸āĻ‚āĻļā§āĻ˛āĻŋāĻˇā§āĻŸ āĻŦāĻžāĻšā§āĻ° āĻĻā§ˆāĻ°ā§āĻ˜ā§āĻ¯ āĻ—āĻŖāĻ¨āĻž āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻ•ā§‹āĻ¨ (āĻĄāĻŋāĻ—ā§āĻ°āĻŋāĻ¤ā§‡):
Sub ExampleTangens
REM Pi = 3.1415926 āĻĒā§‚āĻ°ā§āĻŦāĻŋāĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŋāĻ¤ āĻ­ā§‡āĻ°āĻŋā§Ÿā§‡āĻŦāĻ˛
Dim d1 As Double
Dim dAlpha As Double
    d1 = InputBox("Enter the length of the side opposite the angle: ","opposite")
    ddAlpha = InputBox("Enter the Alpha angle (in degrees): ","Alpha")
    Print "the length of the side adjacent the angle is"; (d1 / tan (dAlpha * Pi / 180))
End Sub

Please support us!