関数 組み込み関数から三角関数-アーク-サイン-コサイン-タンジェントを求める

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

Option Explicit

'関数 組み込み関数から三角関数-アーク-サイン-コサイン-タンジェントを求める
'ArcsinArccosArctangent

Function Arcsin(x) As Double
'***************************************
'アークサイン Arc-Sine を求める
'***************************************
'三角関数 Trigonometric Function
'返値はラジアン
Arcsin = Atn(x / Sqr(-x * x + 1))
End Function

Function Arccos(x) As Double
'***************************************
'アークコサイン Arc-Cosine を求める
'***************************************
'三角関数 Trigonometric Function
'返値はラジアン
Arccos = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)
End Function

Function Arctan(x) As Double
'***************************************
'アークタンジェント Arc-Tangent を求める
'***************************************
'三角関数 Trigonometric Function
'返値はラジアン
'※アークタンジェントはVB関数に存在します。
Arctan = Atn(x)
End Function

Private Sub test1()
Debug.Print 4 * Arctan(1)
'3.14159265358979
End Sub

Atn 関数

  • 指定した数値のアークタンジェントを倍精度浮動小数点数型 (Double) で返します。
  • 構文
  • Atn (Number)
  • 引数 number は必ず指定します。
  • 引数 number には、倍精度浮動小数点数型 (Double) の数値または任意の数式を指定します。
  • 解説
  • Atn 関数は、直角三角形の 2 辺の比を引数 (number) として受け取り、対応する角度を返します。
  • ここでいう 2 辺とは、直角をはさむ 2 つの辺を指します。
  • 2 辺の比は、求める角の反対側の辺 (対辺) の長さをもう一方の辺 (底辺、つまり求める角に隣接する側の辺) の長さで割った値です。
  • 戻り値は、-π/2 ～π/2 の範囲の値 (単位はラジアン) になります。
  • 角度の単位を度からラジアンに変換するには、度にπ/180 を掛けます。
  • ラジアンから度に変換するには､ラジアンに 180 / πを掛けます｡
  • メモ Atn 関数は Tan 関数の逆三角関数です。
  • Tan 関数は、引数として角度を受け取り、その角度を含む直角三角形の直角をはさむ2辺の比を返します。
  • Atn 関数と、タンジェントの逆数であるコタンジェント (1/タンジェント) の違いに気を付けてください。
  • はてなブックマークに追加

 

2016年10月01日|[VBサンプルコード]:[関数]