IBM Lotus Symphony
|
Ermittelt den Kosinus eines Winkels. Der Winkel wird im Bogenmaß (in Radiant) angegeben. Das Ergebnis liegt im Bereich von -1 bis 1.
Ausgehend von einem Winkel Alpha errechnet die Cos-Funktion den Quotienten aus der sich dem Winkel anschließenden Seite geteilt durch die Länge der Hypotenuse in einem rechtwinkligen Dreieck.
Cos(Alpha) = Ankathete/Hypotenuse
Cos (Zahl)
Double
Zahl: Numerischer Ausdruck, der einen im Bogenmaß (Rad) angegebenen Winkel darstellt, dessen Kosinus Sie berechnen möchten.
Zur Umrechnung von Grad in Radiant muss die Gradangabe mit Pi/180 multipliziert werden. Zur Umrechnung von Radiant in Grad muss das Bogenmaß mit 180/Pi multipliziert werden.
grad=(radiant*180)/pi
radiant=(grad*pi)/180
Pi ist hierbei die feste Kreiskonstante mit dem gerundeten Wert 3,14159...
REM Das folgende Beispielprogramm erlaubt für ein rechtwinkliges Dreieck die Eingabe von
REM Ankathete und Winkel (in Grad) und berechnet daraus die Länge der Hypotenuse:
Sub ExampleCosinus
REM Pi gerundet = 3.14159
Dim d1 as Double, dAngle as Double
d1 = InputBox$ ("Bitte geben Sie die Länge der Ankathete ein: ","Ankathete")
dAngle = InputBox$ ("Bitte geben Sie den Winkel Alpha ein (in Grad): ","Alpha")
Print "Die Länge der Hypotenuse beträgt"; (d1 / cos (dAngle * Pi / 180))
End Sub