IBM Lotus Symphony
|
Izračuna kosinus kota. Kot je podan v radianih. Rezultat leži med -1 in 1.
S pomočjo kota alfa funkcija Cos izračuna razmerje med dolžino priležne katete kota in dolžino hipotenuze v pravokotnem trikotniku.
Cos(alfa) = priležna/hipotenuza
Cos (Number)
Dvojno
Number: Številski izraz, ki podaja kot v radianih, za katerega želite izračunati kosinus.
Če želite pretvoriti stopinje v radiane, pomnožite stopinje s pi/180. Če želite pretvoriti radiane v stopinje, pomnožite radiane s 180/pi.
stopinja=(radian*180)/pi
radian=(stopinja*pi)/180
Pi je fiksna konstanta kroga z zaokroženo vrednostjo 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$ (""Enter the length of the adjacent side: ","Adjacent")
dAngle = InputBox$ ("Enter the angle Alpha (in degrees): ","Alpha")
Print "The length of the hypothenuse is"; (d1 / cos (dAngle * Pi / 180))
End Sub