关于方形区域内撒点

li913

生成随机数x,y就行。

li913

[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

li913

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

en, 是的。