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给的链接，说的很清楚，也不是太长。
页: [1]
查看完整版本: Fortran生成随机数