Fortran Coder

标题: Fortran生成随机数 [打印本页]

作者: shrine 时间: 2017-3-2 18:11
标题: Fortran生成随机数

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

program random  

       implicit none  

       integer::i

       real :: x  

       do i=1,10

           call random_seed ()     !  

           call random_number (x)  !  

           write(*,*) x  

       enddo

       end

每次生成的十个数都非常近，在一个很小的区间内，有办法改进吗？

作者: Poseidon 时间: 2017-3-2 18:24
把“ call random_seed () ”放到循环前边试试

作者: shrine 时间: 2017-3-2 19:25

Poseidon 发表于 2017-3-2 18:24
把“ call random_seed () ”放到循环前边试试

谢谢

这个seed是干啥用的？能简单说说么，网上好多很长的文章，看不下去

作者: vvt 时间: 2017-3-2 19:35
http://random.w.fcode.cn

作者: Poseidon 时间: 2017-3-2 21:24

shrine 发表于 2017-3-2 19:25
谢谢

这个seed是干啥用的？能简单说说么，网上好多很长的文章，看不下去 ...

看vvt给的链接，说的很清楚，也不是太长。

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