找回密码
 注册
Simdroid-非首页
查看: 136|回复: 4

[3. Fortran] 如何用fortran产生0-1之间均匀分布的随机数?

[复制链接]
发表于 2010-11-5 15:10:57 | 显示全部楼层 |阅读模式 来自 日本
RT,徐世亮的例子我看了,但是看不懂,没看懂原理。
有理解的朋友可以给个例子,比那个加一下注释吗?
谢谢!
发表于 2010-12-8 18:38:24 | 显示全部楼层 来自 上海交通大学闵行校区
Simdroid开发平台
我也看过,也不是太懂,直接调用就是了
回复 不支持

使用道具 举报

发表于 2010-12-10 10:11:03 | 显示全部楼层 来自 江苏南京
能不能把代码贴上来呢
回复 不支持

使用道具 举报

发表于 2010-12-21 20:57:34 | 显示全部楼层 来自 北京西城
SUBROUTINE RD(N,A,R)
        DIMENSION A(N)
        S=65536
        U=2053
        V=13849
        DO I=1,N
        R=U*R+V
      M=R/S
        R=R-M*S
        A(I)=R/S
        ENDDO
        RETURN
        END SUBROUTINE
回复 不支持

使用道具 举报

发表于 2011-3-25 13:54:50 | 显示全部楼层 来自 广东广州
后期的FORTRAN都自带内部函数来产生这种随机数。检验过,效果不错的。
回复 不支持

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Simapps系列直播

Archiver|小黑屋|联系我们|仿真互动网 ( 京ICP备15048925号-7 )

GMT+8, 2024-11-1 07:03 , Processed in 0.036781 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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