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