Иллюстрация распределения вероятности

Форум пользователей пакета Maple

Модератор: Admin

ventura
Сообщения: 22
Зарегистрирован: Пн янв 24, 2005 7:08 pm

Иллюстрация распределения вероятности

Сообщение ventura » Вс мар 12, 2006 2:53 pm

Пример иллюстрирует закон больших чисел.Проблема с графиком: хотелось бы, чтобы это была анимация,т.е.
отображался процесс появления точек.
with(plots):
> r:=0:
N:=3500:
for n from 10 to N by 10 do
for i from 1 to n do
s:=rand(0..1):
r:=r+s():
od:
k:=n/10:
p[k]:=r/n:
r:=0:
od:
gr1:=plot(1/2,x=0..N):
gr2:=pointplot({seq([k*10,p[k]],k=1..N/10)},color=red):
display ([gr1,gr2]);
print(evalf(p[k]));

Irmantas
Сообщения: 589
Зарегистрирован: Ср апр 27, 2005 8:49 pm
Откуда: Литва, Каунас

Re: Иллюстрация распределения вероятности

Сообщение Irmantas » Вс мар 12, 2006 6:13 pm

ventura писал(а):gr1:=plot(1/2,x=0..N):
gr2:=pointplot({seq([k*10,p[k]],k=1..N/10)},color=red):
display ([gr1,gr2]);
print(evalf(p[k]));[/color]


gr1:=plot(1/2,x=0..N,color=blue,thickness=2):
gr2:=seq(pointplot({seq([k*10,p[k]], k=1..n)}, color=red, symbolsize=12), n=1..N/10):
d1:=display(gr2,insequence=true):
display (d1,gr1);