Geek tričko zdarma Geek tričko zdarma
Tričko zdarma! Stačí před dobitím bodů použít kód TRIKO15. Více informací zde

Diskuze: generátor náhodných čísel ve FORTRANu 90

Aktivity (2)
Avatar
Oliver Pospíšil:12. května 12:39

Ahoj, nenašel jsem forum, kde by se používal FORTRAN 90, proto bych byl vděčný i za rady, kde a jestli taková fora existují. Ale teď už k mému dotazu, ve fotranu 90 píšu program pro výpočet vícerozměrných integrálů pomocí metody Monte Carlo no a k tomuto výpočtu potřebuji generátor náhodných čísel. Tento generátor mi kolegové naprogramovali. Nicméně bych potřeboval cyklus n náhodných čísel a protože tomuto programu vůbec nerozumím, byly všechny mé pokusy o tento cyklus zbytečné.

Zkusil jsem: Pokoušel jsem se do tohoto programu vložit běžné do, ..., end do. Program, který počítá pouze 1 číslo:
program hello
implicit none
real(8) :: i
integer, allocatable :: seed(:)
integer :: n
real :: time

call random_seed(si­ze=n)!
allocate(seed(n))
call cpu_time(time)
print,n,int(1000ti­me)
seed(1)=int(1000*ti­me)
call random_seed(put=se­ed)
call random_number(i)
print*,i

end program

Chci docílit: program, s cyklem, který mi vyhodí n náhodných čísel (mezi 0 a 1)

 
Odpovědět 12. května 12:39
Tento výukový obsah pomáhají rozvíjet následující firmy, které dost možná hledají právě tebe!
Avatar
JerryM
Člen
Avatar
Odpovídá na Oliver Pospíšil
JerryM:11. června 9:27

ve F. jsem naposled dělal někde v roce 1994 :)

nělo byto bejt (pamatuju si to už dost matně):

1 DO 3 i=1,100,1
2 CISLO = GENERUJ_NAHOD­NE_CISLO()
3 CONTINUE

jinak forum pro Fortran je jen na stránkách Intelu - protože on má v rámci sady Intel compilerů taky fortran....
https://software.intel.com/en-us/forum
jinak mám pcit že F90 je mrtvá záležitost a pokud chceš používat F přejdi rychle na nejnovější F od Intelu a straým F90 se už nezabývej....

 
Nahoru Odpovědět 11. června 9:27
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 2 zpráv z 2.