این graph نگاره میبایست با استفاده از گرافیک برداری اسویجی فایل بازسازی شوند. این چند مزیت دارد؛ Commons:Media for cleanup را برای اطلاعات بیشتر ببینید. اگر حالت برداری آن در حال حاضر موجود است، لطفاً آن را بار کنید. پس از بارکردن یک اسویجی، این الگو را با {{vector version available|new image name.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).
اجازهٔ کپی، پخش و/یا تغییر این سند تحت شرایط مجوز مستندات آزاد گنو، نسخهٔ ۱٫۲ یا هر نسخهٔ بعدتری که توسط بنیاد نرمافزار آزاد منتشر شده؛ بدون بخشهای ناوردا (نامتغیر)، متون روی جلد، و متون پشت جلد، اعطا میشود. یک کپی از مجوز در بخشی تحت عنوان مجوز مستندات آزاد گنو ضمیمه شده است.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue
برای به اشتراک گذاشتن – برای کپی، توزیع و انتقال اثر
تلفیق کردن – برای انطباق اثر
تحت شرایط زیر:
انتساب – شما باید اعتبار مربوطه را به دست آورید، پیوندی به مجوز ارائه دهید و نشان دهید که آیا تغییرات ایجاد شدهاند یا خیر. شما ممکن است این کار را به هر روش منطقی انجام دهید، اما نه به هر شیوهای که پیشنهاد میکند که مجوزدهنده از شما یا استفادهتان حمایت کند.
انتشار مشابه – اگر این اثر را تلفیق یا تبدیل میکنید، یا بر پایه آن اثری دیگر خلق میکنید، میبایست مشارکتهای خود را تحت مجوز same or compatible license|یکسان یا مشابه با اصل آن توزیع کنید.
این برچسب مجوز بهعنوان بخشی از روزآمدسازی مجوز 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()
{{Information| |Description = some stopping times (even hitting times!) of brownian motion |Source = with the help of GNU R statistics / math software. see the source below |Date = 8 Apr. 2006 |Author = Thomas Steiner |Permission =