论坛 › Fortran算法研究 › 关于方形区域内撒点

13613529432 发表于 2020-8-20 14:40:05

关于方形区域内撒点

我之前用的随机函数在一个区域内进行撒点。现在想在方形区域内均匀撒点，或者把方形区域分成格点，格点里撒点且在格点中的位置可以稍微随机。具体在网上没找到，请教大佬们相关算法或者指导思想，小弟在此拜谢。

li913 发表于 2020-8-20 18:47:29

生成随机数x,y就行。

风平老涡 发表于 2020-8-20 23:42:47

如上所述，把x,y分别作为俩个区域，生成随机数即可。

13613529432 发表于 2020-8-21 15:54:35

风平老涡 发表于 2020-8-20 23:42
如上所述，把x,y分别作为俩个区域，生成随机数即可。

谢谢大佬回复，但是感觉这样也是随机放点啊

li913 发表于 2020-8-21 16:08:49

program test
implicit none
real x(50,50), y(50,50)
real:: dx=0.2, dy=0.2
integer i, j
call RANDOM_SEED()
call RANDOM_NUMBER(x)
call RANDOM_NUMBER(y)
x = x * dx
y = y * dy
do i = 1, 50
    do j = 1, 50
      x(j,i) = x(j,i) + (j-1)*dx
      y(j,i) = y(j,i) + (i-1)*dy
    end do
end do
end program

13613529432 发表于 2020-8-27 21:16:33

li913 发表于 2020-8-21 16:08
program test
implicit none
real x(50,50), y(50,50)


谢谢大佬。你是那个群群主把？

li913 发表于 2020-8-28 09:21:47

13613529432 发表于 2020-8-27 21:16
谢谢大佬。你是那个群群主把？

en, 是的。

13613529432 发表于 2020-8-28 10:27:12

li913 发表于 2020-8-28 09:21
en, 是的。

大佬群主。爱你

查看完整版本: 关于方形区域内撒点