UNIVERSIDAD PRIVADA DEL VALLE ELECTROTECNIA INDUSTRIAL
OBJETIVO:
- Desarrollar herramienta que permita realizar operaciones matriciales
empleando Matlab.
-
IMPLEMENTACION:
clc
while 1
disp('OPERACIONES CON MATRICES')
disp('[Link] DE MATRICES')
disp('[Link] DE UNA MATRIZ POR UN ESCALAR')
disp('[Link] DE MATRICES')
disp('[Link] TRANSPUESTA')
disp('[Link]')
a = input('INGRESE UNA OPCION : ','s');
if isempty(str2num(a))
clc
disp('OPCION INVALIDA, SELECCIONE UN')
disp('VALOR NUMERICO PORFAVOR')
disp(' ')
elseif a==(49)||a==(50)||a==(51)||a==(52)||a==(53)
clc
switch a
case 49
clc
clear all
while 1
disp('SUMA DE MATRICES')
disp(' ')
disp('INTRODUZCA LAS DIMENSIONES DE LA PRIMERA MATRIZ:')
disp(' ')
f1=input('FILAS: ');
c1=input('COLUMNAS: ');
disp(' ')
disp('INTRODUZCA LAS DIMENSIONES DE LA SEGUNDA MATRIZ')
f2=input('FILAS: ');
c2=input('COLUMNAS: ');
if f1==f2&&c1==c2
clc
disp(' ')
disp('INGRESE LOS COMPONENTES DE LA PRIMERA MATRIZ:')
P á g i n a 1 | 14
UNIVERSIDAD PRIVADA DEL VALLE ELECTROTECNIA INDUSTRIAL
disp(' ')
for i1=1:f1
for j1=1:c1
disp(['EL
COMPONENTE(',num2str(i1),',',num2str(j1),')'])
A(i1,j1)=input('');
end
end
disp('INGRESE LOS COMPONENTES DE LA SEGUNDA MATRIZ:')
disp(' ')
for i2=1:f2
for j2=1:c2
disp(['EL
COMPONENTE(',num2str(i2),',',num2str(j2),')'])
B(i2,j2)=input('');
end
end
clc
A
B
disp('LAS SUMA DE ESTAS MATRICES ES:')
C=A+B;
C
break
else
clc
disp('SUS MATRICES DEBEN SER DE LA MISMA DIMENSION')
disp('PARA REALIZAR LA SUMA')
disp(' ')
end
end
disp('PRESIONE CUALQUIER TECLA PARA REGRESAR AL MENU DE
OPCIONES')
salir=input('SI DESEA SALIR PRESIONE "1": ','s');
if salir==49
clc
disp('EL PROGRAMA FINALIZO')
break
else
clc
end
case 50
clc
P á g i n a 2 | 14
UNIVERSIDAD PRIVADA DEL VALLE ELECTROTECNIA INDUSTRIAL
clear all
while 1
disp('PRODUCTO DE UNA MATRIZ POR UN ESCALAR')
disp(' ')
disp('INTRODUZCA LAS DIMENSIONES DE LA MATRIZ:')
disp(' ')
f1=input('FILAS: ');
c1=input('COLUMNAS: ');
disp(' ')
disp('INTRODUZCA EL ESCALAR A MULTIPLICAR')
e=input('ESCALAR: ');
clc
disp('INGRESE LOS COMPONENTES DE LA MATRIZ:')
disp(' ')
for i1=1:f1
for j1=1:c1
disp(['EL
COMPONENTE(',num2str(i1),',',num2str(j1),')'])
A(i1,j1)=input('');
end
end
clc
A
disp('ESCALAR:')
disp(e)
disp('EL PRODUCTO DE LA MATRIZ Y EL ESCALAR ES:')
C=A*e;
C
break
end
disp('PRESIONE CUALQUIER TECLA PARA REGRESAR AL MENU DE
OPCIONES')
salir=input('SI DESEA SALIR PRESIONE "1": ','s');
if salir==49
clc
disp('EL PROGRAMA FINALIZO')
break
else
clc
end
case 51
clc
clear all
P á g i n a 3 | 14
UNIVERSIDAD PRIVADA DEL VALLE ELECTROTECNIA INDUSTRIAL
while 1
disp('PRODUCTO DE MATRICES')
disp(' ')
disp('INTRODUZCA LAS DIMENSIONES DE LA PRIMERA MATRIZ:')
disp(' ')
f1=input('FILAS: ');
c1=input('COLUMNAS: ');
disp(' ')
disp('INTRODUZCA LAS DIMENSIONES DE LA SEGUNDA MATRIZ')
f2=input('FILAS: ');
c2=input('COLUMNAS: ');
if f1==c2&&c1==f2
clc
disp(' ')
disp('INGRESE LOS COMPONENTES DE LA PRIMERA MATRIZ:')
disp(' ')
for i1=1:f1
for j1=1:c1
disp(['EL
COMPONENTE(',num2str(i1),',',num2str(j1),')'])
A(i1,j1)=input('');
end
end
disp('INGRESE LOS COMPONENTES DE LA SEGUNDA MATRIZ:')
disp(' ')
for i2=1:f2
for j2=1:c2
disp(['EL
COMPONENTE(',num2str(i2),',',num2str(j2),')'])
B(i2,j2)=input('');
end
end
clc
A
B
disp('EL PRODUCTO DE ESTAS MATRICES ES:')
C=A*B;
C
break
else
clc
disp('SUS MATRICES DEBEN SER CONFORMABLES')
disp('PARA REALIZAR LA MULTIPLICACION')
P á g i n a 4 | 14
UNIVERSIDAD PRIVADA DEL VALLE ELECTROTECNIA INDUSTRIAL
disp(' ')
end
end
disp('PRESIONE CUALQUIER TECLA PARA REGRESAR AL
MENU DE OPCIONES')
salir=input('SI DESEA SALIR PRESIONE "1": ','s');
if salir==49
clc
disp('EL PROGRAMA FINALIZO')
break
else
clc
end
case 52
clc
clear all
while 1
disp('MATRIZ TRANSPUESTA')
disp(' ')
disp('INTRODUZCA LAS DIMENSIONES DE LA MATRIZ:')
disp(' ')
f1=input('FILAS: ');
c1=input('COLUMNAS: ');
clc
disp('INGRESE LOS COMPONENTES DE LA MATRIZ:')
disp(' ')
for i1=1:f1
for j1=1:c1
disp(['EL
COMPONENTE(',num2str(i1),',',num2str(j1),')'])
A(i1,j1)=input('');
end
end
clc
A
disp('LA TRANSPUESTA DE LA MATRIZ ES:')
C=A';
C
break
end
P á g i n a 5 | 14
UNIVERSIDAD PRIVADA DEL VALLE ELECTROTECNIA INDUSTRIAL
disp('PRESIONE CUALQUIER TECLA PARA REGRESAR AL MENU DE
OPCIONES')
salir=input('SI DESEA SALIR PRESIONE "1": ','s');
if salir==49
clc
disp('EL PROGRAMA FINALIZO')
break
else
clc
end
case 53
disp('EL PROGRAMA FINALIZO')
break
end
else
clc
disp('OPCION INVALIDA, SELECCIONE UN')
disp('NUMERO DEL 1 AL 5 PORFAVOR')
disp(' ')
end
end
PRUEBA:
Para sacar la determinante:
P á g i n a 6 | 14
UNIVERSIDAD PRIVADA DEL VALLE ELECTROTECNIA INDUSTRIAL
P á g i n a 7 | 14
UNIVERSIDAD PRIVADA DEL VALLE ELECTROTECNIA INDUSTRIAL
Para sacar el producto de una matriz por un escalar:
P á g i n a 8 | 14
UNIVERSIDAD PRIVADA DEL VALLE ELECTROTECNIA INDUSTRIAL
P á g i n a 9 | 14
UNIVERSIDAD PRIVADA DEL VALLE ELECTROTECNIA INDUSTRIAL
Para sacar el producto de matrices:
P á g i n a 10 | 14
UNIVERSIDAD PRIVADA DEL VALLE ELECTROTECNIA INDUSTRIAL
P á g i n a 11 | 14
UNIVERSIDAD PRIVADA DEL VALLE ELECTROTECNIA INDUSTRIAL
Para una matriz transpuesta:
P á g i n a 12 | 14
UNIVERSIDAD PRIVADA DEL VALLE ELECTROTECNIA INDUSTRIAL
Para salir del programa:
P á g i n a 13 | 14
UNIVERSIDAD PRIVADA DEL VALLE ELECTROTECNIA INDUSTRIAL
CONCLUSIONES Y RECOMENDACIONES:
Como resultado del experimento, se logro elaborar el menu de matrices
requerido. Ademas de que se calculo de una manera eficiente las
diferentes operaciones de las matrices.
P á g i n a 14 | 14
