Tan Function

角度のタンジェントを指定します。 角度はラジアン単位で指定します。

たとえば角度αの Tan 値は、角度αを 1 つの頂角とする直角三角形を想定して、この頂点に隣接する辺と対辺の長さの比 (対辺÷隣接する辺) として計算します。

Tan (α) = 頂点αの対辺の長さ/頂点αに隣接する辺の長さ

構文:

Tan (Number)

戻り値:

倍精度

パラメーター:

Number: Tan 値を計算させる角度を示す数値表式 (単位はラジアン)。

通常の角度をラジアン値に変換するには、角度×π/180 と計算します。ラジアン値を通常の角度に変換するには、ラジアン値×180/π と計算します。

度数=(ラジアン*180)/Pi

ラジアン=(度数*Pi)/180

ここで pi は近似値で 3.141593 という値です。

Error codes:

5 無効なプロシージャー呼び出しです

例:

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