C/C++ week November Black Friday
Black Friday je tu! Využij jedinečnou příležitost a získej až 80 % znalostí navíc zdarma! Více zde
Pouze tento týden sleva až 80 % na e-learning týkající se C/C++
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.