VB程序中的反三角函数

VB 专栏收录该内容
13 篇文章 0 订阅

ArcTan: 
VB自带:Atn 

ArcSin: 
Function ArcSin(X As Doule) As Double 
    Dim Temp As Double 
    If X = 0 Then 
        Temp=0 
      Else 
        Temp = Atn(X/Sqr(1-X*X)) 
      End If 
    ArcSin=Temp 
End Function 

ArcCos: 
Function ArcCos(X As Doule) As Double 
    Dim Temp As Double 
    If X = 0 Then 
        Temp=pi/2 
      Else 
        Temp = Atn(Sqr(1-X*X)/X) 
      End If 
    ArcCos=Temp 
End Function 

'Secant   
  Public   Function   Sec(ByVal   Number   As   Double)   As   Double   
          Sec   =   1   /   Cos(Number)   
  End   Function   
    
  'Cosecant   
  Public   Function   Csc(ByVal   Number   As   Double)   As   Double   
          Csc   =   1   /   Sin(Number)   
  End   Function   
    
  'Cotangent   
  Public   Function   Ctn(ByVal   Number   As   Double)   As   Double   
          Ctn   =   1   /   Tan(Number)   
  End   Function   
    
  'Inverse   Sine   
  Public   Function   ASin(ByVal   Number   As   Double)   As   Double   
          ASin   =   Atn(Number   /   Sqr(-Number   *   Number   +   1))   
  End   Function   
    
  'Inverse   Cosine   
  Public   Function   ACos(ByVal   Number   As   Double)   As   Double   
          ACos   =   Atn(-Number   /   Sqr(-Number   *   Number   +   1))   +   2   *   Atn(1)   
  End   Function   
    
  'Inverse   Secant   
  Public   Function   ASec(ByVal   Number   As   Double)   As   Double   
          ASec   =   Atn(Number   /   Sqr(Number   *   Number   -   1))   +   Sgn((Number)   -   1)   *   (2   *   
          Atn(1))   
  End   Function   
    
  'Inverse   Cosecant   
  Public   Function   ACsc(ByVal   Number   As   Double)   As   Double   
          ACsc   =   Atn(Number   /   Sqr(Number   *   Number   -   1))   +   (Sgn(Number)   -   1)   *   (2   *   
          Atn(1))   
  End   Function   
    
  'Inverse   Cotangent   
  Public   Function   ACtn(ByVal   Number   As   Double)   As   Double   
          ACtn   =   Atn(Number)   +   2   *   Atn(1)   
  End   Function   
    
  'Hyperbolic   Sine   
  Public   Function   SinH(ByVal   Number   As   Double)   As   Double   
          SinH   =   (Exp(Number)   -   Exp(-Number))   /   2   
  End   Function   
    
  'Hyperbolic   Cosine   
  Public   Function   CosH(ByVal   Number   As   Double)   As   Double   
          CosH   =   (Exp(Number)   +   Exp(-Number))   /   2   
  End   Function   
    
  'Hyperbolic   Tangent   
  Public   Function   TanH(ByVal   Number   As   Double)   As   Double   
          TanH   =   (Exp(Number)   -   Exp(-Number))   /   (Exp(Number)   +   Exp(-Number))   
  End   Function   
    
  'Hyperbolic   Secant   
  Public   Function   SecH(ByVal   Number   As   Double)   As   Double   
          SecH   =   2   /   (Exp(Number)   +   Exp(-Number))   
  End   Function   
    
  'Hyperbolic   Cosecant   
  Public   Function   CscH(ByVal   Number   As   Double)   As   Double   
          CscH   =   2   /   (Exp(Number)   -   Exp(-Number))   
  End   Function   
    
  'Hyperbolic   Cotangent   
  Public   Function   CtnH(ByVal   Number   As   Double)   As   Double   
          CtnH   =   (Exp(Number)   +   Exp(-Number))   /   (Exp(Number)   -   Exp(-Number))   
  End   Function   
    
  'Inverse   Hyperbolic   Sine   
  Public   Function   ASinH(ByVal   Number   As   Double)   As   Double   
          ASinH   =   Log(Number   +   Sqr(Number   *   Number   +   1))   
  End   Function   
    
  'Inverse   Hyperbolic   Cosine   
  Public   Function   ACosH(ByVal   Number   As   Double)   As   Double   
          ACosH   =   Log(Number   +   Sqr(Number   *   Number   -   1))   
  End   Function   
    
  'Inverse   Hyperbolic   Tangent   
  Public   Function   ATanH(ByVal   Number   As   Double)   As   Double   
          ATanH   =   Log((1   +   Number)   /   (1   -   Number))   /   2   
  End   Function   
    
  'Inverse   Hyperbolic   Secant   
  Public   Function   ASecH(ByVal   Number   As   Double)   As   Double   
          ASecH   =   Log((Sqr(-Number   *   Number   +   1)   +   1)   /   Number)   
  End   Function   
    
  'Inverse   Hyperbolic   Cosecant   
  Public   Function   ACscH(ByVal   Number   As   Double)   As   Double   
          ACscH   =   Log((Sgn(Number)   *   Sqr(Number   *   Number   +   1)   +   1)   /   Number)   
  End   Function   
    
  'Inverse   Hyperbolic   Cotangent   
  Public   Function   ACtnH(ByVal   Number   As   Double)   As   Double   
          ACtnH   =   Log((Number   +   1)   /   (Number   -   1))   /   2   
  End   Function   
    
  'Logarithm   to   base   N   
  Public   Function   LogN(ByVal   Base   As   Double,   ByVal   Number   As   Double)   
          LogN   =   Log(Number)   /   Log(Base)   
  End   Function   
    
  'Convert   degrees   to   radians   
  Public   Function   DegToRad(ByVal   Number   As   Double)   As   Double   
          DegToRad   =   Number   *   1.74532925199433E-02   'pi/180   
  End   Function   
    
  'Convert   radians   to   degrees   
  Public   Function   RadToDeg(ByVal   Number   As   Double)   As   Double   
          RadToDeg   =   Number   *   57.2957795130824   '   180/pi   
  End   Function

  • 0
    点赞
  • 0
    评论
  • 1
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 编程工作室 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值