Fortran Coder

标题: 关于方形区域内撒点 [打印本页]

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

作者: li913 时间: 2020-8-20 18:47
生成随机数x,y就行。

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

作者: 13613529432 时间: 2020-8-21 15:54

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

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

作者: li913 时间: 2020-8-21 16:08

[Fortran] 纯文本查看 复制代码

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

li913 发表于 2020-8-21 16:08
[mw_shl_code=fortran,true]program test
implicit none
real x(50,50), y(50,50)

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

作者: li913 时间: 2020-8-28 09:21

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

en, 是的。

作者: 13613529432 时间: 2020-8-28 10:27

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

大佬群主。爱你

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)