Файл:HittingTimes1.png
Материал из testwiki
Перейти к навигации
Перейти к поиску
Размер этого предпросмотра: 800 × 600 пкс. Другие разрешения: 320 × 240 пкс | 640 × 480 пкс | 1024 × 768 пкс | 1200 × 900 пкс.
Исходный файл (1200 × 900 пкс, размер файла: 17 КБ, MIME-тип: image/png)
Этот файл находится на Викискладе и может использоваться другими проектами. Информация с его страницы описания приведена ниже.
| ОписаниеHittingTimes1.png |
English: Hitting times and stopping times of three samples of brownian motion
Deutsch: Hitting time von drei Sampels der Brownschen Bewegung als Beispiel für eine Stoppzeit. |
| Дата | |
| Источник | with the help of GNU R statistics / math software. see the source below |
| Автор | Thomas Steiner |
| Права (Повторное использование этого файла) |
Thomas Steiner put it under the GFDL |
Этот график желательно воссоздать или аккуратно преобразовать в векторный формат SVG. Это даёт несколько преимуществ, прочитать о которых подробнее вы можете на странице Commons:Media for cleanup. Если вам уже сейчас доступна векторная версия данного изображения, загрузите её, пожалуйста, а затем замените этот шаблон на следующий: {{Vector version available|Имя загруженного файла.svg}}.
|
(An SVG version should ideally not include the title text, which should be a separate caption as text instead to allow this to be useful in any language).
| Разрешается копировать, распространять и/или изменять этот документ в соответствии с условиями GNU Free Documentation License версии 1.2 или более поздней, опубликованной Фондом свободного программного обеспечения, без неизменяемых разделов, без текстов, помещаемых на первой и последней обложке. Копия лицензии включена в раздел, озаглавленный GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue |
| Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 3.0 Unported. | ||
| ||
| Этот признак лицензирования был добавлен к этому файлу как часть обновления лицензии GFDL.http://creativecommons.org/licenses/by-sa/3.0/CC BY-SA 3.0Creative Commons Attribution-Share Alike 3.0truetrue |
R-source code:
T=7
N=100000
set.seed(303898)
a=0.9
cs=c("orange", "navy", "seagreen4", "grey31")
bm1=c(0,cumsum(rnorm(N,mean=0,sd=sqrt(T/N))))
tau1=which(bm1>a)[1]
bm1[tau1:(N+1)]=a
bm2=c(0,cumsum(rnorm(N,mean=0,sd=sqrt(T/N))))
tau2=which(bm2>a)[1]
bm2[tau2:(N+1)]=a
bm3=c(0,cumsum(rnorm(N,mean=0,sd=sqrt(T/N))))
tau3=which(bm3>a)[1]
bm3[tau3:(N+1)]=a
png(filename = "HittingTimes1.png", width=1200, height=900, pointsize = 12)
par(bg="gray88")
t=seq(0,T,length=N+1)
plot(t,bm1,type="l",ylim=range(bm1,bm2,bm3,a*1.2),col=cs[1],lwd=2,ylab="",xlab="Zeit",main="Hitting time von drei Sampels der Brownschen Bewegung als Beispiel für eine Stoppzeit")
lines(t,bm2,col=cs[2],lwd=2)
lines(t,bm3,col=cs[3],lwd=2)
abline(h=a,col=cs[4],lty=1,lwd=3)
text(x=tau1*T/N,y=a*1.14, labels = substitute(tau[2]==t1,list(t1=tau1*T/N)),pos=4,col=cs[1],cex=1.5)
text(x=tau2*T/N,y=a*1.14, labels = substitute(tau[1]==t2,list(t2=tau2*T/N)),pos=4,col=cs[2],cex=1.5)
text(x=T,y=a*1.14, labels = substitute(tau[3]>T,list(T=T)),pos=2,col=cs[3],cex=1.5)
dev.off()
Краткие подписи
Добавьте однострочное описание того, что собой представляет этот файл
Элементы, изображённые на этом файле
изображённый объект
8 апреля 2006
История файла
Нажмите на дату/время, чтобы увидеть версию файла от того времени.
| Дата/время | Миниатюра | Размеры | Участник | Примечание | |
|---|---|---|---|---|---|
| текущий | 00:03, 8 апреля 2006 | 1200 × 900 (17 КБ) | wikimediacommons>Thire |
Использование файла
Следующая страница использует этот файл: