Question

fortran 产生随机数

求助。我要用fortran产生产生几百个数，其中，可以控制有几个位置随机是不为零，其他位置为零，比如说，要产生10个数，需要两个随机位置不为零，为1吧，就像这样我需要两个不为零的数，0001001000.第四个位置和第七个位置是随机的产生不为零的，或者第三个和第五个，或者其他的位置，只要两个为1就好，位置是随机选择的。求助。

Answer 1

你看看这个例子，就会了

program random
implicit none
integer i
real :: x
OPEN(6,FILE='输出.XLS')
call random_seed () ! 系统根据日期和时间随机地提供种子
do i=1,1000
call random_number (x) ! 每次的随机数就都不一样了
write(6,*) x
end do
end program random