Calcular la moda de un array en Fortran
Publicado por Roberto (1 intervención) el 28/06/2016 18:09:59
¿Cómo puedo calcular la moda de un array de enteros en Fortran?
Tengo el siguiente esquema:
en la sección contains he creado una función que me ordena el array.
Tengo el siguiente esquema:
1
2
3
4
5
6
program array
implicit none
integer :: x(8) = [6, 3, 9, 6, 6, 5, 9, 3]
print*, moda(x)
en la sección contains he creado una función que me ordena el array.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function ordena(x)
integer :: x(:), ordena(size(x)), k, mayor, menor, n
n = size(x)
k = 1do while( k < n)
k = k +1
if ( x(k-1) > x(k)) then
mayor = x(k-1)
menor = x(k)
x(k-1) = menor
x(k) = mayor
k = 1end if
end do
ordena = xend function
Valora esta pregunta
0