Bild:Spektralzerlegung2.png

aus Wikipedia, der freien Enzyklopädie

Bild
Dateiversionen
Verwendung

Größe der Voransicht: 800 × 600 Pixel
Version in höherer Auflösung‎ (1.500 × 1.125 Pixel, Dateigröße: 20 KB, MIME-Typ: image/png)

Beschreibung: Die ersten 5 Schritte um einen Wienerprozess mit einer Fourierreihe darzustellen/konstruieren
Quelle: selbst erstellt mit GNU R.
Fotograf oder Zeichner: Thomas Steiner

Diese Datei wurde unter der GNU-Lizenz für freie Dokumentation veröffentlicht.

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 Umschlagtext und keinen hinteren Umschlagtext.

Der R-Quelltext:

N<-20
steps<-300
cs<-rainbow(5)
x=seq(from=0,to=1,length=steps)
set.seed(303898)
#S(t)=Z_0*t+sum sqrt(2)/(k*pi)*Z_k*sin(k*pi*t)
Z=rnorm(N,mean=0,sd=1)
Z0=rnorm(1,mean=0,sd=1)
S=array(data=NA,dim=c(steps,N))
for (k in 1:N) {
  for (t in 1:steps) {
    sum=0
    for (j in 1:k) { #aufsummieren
      sum=sum+sqrt(2)*sin(j*pi*t/steps)*Z[j]/(j*pi)
    }
    S[t,k]<-Z0*t/steps+sum
  }
}
png(filename = "Spektralzerlegung2.png", width=1500, height=1125)
par(bg="lightgrey")
plot(x,S[,1],type="l",xlab="",ylab="",ylim=c(min(S),max(S)),col=cs[1],lwd=3)
lines(x,S[,2],col=cs[2],lwd=3)
lines(x,S[,3],col=cs[3],lwd=3)
lines(x,S[,4],col=cs[4],lwd=3)
lines(x,S[,5],col=cs[5],lwd=3)
legend(0.85,0.4,legend=c(1,2,3,4,5),lwd=6,col=cs,bg="grey",cex=1.6)
title(main="Annäherung an einen Wienerprozess durch eine Fourierreihe",cex.main=3)
dev.off()

Dateiversionen

Klicke auf einen Zeitpunkt, um diese Version zu laden.

	Version vom	Maße	Benutzer	Kommentar
aktuell	12:01, 11. Mai 2005	1.500×1.125 (20 KB)	Thire (Diskussion \| Beiträge)	(hellgrau)
	14:01, 20. Apr. 2005	1.500×1.125 (20 KB)	Thire (Diskussion \| Beiträge)
	08:24, 16. Apr. 2005	1.500×1.125 (18 KB)	Thire (Diskussion \| Beiträge)	(ersetze Bild von Benson.by)
	21:03, 11. Apr. 2005	893×569 (20 KB)	Benson.by (Diskussion \| Beiträge)	(Selbstgebaut. Gnu-fdl)