Fortran生成随机数

shrine · 发表于 2017-3-2 18:11:00

[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:05

把“ call random_seed () ”放到循环前边试试

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

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

谢谢

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

vvt · 发表于 2017-3-2 19:35:12

http://random.w.fcode.cn

Poseidon · 发表于 2017-3-2 21:24:06

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

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

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

[讨论] Fortran生成随机数

评分

规矩勋章

元老勋章

新人勋章

水王勋章

热心勋章