informatik |
26.06.2016, 20:09 | Auf diesen Beitrag antworten » |
tö | informatik Meine Frage: Hallo, ich weiß nicht, ob hier der Richtige Platz ist um meine Frage zu stellen. Ich Programmiere mit Fortran. Ich soll die Monte Carlo Integration Programmieren. Beim Compleieren wird mir aber immer gesagt, dass Moduldatei »functions.mod« kann bei (1) nicht zum Lesen geöffnet werden kann... Ich habe keine Ahnung wie ich das ändern kann. Über Hilfe wäre ich sehr froh! Meine Ideen: Mein Programm: MODULE integrate CONTAINS FUNCTION mc_int (n, dim) ! N anzahl Dim REAL :: mc_int, sum, rot REAL, ALLOCATABLE :: z( !Arry erstellen INTEGER :: n, i, j, dim ALLOCATE (z(dim)) !Arrygröße wird festgelegt rot=0 mc_int=0 DO i=1, n sum=0 DO j=0, dim-1 CALL RANDOM_NUMBER (z(j)) sum = sum + z(j)*z(j) END DO !sum = x1**2 + x2**2.... +xdim**2 IF (sum< 1) rot = rot+1.0 END DO mc_int= (rot/(n+0.0)/(2**dim)) END FUNCTION ! mc_int END MODULE integrate PROGRAM mc USE integrate USE functions IMPLICIT NONE REAL :: a, b INTEGER :: n READ (*,*) n, dim WRITE (*,*) mc_int (f1,0.,1.,n,1.),mc_int(f2,0.,1.,n,exp(1.0)) END PROGRAM ! mc |
|
|
Verwandte Themen
Die Beliebtesten » |
|
Die Größten » |
|
Die Neuesten » |
|