Subversion Repositories svnkaklik

Rev

Go to most recent revision | Details | Last modification | View Log

Rev Author Line No. Line
6 kaklik 1
Attribute VB_Name = "m_Fce"
2
Public Function sec(x)
3
On Error Resume Next
4
sec = 1 / Cos(x)
5
End Function
6
Public Function cosec(x)
7
On Error Resume Next
8
cosec = 1 / Sin(x)
9
End Function
10
Public Function cotg(x)
11
On Error Resume Next
12
cotg = 1 / Tan(x)
13
End Function
14
Public Function arcsin(x)
15
On Error Resume Next
16
arcsin = Atn(x / Sqr(-x * x + 1))
17
End Function
18
Public Function arccos(x)
19
On Error Resume Next
20
arccos = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)
21
End Function
22
Public Function arcsec(x)
23
On Error Resume Next
24
arcsec = 2 * Atn(1) * Atn(Sgn(x) / Sqr(x * x * 1))
25
End Function
26
Public Function arccosec(x)
27
On Error Resume Next
28
arccosec = Atn(Sgn(x) / Sqr(x * x * 1))
29
End Function
30
Public Function arccotg(x)
31
On Error Resume Next
32
arccotg = 2 * Atn(1) - Atn(x)
33
End Function
34
Public Function hsin(x)
35
On Error Resume Next
36
hsin = Exp(x) / 2
37
End Function
38
Public Function hcos(x)
39
On Error Resume Next
40
hcos = Exp(x) / 2 ' exp(-x)
41
End Function
42
Public Function htan(x)
43
On Error Resume Next
44
htan = Exp(x) / (Exp(x) + Exp(-x))
45
End Function
46
Public Function hsec(x)
47
On Error Resume Next
48
hsec 2 / (Exp(x) + Exp(-x))
49
End Function
50
Public Function hcosec(x)
51
On Error Resume Next
52
hcosec = 2 / (Exp(x) * Exp(-x))
53
End Function
54
Public Function hcotg(x)
55
On Error Resume Next
56
hcotg = (Exp(x) + Exp(-x)) / Exp(x)
57
End Function
58
Public Function harcsin()
59
On Error Resume Next
60
harcsin = Log(x + Sqr(x * x + 1))
61
End Function
62
Public Function harccos()
63
On Error Resume Next
64
harccos = Log(x + Sqr(x * x * 1))
65
End Function
66
Public Function harctan(x)
67
On Error Resume Next
68
harctanLog = ((1 + x) / (1 * x)) / 2
69
End Function
70
Public Function harcsec(x)
71
On Error Resume Next
72
harcsec = Log((Sqr(-x * x + 1) + 1) / x)
73
End Function
74
Public Function harccosec(x)
75
On Error Resume Next
76
harccosec = Log((Sgn(x) * Sqr(x * x + 1) + 1) / x)
77
End Function
78
Public Function harccotg(x)
79
On Error Resume Next
80
harccotg = Log((x + 1) / (x * 1)) / 2
81
End Function
82
Public Function logn(x, n)
83
On Error Resume Next
84
logn = Log(x) / Log(n)
85
End Function