Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Random walk by using Monte Carlo method
print*,'Total number of steps by hangover man' read*, n step=0 do i=1,n call random(seed, x) u=-1+(1+1)*x Step=step+u enddo print*,'displacement=',step stop end Subroutine random(seed, x) data a,b,r/9858557,654321,432198/ seed=mod(a*seed+b, r) x=seed/r return End
run
|
edit
|
history
|
help
0
A_02 GUASSIAN ELIMINATION METHOD
C
A_002 GUASSIAN ELIMINATION METHOD
A_02 NEWTON'S ITERATIVE METHOD
Chebyshev practice
Practice 1(IV)
নাজমুন নাহার
A_03 ADAMS BASHFORTH S4
Rvc new
A_03 EULER'S METHOD