Fitxer:NumInt-MC.png

De testwiki
Salta a la navegació Salta a la cerca
Fitxer original (1.200 × 900 píxels, mida del fitxer: 16 Ko, tipus MIME: image/png)

Aquest fitxer prové de Wikimedia Commons i pot ser usat per altres projectes. La descripció de la seva pàgina de descripció es mostra a continuació.

Resum

Descripció
English: numerical intergration with monte carlo. new points are dark blue (navy), old points are skyblue. points/nodes are uniform distributed over the integration interval. the value of the integral tends to 3,32.
Data
Font Treball propi
Autor Thomas Steiner
PNG genesis
InfoField
 Aquesta PNG imatge rasteritzada ha estat creada amb R

Source code

R-source code:

 a=0.5
 b=2
 cs=c("red","skyblue","navy","darkgrey")
 
 f<-function(x) {
   return( 0.9*sin(9*x^0.6+0.3)+x+0.9 )
 }
 
 mc_plot<-function(n,new=1) {
   set.seed(6911)
   x=seq(a*0.6,b*1.05,length=700)
   if (n>0) {
     xi=sort((b-a)*runif(n)+a)
   } else {
     xi=NA
   }
   Xi=sort((b-a)*runif(new)+a)
   pts=sort(c(a,xi,Xi,b))
   plot(x,f(x),type="n",ylim=range(f(x),0),xlab="",ylab="")
   polygon(c(pts,b,a),c(f(pts),0,0),col=cs[4], border=cs[2],lwd=2)
   for (i in xi) {
     segments(i,0,i,f(i),col=cs[2],lwd=3)
   }
   for (i in Xi) {
     segments(i,0,i,f(i),col=cs[3],lwd=3)
   }
   lines(x,f(x),col=cs[1],lwd=3)
   ##calcualte area (integral)
   area=0
   for (p in 1:(length(pts)-1) ) {
     area <- area + (pts[p+1]-pts[p]) * (f(pts[p+1])+f(pts[p])) / 2
   }
   text(x=0.45,y=3.2, labels=substitute(integral(f(x)*dx, A, B)%~~% AREA,list(A=a,B=b,AREA=format(area,digits=3))),cex=1.5,col=cs[4],pos=4)
 }
 
 
 png(filename = "NumInt-MC.png", width=1200, height=900, pointsize = 12)
 par(bg="grey90",mfrow=c(2,2), oma=c(0,0,3,0), cex.axis=0.85)
 mc_plot(n=0)
 mc_plot(n=1)
 mc_plot(n=2)
 mc_plot(n=3,new=5)
 title(main="Numerische Integration mit Monte Carlo (Trapezmethode)", outer=TRUE,cex.main=1.9)
 dev.off()

Llicència

GNU head S'autoritza la còpia, la distribució i la modificació d'aquest document sota els termes de la llicència de documentació lliure GNU versió 1.2 o qualsevol altra versió posterior que publiqui la Free Software Foundation; sense seccions invariants, ni textos de portada, ni textos de contraportada. S'inclou una còpia d'aquesta llicència en la secció titulada GNU Free Documentation License.
w:ca:Creative Commons
reconeixement compartir igual
Aquest fitxer està subjecte a la llicència Creative Commons Reconeixement-CompartirIgual 3.0 No adaptada.
Sou lliure de:
  • compartir – copiar, distribuir i comunicar públicament l'obra
  • adaptar – fer-ne obres derivades
Amb les condicions següents:
  • reconeixement – Heu de donar la informació adequada sobre l'autor, proporcionar un enllaç a la llicència i indicar si s'han realitzat canvis. Podeu fer-ho amb qualsevol mitjà raonable, però de cap manera no suggereixi que l'autor us dóna suport o aprova l'ús que en feu.
  • compartir igual – Si modifiqueu, transformeu, o creeu a partir del material, heu de distribuir les vostres contribucions sota una llicència similar o una de compatible amb l'original.
Aquest avís de llicència s'ha afegit a aquest fitxer d'acord amb l'actualització de la llicència GFDL.

Llegendes

Afegeix una explicació d&#039;una línia del que representa aquest fitxer

Elements representats en aquest fitxer

representa l'entitat

Historial del fitxer

Cliqueu una data/hora per veure el fitxer tal com era aleshores.

Data/horaMiniaturaDimensionsUsuari/aComentari
actual16:13, 13 abr 2006Miniatura per a la versió del 16:13, 13 abr 20061.200 × 900 (16 Ko)wikimediacommons>Thire{{Information| |Description = numerical intergration with monte carlo. new points are dark blue (navy), old points are skyblue |Source = created with the help of GNU R, see source below |Date = 13 Apr. 2006 |Author = Thomas Steiner

La pàgina següent utilitza aquest fitxer: