Fortran Coder

查看: 7494|回复: 7
打印 上一主题 下一主题

[通用算法] 关于方形区域内撒点

[复制链接]

17

帖子

3

主题

0

精华

入门

F 币
73 元
贡献
45 点

规矩勋章

跳转到指定楼层
楼主
发表于 2020-8-20 14:40:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我之前用的随机函数在一个区域内进行撒点。现在想在方形区域内均匀撒点,或者把方形区域分成格点,格点里撒点且在格点中的位置可以稍微随机。具体在网上没找到,请教大佬们相关算法或者指导思想,小弟在此拜谢。
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

835

帖子

2

主题

0

精华

大宗师

F 币
3926 元
贡献
2334 点
沙发
发表于 2020-8-20 18:47:29 | 只看该作者
生成随机数x,y就行。

213

帖子

2

主题

0

精华

宗师

F 币
2133 元
贡献
875 点

规矩勋章

板凳
发表于 2020-8-20 23:42:47 | 只看该作者
如上所述,把x,y分别作为俩个区域,生成随机数即可。

17

帖子

3

主题

0

精华

入门

F 币
73 元
贡献
45 点

规矩勋章

地板
 楼主| 发表于 2020-8-21 15:54:35 | 只看该作者
风平老涡 发表于 2020-8-20 23:42
如上所述,把x,y分别作为俩个区域,生成随机数即可。

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

835

帖子

2

主题

0

精华

大宗师

F 币
3926 元
贡献
2334 点
5#
发表于 2020-8-21 16:08:49 | 只看该作者
[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

17

帖子

3

主题

0

精华

入门

F 币
73 元
贡献
45 点

规矩勋章

6#
 楼主| 发表于 2020-8-27 21:16:33 | 只看该作者
li913 发表于 2020-8-21 16:08
[mw_shl_code=fortran,true]program test
  implicit none
  real x(50,50), y(50,50)

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

835

帖子

2

主题

0

精华

大宗师

F 币
3926 元
贡献
2334 点
7#
发表于 2020-8-28 09:21:47 | 只看该作者
13613529432 发表于 2020-8-27 21:16
谢谢大佬。你是那个群群主把?

en, 是的。

17

帖子

3

主题

0

精华

入门

F 币
73 元
贡献
45 点

规矩勋章

8#
 楼主| 发表于 2020-8-28 10:27:12 | 只看该作者

大佬群主。爱你
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-25 06:10

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表