Ortonormalizar

%*******************************************************************
%****************************** ALGEBRA II *************************%*******************************************************************
%------------------------------------------------------------------%
TRABAJO PRACTICO DE MATLAB
%___________________________________________________________________
%________________Facultad de Ciencias Exactas y Tecnologias _______
%________________ Universidad Nacional de Santiago del Estero ______
%___________________________________________________________________%=====================
%== Autores:
%=====================
%***** Apellido:
Nombre:
Legajo:
Carrera: *********
%
%***** Gonzalez
Adrian
30350/03
L.S.I
**********
%
%***** Leiva
Maximiliano
30304/05
L.S.I**********
%********************************************************************
%Funcionamiento:
% Este archivo permite ingresar 2 matrices de orden nxn o 2 vectores de orden n
%(igualdimension), para poder evaluar si contituyen una base ortonormal,
%en caso contrario transforma esta base, en una nueva base que sea
%ortonormal mediante el proces de Gram-Schmidt y la normalizacion de los%vectores o matrices que no sean unitarios.
%======================================================================
function ortonormalizar
disp('=============================================')disp('========================= ============')
disp('==== 1- ingrese vectores(2)
=====')
disp('==== 2- ingrese matrices(2)
=====')
disp('======================================')disp('=============================================')
opcion=input('****** ingrese opcion= ');
disp('
')
switch opcion
% Se ingresan los elementos para trabajar en funcion de los escogido
% por el usuario.
case 1,A=input('Ingrese el vector A=');
disp('
');
B=input('Ingrese el vector B=');
disp('
')
if(size(A)==size(B))
x=sum(A.*B);
end
if(x==0)
na=sqrt(sum(A.*A));
nb=sqrt(sum(B.*B));
if((na==1)&(nb==1))...