script para crear matrices

crear matrices.m

function pruebamatriz (k)

    function [  ] = CorrerProyecto()
        
%*************************************************  
%Matriz 4x4  numeros del 0 al 15
%************************************************* 
      if (k==1) 
       
        for j= 1 : 4 %columnas
         for i= 1 : 4  %Filas
            a(j, i) = i+4*j-5;
         end
        end
            a
      end % 
%*************************************************  
%Matriz 4x4  numeros del 0 al -15
%************************************************* 
if (k==2) 
for j= 1 : 4 %columnas
         for i= 1 : 4  %Filas
            a(j, i) = -(i+4*j-5);
         end
end
            a
end
%*************************************************  
%Matriz 4x4  unitaria
%************************************************* 
 if (k==4) 
for j= 1 : 4 %columnas
         for i= 1 : 4  %Filas
            a(j, i) = 1;
         end
end
            a
 end           
%*************************************************  
%Matriz 3x3  Diagonal unitaria
%************************************************* 
 if (k==5) 
for j= 1 : 3 %columnas
         for i= 1 : 3  %Filas
             
             if j==2 && i==1
                 a(i, j) = 0;
             elseif j==3 && i==1
                 a(i, j) = 0;
             elseif j==3 && i==2
                 a(i, j) = 0;
             elseif j==1 && i==2
                a(i, j) = 0;
             elseif j==1 && i==3
                a(i, j) = 0;
             elseif j==2 && i==3
                 a(i, j) = 0;
             else
                a(i, j) = 1;
             end
         end
end
end

    end %fin de la funcion correrproyecto
      
 
 CorrerProyecto
 end %function