IBM Lotus Symphony
|
تقوم الدالة المثلثية Trigonometric function بارجاع arctangent للتعبير الرقمي. تكون القيمة المرتجعة بالمدى -Pi/2 الى +Pi/2.
يعتبر arctangent هو عكس وظيفة tangent function. تقوم وظيفة Atn Function بارجاع الزاوية "Alpha"، معبرا عنها بزاوية نصف قطرية باستخدام tangent الخاص بهذه الزاوية. يمكن أن تقوم الوظيفة أيضا بارجاع الزاوية "Alpha" من خلال مقارنة النسبة الخاصة بطول الجانب المقابل للزاوية مع طول الجانب القريب من الزاوية في المثلث قائم الزاوية.
Atn(side opposite the angle/side adjacent to angle)= Alpha
Atn (Number)
Double
Number: أي تعبير رقمي يقوم بتمثيل النسبة بين جانبين لمثلث قائم الزاوية. تقوم وظيفة Atn function بارجاع الزاوية المناظرة بزاوية نصف قطرية radians (arctangent).
لتحويل radians الى درجات، قم بضرب radians في 180/pi.
degree=(radian*180)/pi
radian=(degree*pi)/180
Pi هو ثابت الدائرة ذو القيمة المقربة 3.14159.
REM The following example calculates for a right-angled triangle
REM the angle Alpha from the tangent of the angle Alpha:
Sub ExampleATN
REM rounded Pi = 3.14159 is a predefined constant
Dim d1 As Double
Dim d2 As Double
d1 = InputBox$ ("أدخل طول الجانب المجاور للزاوية: ","Adjacent")
d2 = InputBox$ ("أدخل طول الجانب المقابل للزاوية: ","Opposite")
Print "The Alpha angle is"; (atn (d2/d1) * 180 / Pi); " degrees"
End Sub