Lotus Symphony 1.2
|
計算一個角度的餘弦值。角度以弧度為單位指定。結果在 -1 到 1 之間。
以 Alpha 角為例,在直角三角形中 Cos 函數計算 Alpha 角度的鄰邊與斜邊長度之比。
Cos(Alpha) = 鄰邊/斜邊
Number:數值表示式,用於指定要計算餘弦值的角度 (以弧度為單位)。
若要將度轉換成弧度,可將度乘以 pi/180。若要將弧度轉換成度,可將弧度乘以 180/pi。
度 = (弧度*180) /pi
弧度 = (度*pi)/180
其中,PI 是固定的圓周率常數,捨入後的值為 3.14159...
REM 以下範例以直角三角形為例,要求輸入
REM 依據鄰邊和角度 (以度為單位),並計算三角形斜邊的長度:
Sub ExampleCosinus
REM 捨入後的 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