From 4263302e46511c5db9bfb0b811d5bdeaa70daa5c Mon Sep 17 00:00:00 2001 From: Tonton Th Date: Tue, 28 Apr 2026 23:00:37 +0200 Subject: [PATCH] add a random start location --- randomwalk.f90 | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/randomwalk.f90 b/randomwalk.f90 index 7a408d7..d9f50e0 100644 --- a/randomwalk.f90 +++ b/randomwalk.f90 @@ -7,15 +7,19 @@ program randomwalk use genplotting implicit none integer foo, col - + real px, py write (0, '(A)') "----[ genplotting randomwalk ]----" call srand(time()) call genp_init (0, 'WS/randomwalk.scratch') - do foo=1, 51 - col = 2 + mod(foo, 4) - call do_randomwalk(42, col) + do foo=1, 20 + px = 100 * (rand(0) - 0.50) + py = 100 * (rand(0) - 0.50) + call genp_set_offset(px, py) + col = 1 + mod(foo, 6) + call do_randomwalk(500, col) enddo call genp_end (0) + stop contains ! --------------------------------------------------------- subroutine do_randomwalk(nbre, col) @@ -23,13 +27,14 @@ subroutine do_randomwalk(nbre, col) integer :: idx real :: px, py, px2, py2 - px = 0.0 ; py = 0.0 + px = 0.0 ; py = 0.0 do idx=1, nbre px2 = px + rand(0) - 0.50 py2 = py + rand(0) - 0.50 call genp_line(px, py, px2, py2, col) px = px2 ; py = py2 enddo + end subroutine ! --------------------------------------------------------- end program