IBM Lotus Symphony
|
يتم تحديد جيب تمام tangent الزاوية. يتم تحديد الزاوية بزاوية نصف قطرية.
باستخدام الزاوية Alpha، تقوم الوظيفة Tan Function بحساب النسبة لطول الجانب المقابل للزاوية الى طول الجانب القريب للزاوية في المثلث قائم الزاوية.
Tan(Alpha) = side opposite the angle/side adjacent to angle
Tan (Number)
Double
Number: أي تعبير رقمي تريد احتساب الظل له (بزاوية نصف قطرية).
لتحويل الدرجات الى زاوية نصف قطرية radians، قم بضرب الدرجات في Pi/180. لتحويل radians الى درجات، قم بضرب radians في 180/Pi.
degrees=(radiant*180)/Pi
radiant=(degrees*Pi)/180
Pi تساوي تقريبا 3.141593.
REM في هذا المثال، يمكن أن يكون الادخال التالي للمثل القائم الزاوية:
REM الجانب المقابل للزاوية والزاوية (بالدرجات) لاحتساب طول الجانب المجاول للزاوية:
Sub ExampleTangens
REM Pi = 3.1415926 is a pre-defined variable
Dim d1 as Double
Dim dAlpha as Double
d1 = InputBox$ ("أدخل طول الجانب المقابل للزاوية: ","opposite")
dAlpha = InputBox$ ("Enter the Alpha angle (in degrees): ","Alpha")
Print "طول الجانب المجاور للزاوية"; (d1 / tan (dAlpha * Pi / 180))
End Sub