.
- . [2], . , .[1]
.
Exp(x), sin(x), cos(x), Ln(x), . Visual Basic for Application, , , .
, :
(Xmin)
(Xmax)
(dx)
(E)
:
MyExp(x):
1) x E
2) 1
3) While
4)
5) ,
6) .
MyCos(x):
1) x E
2) 1
3) While
4)
5) .
MySin(x):
1) x E
2) MyCos X, /2
MyLn(x):
1) x E
2) 0
3) While
4)
5) .
Sin Cos Exp Ln .xls
Exp(x), sin(x), cos(x), ln(x) .
:
1) http://ru.wikipedia.org/
Function MyExp(x, E) As Double
r = 1
a = 1
k = 0
While (Abs(a) > E)
k = k + 1
a = a * (x / k)
r = r + a
Wend
MyExp = r
End Function
Function MyLn(x, E) As Double
x = x - 1
p = x
r = x
k = 2
While (Abs(p) > E)
p = p * -x
r = r + p / k
k = k + 1
|
|
Wend
x = x + 1
MyLn = r
End Function
Function MyCos(x, E) As Double
r = 1
a = 1
k = 0
While (Abs(a) > E)
k = k + 1
a = a * -(x ^ 2) / ((2 * k - 1) * (2 * k))
r = r + a
Wend
MyCos = r
End Function