Summary edit

R-Quelltext:

 n <- 350
 to <- 3.3
 set.seed(9826064)
 x=seq(from=0, to=to, length=n)
 BM1 <- c(0, cumsum(rnorm(n-1, mean=0, sd=sqrt(to/(n-1)))))
 BM2 <- c(0, cumsum(rnorm(n-1, mean=0, sd=sqrt(to/(n-1)))))
 library("Cairo")
 CairoPNG(filename = "Wienerprozess.png", width=1200, height=900)
 par(bg="whitesmoke")
 plot(x, BM1, type="n", xlab="Zeit", ylab="", ylim=range(BM1, BM2), cex.lab=1.4)
 #polygon(x=c(x, rev(x)), y=c(x, -rev(x)), col="azure3", border=NA)
 polygon(x=c(x, rev(x)), y=c(sqrt(x), -sqrt(rev(x))), col="grey", border=NA)
 lines(x, BM1, col="red", lwd=3)
 lines(x, BM2, col="orange", lwd=3)
 title(main="Zwei Beispiel-Pfade eines Standard-Wiener-Prozesses", cex.main=2.4, font=2)
 #text(x=.99*to, y=.97*to, labels="Varianz", col="white", adj=c(1,1), srt=30, cex=1.6)
 text(x=.98*to, y=sqrt(.94*to), labels="Standardabweichung", col="white", adj=c(1,1), srt=9, cex=1.6)
 axis(1, pos=0, labels=FALSE, at=c(0,to))
 box()
 dev.off()

Licensing edit

Benson.by at the German-language Wikipedia, the copyright holder of this work, hereby publishes it under the following license:

Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. A copy of the license is included in the section entitled GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

Original upload log edit

Transferred from de.wikipedia to Commons by Leyo using CommonsHelper.

• 2010-03-09 19:00 Thire 1200×900× (91075 bytes) {{Information |Beschreibung = |Quelle = |Urheber = |Datum = |Genehmigung = |Andere Versionen = |Anmerkungen = }}
• 2009-12-20 16:36 Thire 1200×900× (100198 bytes) deatils, siehe versionen beschreibung (überschrift va)
• 2007-06-11 13:18 BSide 1200×900× (23300 bytes) {{Information |Beschreibung = Ein Standard-Wiener-Prozess auf den Zeitintervall [0,3], außerdem sind die Varianz und die Standardabweichung eingezeichnet |Quelle = selbst erstellt mit [[GNU R]], Quelltext siehe unten |Urheber = [[Benutzer:Thire|Thomas St
• 2005-07-21 13:27 Thire 1200×900× (19823 bytes) klammer
• 2005-07-21 13:23 Thire 1200×900× (8776 bytes) kl fehler n wurde zu n-1 !!
• 2005-06-22 11:54 Thire 1200×900× (19810 bytes) schrft nun schief, mehr pkte
• 2005-06-21 11:38 Thire 1200×900× (18667 bytes) sd() var, neue farben, ...
• 2005-06-21 10:03 Thire 1200×900× (17314 bytes) hellgrau, bessere BM, anderer titel
• 2005-04-20 11:54 Thire 1500×1125× (22955 bytes) ersetzt mit grauem hintergrund
• 2005-04-15 21:22 Thire 1500×1125× (22413 bytes) ersetzen von Benson.by s Bild durch mein R-Bild
• 2005-03-22 08:40 Benson.by 778×523× (19018 bytes) Ein Wiener-Prozess. Eigenbau. public dom.