|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.04.2011, 20:36 | #1 |
Новичок
Джуниор
Регистрация: 12.04.2011
Сообщений: 3
|
Вычисление числа Пи методом монте-карло. В чем ошибка?
Требуется создать программку для вычисления числа Пи методом монте-карло.
Суть заключается в следующем: генерируются 2 случайных числа А и В, равномерно распределенных в интервале (-1,1). Если выполняется условие А^2+B^2 <= 1, то точка с координатами (А,В) попадает внутрь круга радиусом 1 с центром в начале координат, если нет, то не попадает. Если при N испытаниях получится n попаданий в круг, то приближенно число Пи можно вычислить по формуле Pi = 4*n/N. Была сделана вот такая программка: DIM n, m AS INTEGER, s, pi AS DOUBLE Private SUB Command1_Click() s = Text1.Text pi = 0 DO UNTIL m = s x = RND * 2 - 1 y = RND * 2 - 1 IF (x * x + y * y) <= 1 THEN Picture1.PSET (x, y), vbRed n = n + 1 ELSE Picture1.PSET (x, y), vbBlue m = m + 1 END IF LOOP pi = n/m Text2.Text = pi END SUB Из формулу была убрана 4, с ней число Пи равно 15, ... По идее если сделать N = 10000 (s = 10000), то число Пи будет равно 3,14... В данном случае число Пи равно 3,664. В чем ошибка? |
12.04.2011, 20:40 | #2 |
Форумчанин
Регистрация: 11.04.2010
Сообщений: 143
|
Мне кажется этот метод страным
Последний раз редактировалось RomiKon; 12.04.2011 в 20:43. |
13.04.2011, 00:47 | #3 |
Новичок
Джуниор
Регистрация: 12.04.2011
Сообщений: 3
|
Об этом методе написано
http://ru.wikipedia.org/wiki/%CC%EE%...EC%E5%F2%EE%E4 |
13.04.2011, 08:50 | #4 | |||
Старожил
Регистрация: 20.04.2008
Сообщений: 5,526
|
выведи куда-нибудь (покажи себе) полученные в результате значения m и n до кучи добавь ним s. вот перед этим
Цитата:
Хотя нет . Вот при подсчете общего числа испытаний ( это m) учитываются только НЕУСПЕШНЫЕ (m изменяется только в ветке ELSE). здесь Цитата:
а здесь Цитата:
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 13.04.2011 в 08:58. |
|||
13.04.2011, 19:48 | #5 |
Новичок
Джуниор
Регистрация: 12.04.2011
Сообщений: 3
|
Спасибо за совет, буду проверять.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск площади фигуры методом Монте - Карло | ChertYaGa | Паскаль, Turbo Pascal, PascalABC.NET | 12 | 10.02.2017 20:10 |
Си/Си++ Нахождение площади методом Монте-Карло | Маришка_Курносова | Помощь студентам | 3 | 11.11.2012 16:17 |
методом монте-карло | Uskoff | Microsoft Office Excel | 1 | 15.01.2010 14:27 |
Найти интеграл методом Монте-карло | ___LORD___ | Общие вопросы C/C++ | 2 | 13.05.2009 21:24 |
Помогите с методом Монте-Карло!!! | Byanka | Помощь студентам | 2 | 09.02.2009 20:18 |