Αρχείο:NumInt-MC.png

Από testwiki
Μετάβαση στην πλοήγηση Πήδηση στην αναζήτηση
Πρωτότυπο αρχείο (1.200 × 900 εικονοστοιχεία, μέγεθος αρχείου: 16 KB, τύπος MIME: image/png)

Αυτό το αρχείο είναι από το Wikimedia Commons και ενδέχεται να χρησιμοποιείται από άλλα εγχειρήματα. Η περιγραφή στη σελίδα περιγραφής του εκεί, εμφανίζεται παρακάτω.

Σύνοψη

Περιγραφή
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.
Ημερομηνία
Πηγή Έργο αυτού που το ανεβάζει
Δημιουργός Thomas Steiner
PNG ανάπτυξη
InfoField
 chart δημιουργήθηκε με 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()

Αδειοδότηση

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

Λεζάντες

Προσθέστε εξήγηση μιας γραμμής για το τι αντιπροσωπεύει αυτό το αρχείο

Τα Αντικείμενα που απεικονίζονται σε αυτό το αρχείο

απεικονίζει

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

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

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

Η ακόλουθη σελίδα χρησιμοποιεί προς αυτό το αρχείο: