IBM Lotus Symphony
|
与えられた角度の Tan (タンジェント、正接) 値を計算します。角度の単位はラジアンです。
例えば角度αの Tan 値は、角度αを 1 つの頂角とする直角三角形を想定して、この頂点に隣接する辺と対辺の長さの比 (対辺÷隣接する辺) として計算します。
Tan (α) = 頂点αの対辺の長さ/頂点αに隣接する辺の長さ
Tan (Number)
Double
Number: Tan 値を計算させる角度を示す数値表式 (単位はラジアン)。
通常の角度をラジアン値に変換するには、角度×π/180 と計算します。ラジアン値を通常の角度に変換するには、ラジアン値×180/π と計算します。
角度=(ラジアン値*180)/pi
ラジアン値=(角度*pi)/180
ここで pi は近似値で 3.141593 という値です。
REM この例では、直角三角形を想定しています。
REM ここでは 1 つの頂角 (通常の角度) とその対辺の長さから、この頂点に隣接する辺の長さを計算しています。
Sub ExampleTangens
REM Pi = 3.1415926 は事前定義されている定数
Dim d1 as Double
Dim dAlpha as Double
d1 = InputBox$ ("Enter the length of the side opposite the angle: ","opposite")
dAlpha = InputBox$ ("Enter the Alpha angle (in degrees): ","Alpha")
Print "the length of the side adjacent the angle is"; (d1/tan (dAlpha * Pi/180))
End Sub