Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Метод Монте-Карло

Barabashka © (2006-04-17 09:03:00)
Проблема такая. Очень нужно написать такую программу: по экспериментальным данным вычислить функцию f(x), сравнить ее с y и если у меньше, в счетчике случаев добавить 1. Это все дело повторить...допустим 1000 раз. В счетчике случаев окажется некоторое число, с которым надо работать дальше. Помогите пожалуйста - вся проблема счетчике случаев - первый раз про него слышу!

Zeqfreed (2006-04-17 14:14:00) [1]

> сколько в нем единиц получилось?

Если верить [7], то 3 :)

kilkennyCat (2006-04-17 14:04:00) [2]
я думал, три попытки каждому, в противном случае, вероятность угадывания реко стремится к нулю...

Юрий Зотов (2006-04-17 14:01:00) [3]
> Ega23 © (17.04.06 10:05) [6]
> balepa © (17.04.06 13:11) [7]

Не зря я давал три попытки. Осталась последняя.
:о)

balepa (2006-04-17 13:11:00) [4]

> Юрий Зотов © (17.04.06 09:36) [4]
> > Barabashka (17.04.06 09:33) [2]
> Итак, счетчик был равен нулю, а стал равен, допустим, 7.
> Угадайте с трех раз, сколько в нем единиц получилось?

00000111 :)

Ega23 (2006-04-17 10:05:00) [5]

> Итак, счетчик был равен нулю, а стал равен, допустим, 7.
> Угадайте с трех раз, сколько в нем единиц получилось?

Восемь? :о)

kilkennyCat (2006-04-17 09:38:00) [6]

> Юрий Зотов © (17.04.06 09:36) [4]

каюсь, забыл :)

Юрий Зотов (2006-04-17 09:36:00) [7]
> kilkennyCat © (17.04.06 09:28) [1]
Все же Schetchik надо бы сначала обнулить.

> Barabashka (17.04.06 09:33) [2]
Итак, счетчик был равен нулю, а стал равен, допустим, 7. Угадайте с трех раз, сколько в нем единиц получилось?

kilkennyCat (2006-04-17 09:35:00) [8]
var
i, Schetchik : integer;
OldY, Y : ...
begin
for i := 0 to 999 do begin
Y := f(x);
if OldY > Y then inc(Schetchik);
OldY := Y;
end;
showmessage(inttostr(Schetchik));
end;

Barabashka (2006-04-17 09:33:00) [9]
А как потом посмотреть сколько единиц в счетчике получилось?

kilkennyCat (2006-04-17 09:28:00) [10]
var
i, Schetchik : integer;
OldY, Y : ...
begin
for i := 0 to 999 do begin
Y := f(x);
if OldY > Y then inc(Schetchik);
OldY := Y;
end;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »