cách tạo số ngẫu nhiên nguyên trong fortran 90 trong phạm vi [0,5]?

Question

Tôi là loại mới trong việc đặt cược trước. Bất cứ ai có thể vui lòng giúp tôi với giải pháp. tôi đang gặp một vấn đề về tạo số nguyên ngẫu nhiên số trong khoảng [0,5] trong số ngẫu nhiên fortran sử dụng random_seed và rand

Answer 1

gì về:

program rand_test 
    use,intrinsic :: ISO_Fortran_env 
    real(REAL32) :: r(5) 
    integer  :: i(5) 

    ! call init_random_seed() would go here 

    call random_number(r) 

    ! Uniform distribution requires floor: Thanks to @francescalus 
    i = floor(r*6._REAL32) 

    print *, i 
end program 

Answer 2

Để hỗ trợ các answer bởi Alexander Vogt , Tôi sẽ khái quát.

Các nội random_number(u) trả về một số thực u (hoặc một mảng như vậy) từ sự phân bố đồng đều trong khoảng [0,1). [Tức là, nó bao gồm 0 nhưng không phải 1.]

Để phân bố đồng đều riêng biệt trên các số nguyên {n, n + 1, ..., m-1, m} khắc phân phối liên tục thành m + 1-n khối có kích thước bằng nhau, ánh xạ từng đoạn vào một số nguyên. Một cách có thể là:

call random_number(u) 
j = n + FLOOR((m+1-n)*u) ! We want to choose one from m-n+1 integers 

Như bạn có thể thấy, cho câu hỏi ban đầu cho {0, 1, 2, 3, 4, 5} điều này làm giảm tới

call random_number(u) 
j = FLOOR(6*u)   ! n=0 and m=5 

và đối với trường hợp khác trong bình luận của bạn {-1, 0, 1}

call random_number(u) 
j = -1 + FLOOR(3*u)  ! n=-1 and m=1 

Tất nhiên, biến đổi khác sẽ được yêu cầu cho bộ số nguyên không tiếp giáp, và ta nên chú ý đến vấn đề số.