Programación General > Fortran

  para un examen por favor!

(1/1)

suazo100:
Escribir un programa para calcular una tabla de valores de la funci´on
f(x) =2/sqrt(2pi) *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.
Muchisimas gracias

nhslag:
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

nhslag:
era: nhslag@gmail.com
lo siento

Cualquier duda, avisame  = )

Navegación

[0] Índice de Mensajes