Sin Function
αααα‘ααβαααΈαα»αβααβαα»ααα½αβΒ α αα»αβααααΌαβααΆαβαααααΆααβββααΆβαααΆαααααΒ α ααααααβαααα·αβαα βα ααααα -1 αα·α 1Β α
αααβααααΎβαα»α Alpha α’αα»αααα Sin αααα‘ααβαααΆααΆαααβααβααααααβαααα»αβααβααβαα»α αα βααΉαβααααααβα’ααΈαααΌααΈαα»αβαααα»αβααααΈαααβαααΒ α
Sin(Alpha) = αααα»αβαα/α’ααΈαααΌααΈαα»α
ααΆαααβααααααα α
Sin (Number)
αααααβαααα‘αα α
αααα
αααΆαααΆαααααα α
α ααα½αβ α ααααααβαααβαααβαααααβαα»αββααΆβαααΆααααα αααβα’αααβα ααβααααΆβαααΈαα»αΒ α
ααΎααααΈβααααααβααΊααααβααΆβαααΆααααα αα»αβααΊααααβααΆαα½αβααΉα pi/180Β α ααΎααααΈβααααααβαααΆαααααβααΆβααΊαααα αα»αβαααΆαααααβααΆαα½αβααΉα 180/piΒ α
grad=(radiant*180)/pi
radiant=(grad*pi)/180
Pi ααΊβαααα αα 3.141593Β α
α§ααΆα ααα α
REM In this example, the following entry is possible for a right-angled triangle:
REM The side opposite the angle and the angle (in degrees) to calculate the length of the hypotenuse:
Sub ExampleSine
REM Pi = 3.1415926 is a predefined variable
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