• Viernes 29 de Marzo de 2024, 07:11

Autor Tema:   para un examen por favor!  (Leído 2190 veces)

suazo100

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
para un examen por favor!
« en: Domingo 27 de Mayo de 2012, 12:53 »
0
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

  • Nuevo Miembro
  • *
  • Mensajes: 5
    • Ver Perfil
Re: para un examen por favor!
« Respuesta #1 en: Lunes 10 de Septiembre de 2012, 17:46 »
0
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

  • Nuevo Miembro
  • *
  • Mensajes: 5
    • Ver Perfil
Re: para un examen por favor!
« Respuesta #2 en: Lunes 10 de Septiembre de 2012, 17:46 »
0
era: nhslag@gmail.com
lo siento

Cualquier duda, avisame  = )