IBM Lotus Symphony
|
يتم حساب جيب تمام cosine زاوية. يتم تحديد الزاوية بزاوية نصف قطرية. النتائج تتراوح بين -1 و 1.
باستخدام الزاوية Alpha، تقوم الوظيفة Cos-Function بحساب نسبة طول الجانب القريب من الزاوية، مقسوما على طول الوتر في المثلث قائم الزاوية.
Cos(Alpha) = Adjacent/Hypotenuse
Cos (Number)
Double
Number: تعبير رقمي يحدد زاوية مقاسة بزاوية نصف قطرية تريد حساب جيب الزاوية cosine لها.
لتحويل الدرجات الى زاوية نصف قطرية radians، قم بضرب الدرجات في pi/180. لتحويل radians الى درجات، قم بضرب radians في 180/pi.
degree=(radian*180)/pi
radian=(degree*pi)/180
Pi هو ثابت الدائرة ذو القيمة المقربة 3.14159...
REM The following example allows for a right-angled triangle the input of
REM secant and angle (in degrees) and calculates the length of the hypotenuse:
Sub ExampleCosinus
REM rounded Pi = 3.14159
Dim d1 as Double, dAngle as Double
d1 = InputBox$ (""أدخل طول الجانب المجاور: ","Adjacent")
dAngle = InputBox$ ("أدخل الزاوية Alpha (بالدرجات): ","Alpha")
Print "The length of the hypothenuse is"; (d1 / cos (dAngle * Pi / 180))
End Sub