Fortran - Multiplicar dos matrices

 
Vista:

Multiplicar dos matrices

Publicado por ash crimson (1 intervención) el 04/04/2013 05:33:41
Quiero un programa que multiplique dos matrices (Matriz cuadrada) la matriz debe ser de n dimensiones!!!

Pero no tengo idea de como hacerlo!!! Alguna idea?

HELP ME PLIS
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
Imágen de perfil de Ricardo Rodriguez

Multiplicar dos matrices

Publicado por Ricardo Rodriguez (3 intervenciones) el 05/04/2013 18:43:52
Hola Crimsom

Este es el código para la multiplicación

1
2
3
4
5
6
7
8
9
10
c	n 	= Numero de Filas o columnas de las Matrices (Datos de entrada)
c	A(n,n)	= Primera Matriz
c	B(n,n)	= Segunda Natriz
c	C(n,n)	= Matriz de Resultado
 
	do i = 1,n		'	Columnas
		do j = 1, n	'	Filas
			C(i,j) = A(i,j) * B(i,j)
		next j
	next i
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

Multiplicar dos matrices

Publicado por [email protected] (1 intervención) el 28/09/2017 00:14:41
Disculpa pero esa formula no corresponde al producto de matrices.
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
sin imagen de perfil

Multiplicar dos matrices

Publicado por Fernando (6 intervenciones) el 11/10/2013 06:54:41
mmmm y has probado el matmul??
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

Multiplicar dos matrices

Publicado por Erick (1 intervención) el 06/11/2013 03:03:44
La subrutina MTXMLT multiplica una matriz A de n × l por una matriz B de l × m y coloca
el resultado en la matriz R de n × m.
SUBROUTINE MTXMLT(A,B,R,N,L,M,NMAX)
* -------------------------------------------
IMPLICIT NONE
INTEGER N,L,M,NMAX
REAL A(NMAX,*)
REAL B(NMAX,*)
REAL R(NMAX,*)
* -------------------------------------------
INTEGER I,J,K
* -------------------------------------------
DO I=1,N
DO J=1,M
R(I,J) = 0.0
DO K=1,L
R(I,J) = R(I,J) + A(I,K)*B(K,J)
END DO
END DO
END DO
RETURN
END

Este seria el caso general ya tu solo hazlo para nxn
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