Question

Fortran怎么利用随机函数产生1到3位数的随机数，随机数数量为2000个

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

任意区间均匀分布的随机数
function my_random (lbound,ubound) implicit none
real :: lbound,ubound real :: len
real :: my_random real :: t
len=ubound-lbound !计算范围大小
call random_number(t) !t是0-1之间的随机数
my_random=lbound+len*t
return
end

Answer 2

任意区间均匀分布的随机数
function my_random (lbound,ubound) implicit none
real :: lbound,ubound real :: len
real :: my_random real :: t
len=ubound-lbound !计算范围大小
call random_number(t) !t是0-1之间的随机数
my_random=lbound+len*t
return
end