IBM Lotus Symphony
|
与えられた角度の Cos (コサイン、余弦) 値を計算します。角度の単位はラジアンです。この関数の戻り値は、-1 から 1 の範囲を取ります。
例えば角度αの Cos 値は、角度αを 1 つの頂角とする直角三角形を想定して、この頂点で交わる辺と斜辺の長さの比 (辺÷斜辺) として計算します。
Cos (α) = 頂角αに隣接する辺の長さ/斜辺の長さ
Cos (Number)
Double
Number: Cos 値を計算させる角度を示す数値表式 (単位はラジアン)。
通常の角度をラジアン値に変換するには、角度×π/180 と計算します。ラジアン値を通常の角度に変換するには、ラジアン値×180/π と計算します。
通常の角度の値 = (ラジアン値*180)/pi
ラジアン値 = (通常の角度の値*pi)/180
ここで pi は円周率πを示す固定値で、近似値で約 3.141592657 になります。
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