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

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][関数 組み込み関数から三角関数-双曲線アーク-セカント-コセカン-コタンジェンを求める]
Option Explicit


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

Function HArcsec(x) As Double
'**************************************************************
'双曲線アークセカント Hyperbola-Arc-Secant を求める
'**************************************************************
'三角関数 Trigonometric Function
'返値はラジアン
HArcsec = Log((Sqr(-x * x + 1) + 1) / x)
End Function


Function HArccosec(x) As Double
'**************************************************************
'双曲線アークコセカント Hyperbola-Arc-Cosecant を求める
'**************************************************************
'三角関数 Trigonometric Function
'返値はラジアン
HArccosec = Log((Sgn(x) * Sqr(x * x + 1) + 1) / x)
End Function


Function HArccotan(x) As Double
'**************************************************************
'双曲線アークコタンジェント Hyperbola-Arc-Cotangent を求める
'**************************************************************
'三角関数 Trigonometric Function
'返値はラジアン
HArccotan = Log((x + 1) / (x - 1)) / 2
End Function









Production Japan Import Application. Since 1998