ROBOT.LK

Code: Select all

Public Function Sec(X As Double) As Double
   Sec = 1 / Cos(X)
End Function

Code: Select all

Public Function CoSec(X As Double) As Double
   CoSec = 1 / Sin(X)
End Function

Code: Select all

Public Function CoTan(X As Double) As Double
   CoTan = 1 / Tan(X)
End Function

Code: Select all

Public Function ArcSin(X As Double) As Double
   ArcSin = Atn(X / Sqr(-X * X + 1))
End Function

Code: Select all

Public Function ArcCos(X As Double) As Double
   ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function

Code: Select all

Public Function ArcSec(X As Double) As Double
   ArcSec = Atn(X / Sqr(X * X - 1)) + Sgn(X - 1) * (2 * Atn(1))
End Function

Code: Select all

Public Function ArcCoSec(X As Double) As Double
   ArcCoSec = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
End Function

Code: Select all

Public Function ArcCoTan(X As Double) As Double
   ArcCoTan = Atn(X) + 2 * Atn(1)
End Function

Code: Select all

Public Function HSin(X As Double) As Double
   HSin = (Exp(X) - Exp(-X)) / 2
End Function

Code: Select all

Public Function HCos(X As Double) As Double
   HCos = (Exp(X) + Exp(-X)) / 2
End Function

Code: Select all

Function HTan(X As Double) As Double
   HTan = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))
End Function

Code: Select all

Public Function HSec(X As Double) As Double
   HSec = 2 / (Exp(X) + Exp(-X))
End Function

Code: Select all

Public Function HCoSec(X As Double) As Double
   HCoSec = 2 / (Exp(X) - Exp(-X))
End Function

Code: Select all

Public Function HCotan(X As Double) As Double
   HCotan = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))
End Function

Code: Select all

Public Function HArcSin(X As Double) As Double
   HArcSin = Log(X + Sqr(X * X + 1))
End Function

Code: Select all

Public Function HArcCos(X As Double) As Double
   HArcCos = Log(X + Sqr(X * X - 1))
End Function

Code: Select all

Function HArcTan(X As Double) As Double
   HArcTan = Log((1 + X) / (1 - X)) / 2
End Function

Code: Select all

Public Function HArcSec(X As Double) As Double
   HArcSec = Log((Sqr(-X * X + 1) + 1) / X)
End Function

Code: Select all

Public Function HArcCoSec(X As Double) As Double
   HArcCoSec = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X)
End Function

Code: Select all

Public Function HArcCoTan(X As Double) As Double
   HArcCoTan = Log((X + 1) / (X - 1)) / 2
End Function

Code: Select all

Public Function LogN(X As Double, n As Double) As Double
   LogN = Log(X) / Log(n)
End Function