Dieses Medium wird direkt von Wikimedia Commons aus eingebunden. Quellenangaben und Lizenzbedingungen befinden sich auf der unten zusätzlich eingeblendeten Commons-Beschreibungsseite.
Es ist erlaubt, die Datei unter den Bedingungen der GNU-Lizenz für freie Dokumentation, Version 1.2 oder einer späteren Version, veröffentlicht von der Free Software Foundation, zu kopieren, zu verbreiten und/oder zu modifizieren; es gibt keine unveränderlichen Abschnitte, keinen vorderen und keinen hinteren Umschlagtext.
Der vollständige Text der Lizenz ist im Kapitel GNU-Lizenz für freie Dokumentation verfügbar.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue
verbreitet werden – vervielfältigt, verbreitet und öffentlich zugänglich gemacht werden
neu zusammengestellt werden – abgewandelt und bearbeitet werden
Zu den folgenden Bedingungen:
Namensnennung – Du musst angemessene Urheber- und Rechteangaben machen, einen Link zur Lizenz beifügen und angeben, ob Änderungen vorgenommen wurden. Diese Angaben dürfen in jeder angemessenen Art und Weise gemacht werden, allerdings nicht so, dass der Eindruck entsteht, der Lizenzgeber unterstütze gerade dich oder deine Nutzung besonders.
Diese Lizenzmarkierung wurde auf Grund der GFDL-Lizenzaktualisierung hinzugefügt.http://creativecommons.org/licenses/by-sa/3.0/CC BY-SA 3.0Creative Commons Attribution-Share Alike 3.0truetrue
set.seed(303898)
H=14 #Anzahl der Halbierungsschritte
if (exists("B")) { #nach dem ersten Durchlauf als Variable vorhanden
mBM=range(B) #max und min der BM, für ylim des plots;
} else {
mBM=c(-1, 0.8)
}
B=array(data=0,dim=2) #Startpunkt der Brownschen Bewegung
B[2]=rnorm(n=1, mean=0, sd=1)
png(filename = "BrownscheBewegung.png", width=1600, height=1200, pointsize=12)
par(mfrow = c(2,3), oma = c(0,0,3,0), bg="whitesmoke")
plot(x=seq(from=0,to=1,length=2), y=B, type="o", col="red", xlab="Zeit", ylab="BM", ylim=mBM, lwd=3)
title(main="i=1, 1 Punkt",cex.main=1.1)
for (i in 2:H) { #iteriere über jede Halbierung
old=B
for (t in 1:2^(i-2)) { #für jeden alten Zeitpunkt gibt es zwei neue (außer dem letzten)
B[2*t-1] = old[t]
B[2*t] = rnorm(n=1, mean=0.5*(old[t]+old[t+1]), sd=1/(sqrt(2)^i) )
}
B[2^(i-1)+1]=old[2^(i-2)+1] # letzter Zeitpunkt
if (i<6) {#zeichne nur die ersten 5
plot(x=seq(from=0,to=1,length=2^(i-1)+1),y=B,type="o",col="red",xlab="Zeit",ylab="BM",ylim=mBM,lwd=3)
points(x=seq(from=0,to=1,length=2^(i-2)+1),y=old,type="l",col="blue")
title(main=paste("i=",i,", ",2^(i-1)+1-1," Punkte",sep=""),cex.main=1.1)
}
Sys.sleep(0.4) # um es quasi "live" in R zu sehen: "png()" und "dev.off()" auskommentieren!
}
plot(x=seq(from=0,to=1,length=2^(H-1)+1),y=B,type="l",col="blue",xlab="Zeit",ylab="BM",ylim=mBM,lwd=1)
title(main=paste("i=",H,", ",2^(H-1)+1-1," Punkte",sep=""),cex.main=1.1)
title(main="Brownsche Brücke - Konstruktion einer Brownsche Bewegung", cex.main=2, outer=TRUE)
dev.off()
Kurzbeschreibungen
Ergänze eine einzeilige Erklärung, was diese Datei darstellt.
{{Information| |Description = Algorithmische Konstruktion der Brownschen Bewegung als Summe von normalverteilten Zufallsgrößen |Source = selbst erstellt mit de:GNU R. |Date = 27 may 2006 |Author = Thomas Steiner |Permission =