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

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

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


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

Function HSec(x) As Double
'*****************************************************
'双曲線セカント Hyperbola-Secant を求める
'*****************************************************
'三角関数 Trigonometric Function
'返値はラジアン
HSec = 2 / (Exp(x) + Exp(-x))
End Function


Function HCosec(x) As Double
'*****************************************************
'双曲線コセカント Hyperbola-Cosecant を求める
'*****************************************************
'三角関数 Trigonometric Function
'返値はラジアン
HCosec = 2 / (Exp(x) - Exp(-x))
End Function


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


Private Sub test1()
Debug.Print 4 * HCotan(1)
End Sub








Production Japan Import Application. Since 1998