FoxPro/Visual FoxPro - Suma por renglon de una matriz

   
Vista:

Suma por renglon de una matriz

Publicado por Luis Lozano luisdls@hotmail.com (2 intervenciones) el 18/05/2015 05:16:25
Hola amigos, espero estén muy bien, estoy intentando hacer un programa de una matriz de morosidad me dan una matriz cuadrada y un vector del tamaño del numero de columnas.

Debo pedir la matriz y el vector y después hacer los cálculos que son multiplicar cada renglón por el vector sumando cada elemento, por ejemplo

| 3 4 5 | 3
| 3 9 7 | 8
| 9 2 4 | 2

Respuesta ((3*3)+(8*4)+(5*2)) ((3*3)+(9*8)+(7*2)) ((9*3)+(2*8)+(4*2))

obteniendo así
51
95
51

esto es lo que debe arrojar pero no logro hacer la suma por renglón solo he podido multiplicarlos uno a uno.

Espero alguien me pueda ayudar le dejo el código que hasta ahora tengo, de antemano muchas gracias.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
n=0
m=0
 
DO WHILE n<=0 OR m<=0
	n=0
	m=0
 
	@ 2,2 say "Dame el numero de renglones" get n
	READ
	@3,2 say "Dame el numero de columnas" get m
	READ
 
ENDDO
DIMENSION a(n,m), b(n,m),c(n,m)
CLEAR
 
FOR i=1 TO n
	FOR j=1 TO m
	a(i,j)=0
	@ 2+i,2+30*j say "a("+str(i,2)+","+str(j,2)+")= " get a(i,j)
	READ
	ENDFOR
ENDFOR
 
FOR i=1 TO m
	FOR j=1 TO 1
	b(i,j)=0
	@ 2+n+1+i,2+30 say "b("+str(i,2)+","+str(j,2)+")= " get b(i,j)
	READ
	ENDFOR
ENDFOR
d=0
FOR i=1 TO n
	FOR j=1 TO m
		d=a(i,j)*b(i,1)
	    c(i,j)=d
	    ?c(i,j)
	ENDFOR
ENDFOR
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

Suma por renglon de una matriz

Publicado por Luis Lozano (2 intervenciones) el 19/05/2015 07:44:56
Ya me ha salido, muchas gracias.
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