Вычисление кратных интегралов
Обычно при вычислении кратных интегралов методом Монте-Карло используют один из двух способов. Первый способ. Пусть требуется вычислить
по области G, лежащей в
Выберем
Тогда точки Пусть из общего числа
где под
Указанный способ можно применить к вычислению кратных интегралов и для произвольной области Второй способ. Если функция
где область интегрирования Если в области
где область Возьмём
Составим соответствующую последовательность случайных точек Пусть из общего числа
Практическая часть Пример 1
Вычислим приближенно интеграл Точное значение его известно: Используем для вычисления две различные случайные величины 1) Пусть Пусть
Таблица 2.1
2) пусть теперь
откуда получаем
формула (2.2) имеет вид
Пусть
Таблица 2.2
Как и ожидалось, второй способ вычислений дал более точный результат. 3) По значениям, приведённым в таблицах (2.1) и (2.2) можно приближенно сосчитать дисперсии для 1:
для 2:
Несмотря на то, что значение
Пример 2
Рассмотрим пример: Требуется вычислить интеграл
где область G задаётся следующими неравенствами: Область интегрирования принадлежит единичному квадрату Записываем координаты Заполним табл. 3.1 по правилу: 1) Среди всех значений 2) Среди всех значений Для этих значений полагаем
Таблица 3.1
3) Вычисляем 4) Вычисляем значения подынтегральной функции в полученных точках. После заполнения табл. 3.1 вычисляем площадь области интегрирования Для сравнения приведём точное значение интеграла Результат имеет сравнительно небольшую точность потому, что число точек
Пример 3 Рассмотрим пример: найдём приближенно объём, ограниченный поверхностями
Искомый объём численно равен величине интеграла
Так как в области V
где
т.е. Берём теперь три равномерно распределенные на отрезке
Таблица 3.2
Заполним табл. 3.2 по правилу: 1) выделяем точки, у которых 2) среди выделенных точек области Для этих точек 3) вычисляем 4) среди точек, у которых
Для этих точек В примере общее количество точек
Погрешность формулы (3.6) обратно пропорциональна корню из числа испытаний, т.е. Это означает, что для обеспечения большой точности число точек
Заключение
Процесс выполнения данной работы представлял большой интерес и послужил хорошей возможностью для приобретения новых знаний и навыков, а также закрепления уже полученных. Были рассмотрены основные свойства метода Монте-Карло и создана программа, показывающая возможности данного метода при использовании ЭВМ. Было выяснено, что методом Монте-Карло можно решать разнообразные задачи, в том числе вычисление интегралов, не прибегая к сложным математическим вычислениям. Простота алгоритма метода Монте-Карло позволяет успешно реализовывать их на ЭВМ.
Список литературы
1. Бусленко Н.П. Метод статистического моделирования – М.: Статистика, 1970. – 112 с. 2. Демидович Б.П., Марон И.А. Основы вычислительной математики. - М.: Наука, 1966. – 664 с. 3. Епанешников А.М., Епанешников В.А. Программирование в среде TURBO PASCAL 7.0 – М.: Диалог-МИФИ, 1998. – 288 с. 4. Ермаков С.М. Метод Монте-Карло и смежные вопросы – М.: Наука, 1975–472 с. 5. Копченова Н.В., Марон И.А. Вычислительная математика в примерах и задачах. – М.: Наука, 1972. – 367 с. 6. Соболь И.М. Метод Монте-Карло – М.: Наука, 1985. – 80 c.
Приложения
1. Таблица 400 случайных цифр
2. Таблица 40 случайных чисел, равномерно распределенных на отрезке
3. Листинг программы Вычисляются значения кратных интегралов из примера 2–3. program pmk; uses crt; var w, u, h, k, v, y, p, s, g, x, x2, y2, z2, niu, Integral, Integral2:real; n, m, i, a, b, e1, e2, e, e3, e4, e5:integer; begin clrscr; writeln ('vychisleniye dvoynogo integrala iz primera 1'); writeln ('vvedite kolichestvo sluchaynykh tochek:'); readln(n); for i:=1 to n do begin g:=random; p:=random; x:=g; y:=p; if ((0.5<=x) and (x<=1)) then e1:=1 else e1:=0; if ((0<=y) and (y<=2*x-1)) then e2:=1 else e2:=0; e:=e1*e2; if e=1 then s:=s+x*x+y*y; if e=1 then a:=a+1; v:=1/4; delay(1000); end; Integral:=(v/a)*(s); writeln ('summa=', s:5:5); writeln ('dvoynoy integral iz 1 primera =', Integral:5:5); writeln ('vychisleniye troynogo integrala iz primera 2'); writeln ('vvedite kolichestvo sluchaynykh tochek:'); readln(m); for i:=1 to m do begin w:=random; u:=random; h:=random; x2:=w; y2:=u; niu:=h; if niu<=0.8 then e3:=1; if (x2–0.5)*(x2–0.5)+(y2–0.5)*(y2–0.5)<=(0.5)*(0.5) then e4:=1 else e4:=0; e5:=e3*e4; if (((0.8<niu) and (niu<1)) and ((x2–0.5)*(x2–0.5)+(y2–0.5)*(y2–0.5)+6.25*(niu-0.8)*(niu-0.8)<=(0.5)*(0.5))) then e5:=1; if e5=1 then b:=b+1; delay(1000); end; Integral2:=2.5*(b/m); writeln ('kvo pod t =', b:5); writeln ('troynoy integral iz 2 primera =', Integral2:5:5); readln; end.
4. Пример работы программы при 10000 случайных точек
Популярное: Почему стероиды повышают давление?: Основных причин три... Генезис конфликтологии как науки в древней Греции: Для уяснения предыстории конфликтологии существенное значение имеет обращение к античной... ![]() ©2015-2024 megaobuchalka.com Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (182)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||