Ejemplo Fortran 90


S=0
do j=1,k
s=s+b(i,j)
/!
Ej examen.- sacar vector
do j=1,numero de columnas de j
s=0.
do i=1,5
s=s+a(i,j)
enddo
v(j)=s/5
enddo
/!

26/11/13
Paso de matrices y submatrices comoargumentos de subrutinas
!call nombre_subrutina (A)
!Entra la matriz A desde el primer elemento y sigue por columnas
!Lo importante de las subrutinas son el orden y el tipo de argumentos
//call nombre_subrutina (A(2:3,3:5),1,4)
!Coge las filas de la 2 a la 3
!Coge las columnas de la 3 a la 5
!Crea una matriz de 1x4 y la rellena con los elementos que coge por columnas
!Los dosúltimos elementos no los coge

ejemplo11
i=1
j=1 aux=1 a(1,1)=1
j=2 aux=2 a(1,2)=2
…
i=2
…
Matriz A={{1,2,3},{4,5,6}}
//
ejemplo 112
!!El numero devariables debe ser mayor que el número de variables de la subrutina
!Ej: A 3x2 necesita 6 o mas variables para que no de error
!Las dimensiones de las matrices pueden estar fijadas de antemano o no!!Dibujo de curvas en excel
a|_|_|_|_|_|b
n =numero de intervalos
_ =dx
n+1=n puntos
dx=(b-a)/n(intervalos)

do i=0,numero de intervalos
do i=1,numero de puntos
x(0:n) → Vector de n+1componentes
!recordar ejer707
Sacamos tabla y la pintamos con excel
intervalo: [0,2]
deltax=0,05
n=nint((b-a)/deltax)
!print*, n
open(10,file='datos_707,txt')

a+n*deltax=b
do i=0,n
x=a +real(i)*deltax
write(10,'f6.2,2x,e15.5)') x, f1(x)
!No escribir en doble precisión,utilizar formato entero o real
enddo
close(10)

!!
function f1(x)
implicit none
real :: f1, x

!Cogerancho fijo en excel
!Cambiar separación decimal → punto
!Separación de miles → nada
!Insertar gráfico puntos de dispersión → líneas suaves sin puntos
!seleccionar líneas transversales y suprimirlas!eje>clic derecho>formato de los ejes> minimo,máximo, intervalos, etc
>numero>categoría>números decimales
!Leyenda, se puede quitar
!Coger del moodle datos.txt y pintar las 5 gráficas