File:NumInt-MC.png

Από Wikimedia Commons
Μετάβαση στην πλοήγηση Πήδηση στην αναζήτηση

Πρωτότυπο αρχείο ‎(1.200 × 900 εικονοστοιχεία, μέγεθος αρχείου: 16 KB, τύπος MIME: image/png)

Λεζάντες

Λεζάντες

Δεν ορίστηκε λεζάντα

Σύνοψη

[επεξεργασία]
Περιγραφή
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.
Ημερομηνία
Πηγή created with the help of GNU R, see source below
Δημιουργός Thomas Steiner
Άδεια
(Επαναχρησιμοποίηση αυτού του αρχείου)		 Thomas Steiner put it under the GFDL

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()


GNU head Παραχωρείται η άδεια προς αντιγραφή, διανομή και/ή τροποποίηση αυτού του εγγράφου υπό τους όρους της Άδειας Ελεύθερης Τεκμηρίωσης GNU, Έκδοση 1.2 ή οποιασδήποτε νεότερης έκδοσης δημοσιευμένης από το Ίδρυμα Ελεύθερου Λογισμικού· χωρίς Απαράλαχτους Τομείς, χωρίς Κείμενα Εξωφύλλου, και χωρίς Κείμενα Οπισθοφύλλου. Αντίγραφο της άδειας περιλαμβάνεται στην σελίδα με τίτλο GNU Free Documentation License.
w:el:Creative Commons
αναφορά προέλευσης παρόμοια διανομή 		Το αρχείο διανέμεται υπό την άδεια Creative Commons Αναφορά προέλευσης-Παρόμοια διανομή 3.0 Μη εισαγόμενη
Είστε ελεύθερος:
  • να μοιραστείτε – να αντιγράψετε, διανέμετε και να μεταδώσετε το έργο
  • να διασκευάσετε – να τροποποιήσετε το έργο
Υπό τις ακόλουθες προϋποθέσεις:
  • αναφορά προέλευσης – Θα πρέπει να κάνετε κατάλληλη αναφορά, να παρέχετε σύνδεσμο για την άδεια και να επισημάνετε εάν έγιναν αλλαγές. Μπορείτε να το κάνετε με οποιοδήποτε αιτιολογήσιμο λόγο, χωρίς όμως να εννοείται με οποιονδήποτε τρόπο ότι εγκρίνουν εσάς ή τη χρήση του έργου από εσάς.
  • παρόμοια διανομή – Εάν αλλάξετε, τροποποιήσετε ή δημιουργήσετε πάνω στο έργο αυτό, μπορείτε να διανείμετε αυτό που θα προκύψει μόνο υπό τους όρους της ίδιας ή συμβατής άδειας με το πρωτότυπο.
Αυτή η ετικέτα άδειας χρήσης προστέθηκε στο αρχείο ως μέρους της αναθεώρησης της άδειας GFDL .
 
chart δημιουργήθηκε με R.

Ιστορικό αρχείου

Πατήστε σε μια ημερομηνία/ώρα για να δείτε το αρχείο όπως εμφανιζόταν εκείνη την χρονική στιγμή.

Ημερομηνία/ΏραΜικρογραφίαΔιαστάσειςΧρήστηςΣχόλιο
τρέχον15:13, 13 Απριλίου 2006Μικρογραφία για την έκδοση της 15:13, 13 Απριλίου 20061.200 × 900 (16 KB)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

Δεν μπορείτε να αντικαταστήσετε αυτό το αρχείο.

Δεν υπάρχουν σελίδες που χρησιμοποιούν αυτό το αρχείο.

Καθολική χρήση αρχείου

Τα ακόλουθα άλλα wiki χρησιμοποιούν αυτό το αρχείο:

Ανακτήθηκε από «https://commons.wikimedia.org/w/index.php?title=File:NumInt-MC.png&oldid=840031804»