Fortran - reducir matriz

   
Vista:

reducir matriz

Publicado por toni (5 intervenciones) el 05/11/2012 19:54:23
hola a tod@s , por favor necesito de su ayuda .
tengo esta matriz:

A=[ 4 5 8 9 4 6 7
4 8 7 9 2 3 5
2 4 5 6 7 9 6
5 6 9 7 2 3 6]

lo que quiero es conservar las filas pero eliminar las columnas 2, 4 y 6
que quede una matriz B:

B =[4 8 4 7
4 7 2 5
2 5 7 6
5 9 2 6]


esto es solo una pequeña matriz (A y B) de ejemplo pero con las sugerencias de ustedes sera suficiente para resolver la matriz que tengo,

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Fortran
- Código fuente de Fortran
- Cursos de Fortran
- Temas de Fortran
información
Códigos de Fortran
- Ecuaciones lineales
Imágen de perfil de Ricardo Rodriguez (rjrp1944)

reducir matriz

Publicado por Ricardo Rodriguez (rjrp1944) rjrp1944@hotmail.com (3 intervenciones) el 13/11/2012 09:55:40
Buenas noches Toni

La solución de tu problema debe ser como sigue:

1
2
3
4
5
6
7
8
9
10
11
12
13
Soubrutine Resucir()
 
     array Matriz_A(10,10)
     array Matriz_B(10,10)
N = 10
do i =1, N / 2 + 1
      k = (i - 1) * 2 + 1
      do j = 1, N
            Matriz_B(k, j) = Matriz_A(i, j)
      next
next
 
end subrutine



La misma función.pero en VBA para excel

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Mover()
'   Subrutina para crear una MatrizB a partir de otra MatrizA, pero eliminando las columnas pares

Dim MatrizA(10, 10) As Integer, MatrizB(5, 10) As Integer
Dim i As Integer, j As Integer, k As Integer, N As Integer

N = 10
For i = 1 To N / 2 + 1
    k = (i - 1) * 2 + 1
    For j = 1 To N
        MatrizB(k, j) = MatrizA(i, j)
    Next j
Next i

End Sub



Tengo muchos años (más de 20) que no programo en Fortran,pero la lógica es igual para cualquier lrmguaje.

Espero te sea de utilidad

Ricardo
Caracas. Venezuela
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar