Sin Function
āĻāĻāĻāĻŋ āĻā§āύā§āϰ āϏāĻžāĻāύ āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ āĻā§āύāĻāĻŋ āϰā§āĻĄāĻŋā§āĻžāύ⧠āĻāϞā§āϞā§āĻāĻŋāϤ āĻšā§āĨ¤ āĻĢāϞāĻžāĻĢāϞ -1 āĻāĻŦāĻ 1 āĻāϰ āĻŽāϧā§āϝ⧠āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύāĨ¤
āĻāϞāĻĢāĻž āĻā§āύ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰā§, āϏāĻžāĻāύ āĻĢāĻžāĻāĻļāύāĻāĻŋ āĻā§āύā§āϰ āĻŦāĻŋāĻĒāϰā§āϤ āĻŦāĻžāĻšā§āϰ āĻĻā§āϰā§āϝā§āϝ (āϞāĻŽā§āĻŦ) āĻāĻŦāĻ āϏāĻŽāĻā§āύ⧠āϤā§āϰāĻŋāĻā§āĻā§āϰ āĻ āϤāĻŋāĻā§āĻā§āϰ āĻĻā§āϰā§āĻā§āϝā§āϰ āĻ āύā§āĻĒāĻžāϤ āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āϏāĻžāĻāύ(āĻāϞāĻĢāĻž) = āĻā§āύā§āϰ āĻŦāĻŋāĻĒāϰā§āϤ āĻŦāĻžāĻšā§/āĻ āϤāĻŋāĻā§āĻ
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
Sin (Number)
āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:
āĻĄāĻžāĻŦāϞ
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
āϏāĻāĻā§āϝāĻž: āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻž āϰā§āĻĄāĻŋā§āĻžāύ⧠āĻā§āύ āĻĒā§āϰāĻāĻžāĻļ āĻāϰ⧠āĻĨāĻžāĻā§ āĻāĻŦāĻ āϝāĻžāϰ āϏāĻžāĻāύ āĻāĻŖāύāĻž āĻāϰāϤ⧠āĻāĻžāύāĨ¤
āϰā§āĻĄāĻŋā§āĻžāύ āĻĨā§āĻā§ āĻĄāĻŋāĻā§āϰāĻŋāϤ⧠āϰā§āĻĒāĻžāύā§āϤāϰ āĻāϰāĻžāϰ āĻāύā§āϝ, āĻĄāĻŋāĻā§āϰāĻŋāĻā§ Pi/180 āĻĻā§āĻŦāĻžāϰāĻž āĻā§āĻŖ āĻāϰā§āύ āĻāĻŦāĻ āϰā§āĻĄāĻŋā§āĻžāύāĻā§ āĻĄāĻŋāĻā§āϰāĻŋāϤ⧠āϰā§āĻĒāĻžāύā§āϤāϰ āĻāϰāĻžāϰ āĻāύā§āϝ, āϰā§āĻĄāĻŋā§āĻžāύāĻā§ 180/Pi āĻĻā§āĻŦāĻžāϰāĻž āĻā§āĻŖ āĻāϰā§āύāĨ¤
grad=(radiant*180)/pi
radiant=(grad*pi)/180
āĻĒāĻžāĻ āĻāϰ āĻŽāĻžāύ āĻšāϞ⧠āĻĒā§āϰāĻžāϝāĻŧ 3.141593āĨ¤
āĻāĻĻāĻžāĻšāϰāĻŖ:
REM āĻāĻ āĻāĻĻāĻžāĻšāϰāĻŖā§, āύāĻŋāĻā§āϰ āĻāύā§āĻā§āϰāĻŋāĻāĻŋ āϏāĻŽāĻā§āύ⧠āϤā§āϰāĻŋāĻā§āĻā§āϰ āĻāύā§āϝ āϏāĻŽā§āĻāĻžāĻŦā§āϝ:
REM āĻā§āύā§āϰ āĻŦāĻŋāĻĒāϰā§āϤ āĻŦāĻžāĻšā§ āĻāĻŦāĻ āĻ
āϤāĻŋāĻā§āĻā§āϰ āĻĻā§āϰā§āĻā§āϝ āĻāĻŖāύāĻž āĻāϰāĻžāϰ āĻāύā§āϝ āĻā§āύ (āĻĄāĻŋāĻā§āϰāĻŋāϤā§):
Sub ExampleSine
REM Pi = 3.1415926 āĻāĻāĻāĻŋ āĻĒā§āϰā§āĻŦāύāĻŋāϰā§āϧāĻžāϰāĻŋāϤ āĻā§āϰāĻŋā§ā§āĻŦāϞ
Dim d1 As Double
Dim dAlpha As Double
d1 = InputBox("Enter the length of the opposite side: ","Opposite Side")
dAlpha = InputBox("Enter the angle Alpha (in degrees): ","Alpha")
Print "The length of the hypotenuse is"; (d1 / sin (dAlpha * Pi / 180))
End Sub