Скачать: CL | DM;

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

← →
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 :)

---

← →
Юрий Зотов ©   (2006-04-17 14:01) [8]

> Ega23 ©   (17.04.06 10:05) [6]
> balepa ©   (17.04.06 13:11) [7]

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

---

← →
kilkennyCat ©   (2006-04-17 14:04) [9]

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

---

← →
Zeqfreed ©   (2006-04-17 14:14) [10]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c