Fortran生成随机数

shrine

      

[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

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

shrine

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

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

vvt

http://random.w.fcode.cn

Poseidon

shrine 发表于 2017-3-2 19:25
谢谢
  
这个seed是干啥用的？能简单说说么，网上好多很长的文章，看不下去  ...

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