2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 deletions
--- a/Task/Monte-Carlo-methods/Fortran/monte-carlo-methods-1.f
+++ b/Task/Monte-Carlo-methods/Fortran/monte-carlo-methods-1.f
--- a/Task/Monte-Carlo-methods/Fortran/monte-carlo-methods-2.f
+++ b/Task/Monte-Carlo-methods/Fortran/monte-carlo-methods-2.f
@ -0,0 +1,16 @@
+        program mc
+        integer :: n,i
+        real(8) :: pi
+        n=10000
+        do i=1,5
+          print*,n,pi(n)
+          n = n * 10
+        end do
+        end program
+
+        function  pi(n)
+        integer :: n
+        real(8) :: x(2,n),pi
+        call random_number(x)
+        pi = 4.d0 * dble( count( hypot(x(1,:),x(2,:)) <= 1.d0 ) ) / n
+        end function