Информатика. Индришенок В.И - 31 стр.

UptoLike

ВУЗ: 

МИРЭА | Москва

Составители: 

Рубрика: 

-31-
For i = 1 To N
summ = summ + xfunc(XI)
XI = XI + pas
Next i
IntegrFunc = summ * pas
End Function
Private Sub IntegrCom_Click()
Dim eps,Integral1,Integral2,R,Del,Left,Rigth As Double
Dim Nnn As Long
eps = 0.000001
Nnn = 24
Left = Val(LeftText)
Rigth = Val(RigthText)
Integral1 = IntegrFunc(Left, Rigth, Nnn)
Do
Nnn = 2 * Nnn
Integral2 = IntegrFunc(Left, Rigth, Nnn)
If Abs(Integral2) <= 1 Then R = 1 Else R = Integral2
Del = Abs((Integral1 - Integral2) / R)
Integral1 = Integral2
Loop Until Del < eps
IntegText = Str(Integral2)
Nnn = 24
End Sub
Методы Монте-Карло. С развитием вычислительной тех-
ники все чаще применяются
статистические методы. Их приме-
нение наиболее целесообразно при вычислении кратных интегра-
лов, а также при решении некоторых физических задач. Разно-
видность одного из статистических методов сводится к тому, что
при интегрировании функции на отрезке методом прямоугольни-
ков в качестве узла разбиения
x
0
выбирается случайное число,
распределенное на интервале интегрирования
[a,b]. Проводится
N вычислений со случайными узлами x
j
, результат усредняется и
принимается за приближенное значение интеграла:
∑
∫
=
−
≈
N
j
j
b
a
xf
N
ab
dxxf
1
)()(
Погрешность вычисления интеграла
ε зависит от числа испыта-
ний
N:
ε≅
N
1/2
. 
                             -31-

    For i = 1 To N
    summ = summ + xfunc(XI)
    XI = XI + pas
    Next i
    IntegrFunc = summ * pas
End Function
Private Sub IntegrCom_Click()
Dim eps,Integral1,Integral2,R,Del,Left,Rigth As Double
Dim Nnn As Long
eps = 0.000001
Nnn = 24
Left = Val(LeftText)
Rigth = Val(RigthText)
Integral1 = IntegrFunc(Left, Rigth, Nnn)
Do
Nnn = 2 * Nnn
Integral2 = IntegrFunc(Left, Rigth, Nnn)
If Abs(Integral2) <= 1 Then R = 1 Else R = Integral2
Del = Abs((Integral1 - Integral2) / R)
Integral1 = Integral2
Loop Until Del < eps
IntegText = Str(Integral2)
Nnn = 24
End Sub
     Методы Монте-Карло. С развитием вычислительной тех-
ники все чаще применяются статистические методы. Их приме-
нение наиболее целесообразно при вычислении кратных интегра-
лов, а также при решении некоторых физических задач. Разно-
видность одного из статистических методов сводится к тому, что
при интегрировании функции на отрезке методом прямоугольни-
ков в качестве узла разбиения x0 выбирается случайное число,
распределенное на интервале интегрирования [a,b]. Проводится
N вычислений со случайными узлами xj, результат усредняется и
принимается за приближенное значение интеграла:
     b
                 b−a N
     ∫ f ( x)dx ≈ N ∑ f ( x j )
     a               j =1
Погрешность вычисления интеграла ε зависит от числа испыта-
ний N: ε≅N1/2.

Страницы