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

← →
Barabashka (2006-04-17 09:03) [0]

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

← →
kilkennyCat © (2006-04-17 09:28) [1]

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;

← →
Barabashka (2006-04-17 09:33) [2]

А как потом посмотреть сколько единиц в счетчике получилось?

← →
kilkennyCat © (2006-04-17 09:35) [3]

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;

← →
Юрий Зотов © (2006-04-17 09:36) [4]

> kilkennyCat © (17.04.06 09:28) [1]
Все же Schetchik надо бы сначала обнулить.

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

← →
kilkennyCat © (2006-04-17 09:38) [5]

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

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

← →
Ega23 © (2006-04-17 10:05) [6]

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

Восемь? :о)

← →
balepa © (2006-04-17 13:11) [7]

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

00000111 :)

я думал, три попытки каждому, в противном случае, вероятность угадывания реко стремится к нулю...

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

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

Метод Монте-Карло Найти похожие ветки