tTh/GenPlotting90
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add a random start location

Browse Source
This commit is contained in:
Tonton Th
2026-04-28 23:00:37 +02:00
parent 90379c0a0f
commit 4263302e46
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
randomwalk.f90
View File

@@ -7,15 +7,19 @@ program randomwalk
use genplotting use genplotting
implicit none implicit none
integer foo, col integer foo, col
real px, py
write (0, '(A)') "----[ genplotting randomwalk ]----" write (0, '(A)') "----[ genplotting randomwalk ]----"
call srand(time()) call srand(time())
call genp_init (0, 'WS/randomwalk.scratch') call genp_init (0, 'WS/randomwalk.scratch')
do foo=1, 51 do foo=1, 20
col = 2 + mod(foo, 4) px = 100 * (rand(0) - 0.50)
call do_randomwalk(42, col) py = 100 * (rand(0) - 0.50)
call genp_set_offset(px, py)
col = 1 + mod(foo, 6)
call do_randomwalk(500, col)
enddo enddo
call genp_end (0) call genp_end (0)
stop
contains contains
! --------------------------------------------------------- ! ---------------------------------------------------------
subroutine do_randomwalk(nbre, col) subroutine do_randomwalk(nbre, col)
@@ -23,13 +27,14 @@ subroutine do_randomwalk(nbre, col)
integer :: idx integer :: idx
real :: px, py, px2, py2 real :: px, py, px2, py2
px = 0.0 ; py = 0.0 px = 0.0 ; py = 0.0
do idx=1, nbre do idx=1, nbre
px2 = px + rand(0) - 0.50 px2 = px + rand(0) - 0.50
py2 = py + rand(0) - 0.50 py2 = py + rand(0) - 0.50
call genp_line(px, py, px2, py2, col) call genp_line(px, py, px2, py2, col)
px = px2 ; py = py2 px = px2 ; py = py2
enddo enddo
end subroutine end subroutine
! --------------------------------------------------------- ! ---------------------------------------------------------
end program end program