VPF::[General] Генерация случайных чисел

franchesko

Дата 19.7.2008, 08:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 19.7.2008

Репутация: нет
Всего: нет

Помогите пожалуйста. подскажите как заполнить двумерный массив случайными числами из заданного интервала чисел? допустим от 1 до 9? можно ли это сделать используя random???

marcusmae

Дата 19.7.2008, 14:14 (ссылка)

(нет голосов)

Загрузка ...

stravaganza

Профиль
Группа: Участник
Сообщений: 874
Регистрация: 26.3.2006

Репутация: нет
Всего: 39

Код


program GenRand

integer :: i, timeArray(3)
integer, parameter :: count = 10
real(8) :: range
real(8), parameter :: rangeMin = 1, rangeMax = 9

! Initialize random seed.
call itime(timeArray)
i = rand (sum(timeArray))

! Generate 10 ranged random numbers.
range = rangeMax - rangeMin 
do i = 1, count
  print *, rand(0) * range + rangeMin
end do

print *, 'Press Enter...'
read *

end program GenRand

Результат :

Цитата

   4.21038365364075
   1.43283370137215
   6.31560850143433
   6.74582481384277
   5.70072698593140
   5.79226350784302
   8.36268424987793
   5.12997293472290
   6.92398452758789
   5.65528631210327
Press Enter...

Функция rand генерит псевдослучайное число на интервале [0,1]. Умножая на длину отрезка и прибавляя минимальное значение, отображаем [0,1] в требуемый интервал, например, [1,9]. В самом начале бросается seed от системного времени - это нужно, чтобы каждый раз случайная последовательность была новой.

Это сообщение отредактировал(а) marcusmae - 19.7.2008, 14:17

--------------------

ἀπὸ μηχανῆς θεός

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Fortran \| Следующая тема »