Vydělávej až 160.000 Kč měsíčně! Akreditované rekvalifikační kurzy s garancí práce od 0 Kč. Více informací.
Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.
Avatar
Oliver Pospíšil:12.5.2019 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.5.2019 12:39
Avatar
JerryM
Člen
Avatar
Odpovídá na Oliver Pospíšil
JerryM:11.6.2019 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.6.2019 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.