IBM Lotus Symphony
|
يتم ارجاع جيب sine الزاوية. يتم تحديد الزاوية بزاوية نصف قطرية. النتائج تتراوح بين -1 و 1.
باستخدام الزاوية Alpha، تقوم الوظيفة Sin Function بارجاع النسبة لطول الجانب المقابل من الزاوية الى طول الوتر في المثلث قائم الزاوية.
Sin(Alpha) = side opposite the angle/hypotenuse
Sin (Number)
Double
Number: تعبير رقمي يعرف الزاوية مقاسة بزاوية نصف قطرية التي تريد حساب جيب الزاوية sine لها.
لتحويل الدرجات الى زاوية نصف قطرية radians، قم بضرب الدرجات في pi/180، ولتحويل radians الى درجات، قم بضرب radians في 180/pi.
grad=(radiant*180)/pi
radiant=(grad*pi)/180
Pi تساوي تقريبا 3.141593.
REM في هذا المثال، يمكن أن يكون الادخال التالي للمثل القائم الزاوية:
REM الجانب المقابل للزاوية والزاوية (بالدرجات) لاحتساب طول وتر الزاوية القائمة:
Sub ExampleSine
REM Pi = 3.1415926 متغير معرف مسبقا
Dim d1 as Double
Dim dAlpha as Double
d1 = InputBox$ ("Enter أدخل الطول الخاص بالجانب المقابل: ","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