%% mi primera matriz e imagen

clear all;
clearvars;
close all;
clc;

%% matriz
%un arreglo bidimesional o matriz consiste en numeros ordenandos por filas y
%columnas, para idexar cada componente se necesita dos numeros naturales
%el primero indica la fila, el segundo indica la columna

%nombre_matriz = [algo11,algo12,algo13,....algo1N;
%                 algo21,algo22,algo23,....algo2N;
%                 ..............................
%                 algoM1,algoM2,algoM3,....algoMN];

%esta es una matriz de M filas por N columnas
%los elementos dentro de la fila se separan por comas ","
%las filas entre si se separan por punto y coma ";"
%el incio y el final de una matriz estan dados por parentesis cuadrados "[]"

mi_primera_matriz = [ 1, 2, 3, 4, 5, 6;
                      7, 8, 9,10,11,12;
                     13,14,15,16,17,18;
                     19,20,21,22,23,24];

%grafico
%una matriz se puede asociar a una imagen
figure(1)
surf(mi_primera_matriz);
title('mi primer grafico matriz');
xlabel('filas (m)')
ylabel('columnas (n)');
zlabel('matriz(m,n)');
grid on;
box on;
colormap jet;
colorbar;

%% indexacion
%para trabajar con los elementos de una matriz es necesario indexar
%esto se realiza usando el nombre_matriz(numero_de_fila,numero_de_columna);
%es obligatorio que el indice sea numeros enteros

disp(' ');
disp('mi_primera_matriz');
disp(' ');
disp(mi_primera_matriz);
disp(' ');
m = input('numero de fila = ');
n = input('numero de columna = ');
x = mi_primera_matriz(m,n);
disp(' ');
fprintf('el valor ( %d , %d) mi_primera_matriz es = %d\n',m,n,x);

%% creacion de matrices usando for

for m = 1:100
    x(m) = (m-1)/10;
    for n = 1:100
        y(n) = (n-1)/10;
        z(m,n) = cos(x(m))*cos(y(m));
    end;
end;

%grafico
figure(2)
surf(z);
title('mi segundo grafico matriz');
xlabel('filas (m)')
ylabel('columnas (n)');
zlabel('z(m,n)');
grid on;
box on;
colormap jet;
colorbar;

%% filas columnas y submatrices

%para obtener una fila de una matriz se usa
%nombre_fila = matriz(numero_de_fila,:);
la_tercera_fila = mi_primera_matriz(3,:);
disp(' ');
disp('la_tercera_fila');
disp(' ');
disp(la_tercera_fila);
disp(' ');

%para obtener una columna de una matriz se usa
%nombre_columna = matriz(:,numero_de_columna);
la_segunda_columna = mi_primera_matriz(:,2);
disp(' ');
disp('la_segunda_columna');
disp(' ');
disp(la_segunda_columna);
disp(' ');

%submatriz
%para obtener una submatriz de una matriz se usa
%nombre_summatrix = matriz(iniciofila:fin_fila,incio_columna:fin_columa);
submatriz = mi_primera_matriz(2:4,3:5);
disp(' ');
disp('submatriz');
disp(' ');
disp(submatriz);
disp(' ');

%% operaciones elemento a elemento deben tener el mismo tamanho

for m = 1:3
    for n = 1:3
        A01(m,n) = m+n;
        A02(m,n) = m*n;
    end;
 end;


A03 = A01 + A02;  %suma elemento a elemento
A04 = A01 - A02;  %resta elemento a elemento
A05 = A01 .* A02; %multiplicacion elemento a elemento
A06 = A01 ./ A02; %division elemento a elemento
A07 = A01.^2;     %elevar al cuadrado elemento a elemento

%las funciones matematicas son elemento a elemento
A08 = sqrt(A01);  %raiz cuadrada
A09 = sin(A01);   %sin cuadrada
A10 = log(A01);   %logaritmo natural