Sin Function
āļāˇāļĢāļēāļ āˇāļēāˇāļąāļē āļāļ´āˇāˇ āļŊāļļāˇ āļ¯āˇāļēāˇ. āļāˇāļĢāļē āļģāˇāļŠāˇāļēāļąāˇ āˇāļŊāˇāļąāˇ āˇāˇāˇāˇāˇāļĢāļē āļāļģ āļāļ. āļ´āˇâāļģāļāˇāļĩāļŊāļē -1 āˇāˇ 1 āļ āļāļģ āˇāˇ.
Using the angle Alpha, the Sin Function returns the ratio of the length of the opposite side of an angle to the length of the hypotenuse in a right-angled triangle.
Sin(āļāļŊāˇāˇāˇ) = āļāˇāļĢāļēāļ§ āˇāˇāļģāˇāļ¯āˇāļ° āļ´āˇāļāˇāļ/āļāļģāˇāļĢāļē
āļāˇāļģāļ āļģāˇāļāˇāļē:
Sin (āļ
āļāļāļē)
āļāļ´āˇāˇ āļŊāļļāˇāļ¯āˇāļą āļ āļāļē:
Double
āļ´āļģāˇāļ¸āˇāļāˇāļąāˇ:
āļ āļāļāļē: āļāļļāļ§ āˇāļēāˇāļąāļē āļāļĢāļąāļē āļāˇāļģāˇāļ¸āļ§ āļ āˇāˇāˇâāļē āļāˇāļĢāļē āļģāˇāļŠāˇāļēāļąāˇ āˇāļŊāˇāļąāˇ āļ āļģāˇāļŽ āļ¯āļāˇāˇāļą āˇāļāļāˇâāļēāˇāļāˇāļ¸āļ āļ´āˇâāļģāļāˇāˇāļąāļē.
āļ āļāˇāļ āļģāˇāļŠāˇāļēāļą āˇāļŊāļ§ āļ´āļģāˇāˇāļģāˇāļāļąāļē āļāˇāļģāˇāļ¸āļ§ āļ āļāˇāļ Pi/180āļāˇāļąāˇ āļāˇāļĢ āļāļģāļąāˇāļą āˇāˇ āļģāˇāļŠāˇāļēāļą āļ āļāˇāļ āˇāļŊāļ§ āļ´āļģāˇāˇāļģāˇāļāļąāļē āļāˇāļģāˇāļ¸āļ§ āļģāˇāļŠāˇāļēāļą 180/Piāļāˇāļąāˇ āļāˇāļĢ āļāļģāļąāˇāļą.
āļāˇâāļģāˇāļŠāļē=(āļģāˇāļŠāˇāļēāļą*180)/pi
āļģāˇāļŠāˇāļēāļą=(āļāˇâāļģāˇāļŠāļē*pi)/180
Pi āļāˇāļąāˇāļą āˇāˇāļēāˇāļąāˇ 3.141593 āˇāˇ.
āļāļ¯āˇāˇāļģāļĢāļē:
REM āļ¸āˇāļ¸ āļāļ¯āˇāˇāļģāļĢāļēāˇ, āˇāˇāļĸāˇ āļāˇāļĢāļēāļāˇ āˇāļŗāˇāˇ āļ´āˇāļ āļ´āˇâāļģāˇāˇāˇ āļˇāˇāˇâāļē āˇāˇ:
REM āļāļģāˇāļĢāļēāˇ āļ¯āˇāļ āļāļĢāļąāļē āļāˇāļģāˇāļ¸āļ§ āļāˇāļĢāļēāļ§ āˇāˇāļģāˇāļ¯āļ° āļ´āˇāļāˇāļāˇ āļ¯āˇāļ āˇāˇ āļāˇāļĢāļē (āļ
āļāˇāļ āˇāļŊāˇāļąāˇ):
Sub ExampleSine
REM Pi = 3.1415926 is a predefined variable
Dim d1 As Double
Dim dAlpha As Double
d1 = InputBox("āˇāˇāļģāˇāļ¯āˇāļ° āļ´āˇāļāˇāļāˇ āļ¯āˇāļ āļāļāˇāļŊāˇ āļāļģāļąāˇāļą","āˇāˇāļģāˇāļ¯āˇāļ° āļ´āˇāļāˇāļ")
dAlpha = InputBox("āļāļŊāˇāˇāˇ āļāˇāļĢāļē (āļ
āļāˇāļ āˇāļŊāˇāļąāˇ) āļāļāˇāļŊāˇ āļāļģāļąāˇāļą: ","āļāļŊāˇāˇāˇ")
Print "āļāļģāˇāļĢāļēāˇ āļ¯āˇāļ"; (d1 / sin (dAlpha * Pi / 180))
End Sub