IBM Lotus Symphony
|
Oblicza cosinus kąta. Kąt jest określany w radianach. Wynik ma wartość z zakresu od -1 do 1.
Funkcja Cos oblicza stosunek długości przyprostokątnej przylegającej do kąta Alfa do przeciwprostokątnej w trójkącie prostokątnym.
Cos(Alfa) = przyprostokątna przylegająca do kąta/przeciwprostokątna
Cos (Liczba)
Liczba zmiennopozycyjna o podwójnej precyzji
Liczba: Wyrażenie liczbowe reprezentujące kąt w radianach, dla którego ma być obliczony cosinus.
Aby zamienić stopnie na radiany, należy pomnożyć stopie przez pi/180. Aby zamienić radiany na stopnie, należy pomnożyć radiany przez wartość 180/pi.
stopnie=(radiany*180)/pi
radiany=(stopnie*pi)/180
Pi jest tutaj stałą o wartości równej w zaokrągleniu 3,14159...
REM Przykład pobierający dla trójkąta prostokątnego sieczną i kąt (w stopniach)
REM i obliczający na tej podstawie długość przeciwprostokątnej:
Sub Przyklad_Cosinus
REM W zaokrągleniu Pi = 3,14159
Dim d1 as Double, dAngle as Double
d1 = InputBox$ (""Wprowadź długość przyprostokątnej przy kącie: ","Przyprostokątna przy kącie")
dAngle = InputBox$ ("Wprowadź kąt Alfa (w stopniach): ","Alfa")
Print "Długość przeciwprostokątnej to"; (d1 / cos (dAngle * Pi / 180))
End Sub