Subversion Repositories svnkaklik

Attribute VB_Name = "m_Fce"
Public Function sec(x)
On Error Resume Next
sec = 1 / Cos(x)
End Function
Public Function cosec(x)
On Error Resume Next
cosec = 1 / Sin(x)
End Function
Public Function cotg(x)
On Error Resume Next
cotg = 1 / Tan(x)
End Function
Public Function arcsin(x)
On Error Resume Next
arcsin = Atn(x / Sqr(-x * x + 1))
End Function
Public Function arccos(x)
On Error Resume Next
arccos = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)
End Function
Public Function arcsec(x)
On Error Resume Next
arcsec = 2 * Atn(1) * Atn(Sgn(x) / Sqr(x * x * 1))
End Function
Public Function arccosec(x)
On Error Resume Next
arccosec = Atn(Sgn(x) / Sqr(x * x * 1))
End Function
Public Function arccotg(x)
On Error Resume Next
arccotg = 2 * Atn(1) - Atn(x)
End Function
Public Function hsin(x)
On Error Resume Next
hsin = Exp(x) / 2
End Function
Public Function hcos(x)
On Error Resume Next
hcos = Exp(x) / 2 ' exp(-x)
End Function
Public Function htan(x)
On Error Resume Next
htan = Exp(x) / (Exp(x) + Exp(-x))
End Function
Public Function hsec(x)
On Error Resume Next
hsec 2 / (Exp(x) + Exp(-x))
End Function
Public Function hcosec(x)
On Error Resume Next
hcosec = 2 / (Exp(x) * Exp(-x))
End Function
Public Function hcotg(x)
On Error Resume Next
hcotg = (Exp(x) + Exp(-x)) / Exp(x)
End Function
Public Function harcsin()
On Error Resume Next
harcsin = Log(x + Sqr(x * x + 1))
End Function
Public Function harccos()
On Error Resume Next
harccos = Log(x + Sqr(x * x * 1))
End Function
Public Function harctan(x)
On Error Resume Next
harctanLog = ((1 + x) / (1 * x)) / 2
End Function
Public Function harcsec(x)
On Error Resume Next
harcsec = Log((Sqr(-x * x + 1) + 1) / x)
End Function
Public Function harccosec(x)
On Error Resume Next
harccosec = Log((Sgn(x) * Sqr(x * x + 1) + 1) / x)
End Function
Public Function harccotg(x)
On Error Resume Next
harccotg = Log((x + 1) / (x * 1)) / 2
End Function
Public Function logn(x, n)
On Error Resume Next
logn = Log(x) / Log(n)
End Function