Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 产生的随机数不随机。

产生的随机数不随机。

查看数: 10504 | 评论数: 2 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

ID0577775606

发布时间: 2016-5-18 23:56

正文摘要:

产生1~100的随机数，统计结果如下，第一个区间少了一块。不知道是哪里有问题。 [Fortran] 查看源码复制源码 program random implicit none real :: x integer :: up open(7,file='randnums.txt') call random_seed( ...

fcode 发表于 2016-5-19 08:25:10

x = floor((up-1)*x)+1
改为
x = floor(up*x)+1

产生的随机数不随机。

正文摘要:

回复