Выбранный для просмотра документ prjMath2.vbproj.FileListAbsolute.txt
Скачать материал "Презентация «Вероятностные модели. Метод Монте-Карло»"
Рабочие листы
к вашим урокам
Скачать
Выбранный для просмотра документ prjZ5-10.vbproj.FileListAbsolute.txt
Скачать материал "Презентация «Вероятностные модели. Метод Монте-Карло»"
Рабочие листы
к вашим урокам
Скачать
Выбранный для просмотра документ Метод Монте-Карло.ppt
Скачать материал "Презентация «Вероятностные модели. Метод Монте-Карло»"
Рабочие листы
к вашим урокам
Скачать
1 слайд
Вероятностные модели.
Метод Монте-Карло.
2 слайд
Качественная модель метода Монте-Карло:
поместим геометрическую фигуру полностью внутрь квадрата;
будем случайным образом «бросать» точки в этот квадрат, то есть с помощью генератора случайных чисел задавать точкам координаты внутри квадрата;
будем считать, что отношение числа точек, попавших внутрь фигуры, к общему числу точек в квадрате приблизительно равно отношению площади фигуры к площади квадрата, причём это отношение тем точнее, чем больше количество точек.
3 слайд
R
Y
X
-R
Формальная модель:
М – количество точек попавших внутрь квадрата;
N – количество точек, которые случайно генерируются внутри квадрата.
Sкр=Sкв*M/N
4 слайд
Круг вписан в квадрат со стороной 2R, площадь которого вычисляется по формуле:
Sкв=4R2
Случайный выбор координат точек, которые попадают внутрь квадрата (N точек), должен производиться так, чтобы координаты точек x и y удовлетворяли условиям:
-R<=x<=R и -R<=y<=R
Координаты точек, попавших внутрь круга (М), удовлетворяют условию:
x2 + y2 <= R2
Тогда площадь круга можно вычислить по формуле:
S=4R2* M / N
5 слайд
Компьютерная модель «Проект «Метод Монте-Карло»
Option Strict Off
Option Explicit On
Friend Class frm1
Inherits System.Windows.Forms.Form
Dim N, dblX, I, M As Object
Dim dblY, S As Double
Dim R As Integer
Private Sub cmd1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmd1.Click
6 слайд
M = 0
R = Val(txtR.Text)
N = Val(txtN.Text)
'Генерация точек
For I = 1 To N
dblX = 2 * R * Rnd() – R
dblY = 2 * R * Rnd() - R
If dblX ^ 2 + dblY ^ 2 <= R Then M = M + 1
Next I
txtS.Text = CStr(4 * R ^ 2 * (M / N))
End Sub End Class
7 слайд
Исследование модели:
Ввести радиус окружности и количество генерируемых точек. После выполнения проета в текстовое поле будет выведено значение площади круга.
8 слайд
Задание:
Определить методом Монте-Карло площадь треугольника, вершины которого имеют координаты
(-1,0); (0, 1) и (1,0).
-1
1
0
1
x
y
Замечание:
Функция генерации случайных чисел работает так: если дать команду f= rnd(), то в переменную f будут попадать числа из интервала [0, 1].
Условие попадания точек внутрь треугольника :
dblY>=0 и ABS(dblX) + ABS(dblY)<=1
9 слайд
For I = 1 To N
dblX = 2 * Rnd() - 1
dblY = Rnd()
If dblY >= 0 And System.Math.Abs(dblX) + System.Math.Abs(dblY) <= 1 Then M = M + 1
10 слайд
Private Sub cmd1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmd1.Click
M = 0
N = Val(txtN.Text)
For I = 1 To N
dblX = 2 * Rnd() - 1
dblY = Rnd()
If dblY >= 0 And System.Math.Abs(dblX) + System.Math.Abs(dblY) <= 1 Then M = M + 1
Next I
txtS.Text = CStr(2 * (M / N))
End Sub
End Class
Рабочие листы
к вашим урокам
Скачать
Рабочие листы
к вашим урокам
Скачать
Презентация «Вероятностные модели. Метод Монте-Карло» создана в прикладной программе MS PowerPoint и воспроизводится с помощью мультимедийного проектора. Слайд 1 Слайд 3 Слайд 7 Здесь представлен лишь фрагмент презентации. Полный вариант содержит 10 слайдов.
6 676 686 материалов в базе
Настоящий материал опубликован пользователем Часовских Ольга Викторовна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс профессиональной переподготовки
300/600 ч.
Курс повышения квалификации
36 ч. — 180 ч.
Курс повышения квалификации
36 ч. — 144 ч.
Мини-курс
5 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.