, , Z = 1 : L -1, R 1. -, Z 1, n, . . . L R:
(8)
(9)
, A N. (10):
(10)
(10) , R, ,
L = -R. , :
(11)
R ε, .
, . - (.10) pr10.
11. F(X) N , [X0, Xn],
.
. : X 0, Xn , (X 0 <X n); n - [X 0, X n ]; F(X) - .
, X - ; - ( ); - , (i = 0.. n).
n, h X 0, Xn :
(11)
(. . , , ) .
. | |||
N | N | [X0, Xn] | |
X0 | X0 | ||
Xn | XN | ||
X | X | ||
F(X) | Y | ||
H |
, X Y . X = 0 .
- . 11.
. 11. - 11
|
|
, - ( , . .). , - , X Y , VBA MsgBox . , , , .
pr11_1.
Sub Pr11_1()
Dim X As Double, Y As Double, I As Integer, N As Integer
Dim H As Double, X0 As Double, XN As Double
Dim Prompt As String
X0 = InputBox( X)
XN = InputBox( X)
N = InputBox( )
H = (XN - X0)/(N-1)
Prompt = N │ X │ Y │ & vbNewLine
Prompt = Prompt & _
_____________________________ & vbNewLine
For I = 0 To N - 1
X = X0 + I*H;
If X <> 0 Then
Y= SIN(X+1)*EXP(2 X^2) / X
Prompt = Prompt & & I+1 & │ & _
Format(X,##0.000) & │ & Format(Y,##0.000) & _
│ & vbNewLine
Else
Prompt = Prompt & & I+1 & │ & _
Format(X,##0.000) & │ │ & vbNewLine
End If
Next I
MsgBox(Prompt)
End Sub
- Excel. Excel. - , pr11_2.
Sub Pr11_1()
Dim X As Double, Y As Double, I As Integer, N As Integer
Dim H As Double, X0 As Double, XN As Double
X0 = InputBox( X)
XN = InputBox( X)
N = InputBox( )
H = (XN - X0)/(N-1)
Cells(1, 1) = N
Cells(1, 2) = X
Cells(1, 3) = Y
For I = 0 To N - 1
X = X0 + I*H;
If X <> 0 Then
Y= SIN(X+1)*EXP(2 X^2) / X
Cells(I+2, 1) = I+1
Cells(I+2, 2) = Format(X,##0.000)
Cells(I+2, 3) = Format(Y,##0.000)
Else
Cells(I+2, 1) = I+1
Cells(I+2, 2) = Format(X,##0.000)
Cells(I+2, 3) =
End If
Next I
End Sub