Module
Contents
Index 🔎︎

# Sin Function

与えられた角度の Sin (サイン、正弦) 値を計算します。角度の単位はラジアンです。この関数の戻り値は、-1 から 1 の範囲を取ります。

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

Sin (α) = 頂角αの対辺の長さ/斜辺の長さ

## 構文:

    Sin (Number)

## 戻り値:

倍精度

## パラメーター:

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

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

通常の角度の値 = (ラジアン値*180)/pi

ラジアン値 = (通常の角度の値*pi)/180

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

## Error codes:

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

## 例:

    REM この例では、直角三角形を想定しています。

    REM ここでは 1 つの頂角 (通常の角度) とその対辺の長さから、斜辺の長さを計算しています。

    Sub ExampleSine

    REM Pi = 3.1415926 は事前定義されている定数

    Dim d1 As Double

    Dim dAlpha As Double

        d1 = InputBox("Enter the length of the opposite side:  ","Opposite Side")

        dAlpha = InputBox("Enter the angle Alpha (in degrees):","Alpha")

        Print "The length of the hypotenuse is"; (d1 / sin (dAlpha * Pi / 180))

    End Sub