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

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

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

Option Explicit


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

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


Function HArccos(x) As Double
'********************************************************
'双曲線アークコサイン Hyperbola-Arc-Cosine を求める
'********************************************************
'三角関数 Trigonometric Function
'返値はラジアン
HArccos = Log(x + Sqr(x * x - 1))
End Function


Function HArctan(x) As Double
'********************************************************
'双曲線アークタンジェント Hyperbola-Arc-Tangent を求める
'********************************************************
'三角関数 Trigonometric Function
'返値はラジアン
HArctan = Log((1 + x) / (1 - x)) / 2
End Function
  • はてなブックマークに追加

 

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