Subversion Repositories svnkaklik

Rev

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