Espero que te sirva, En Fortran 90/95
PROGRAM Examen
!
! Programa para calcular una tabla de valores de la funcion
! f(x) =2/sqrt(2*pi) *e^(-2((x-1)^2))
! en el intervalo [-1,3]
!
! El programa calculara 2 vectores x(0:40) e y(0:40)
! que se escribiran en un fichero datos.txt
!
IMPLICIT NONE
INTEGER :: j, limmax=40
REAL,PARAMETER :: pi = 3.14159
REAL, ALLOCATABLE :: x(
, y(
OPEN(7,FILE='datos.txt')
write (7,*) 'Programa que calcula tabla de valores de la funcion'
write (7,*) 'f(x) =2/sqrt(2*pi)*e^(-2((x-1^2))'
allocate(x(0:limmax),y(0:limmax)) ! Asignacion de memoria para los vectores
write (7,*)'Posicion y Resultado'
do j=1,limmax
x(j)=j
y(j)=2/SQRT(2*pi)*EXP(-2*((x(j)-1)**2))
write (7,*)'', x(j), y(j)
end do
CLOSE(7)
write (*,*)'Termino la ejecucion'
write (*,*)'Busca el fichero "datos.txt" donde compilaste este archivo'
STOP
end program Examen
nhslas@gmail.com
