Casas

%INICIANDO
clear all %Borrando Variables usadas
clc %Limpiando Pantalla
close all % Cerrando cualquier Ventana de Plot()

%BIENVENIDA
disp('****************************************************************************');
disp('* ESCUELA SUPERIOR POLITECNICA DE CHIMBORAZO (ESPOCH) *');
disp('* FACULTAD DE INFORMATICA Y ELECTRONICA (FIE)*');
disp('* ESCUELA DE INGENIERIA ELECTRONICA EN TELECOMUNICACIONES Y REDES (EIE-TR) *');
disp('* HERRAMIENTAS EDA *');
disp('* *');
disp('* PROYECTO FINAL *');
disp('**');
disp('****************************************************************************');
disp('* POR: Jaime Sebastian Cárdenas Chávez (264) *');
disp('* Luis Gonzalo Pastrano Badillo (267) *');
disp('****************************************************************************');
disp(' ');tecla=input('Presione ENTER para acceder al Menú principal...');

%Menu
inicio=0;
while(inicio==0)
clc; %Limpieza de Pantalla
disp(' MENÚ PRINCIPAL');
disp(' ');
disp('1.- Codificador de Hamming');
disp('2.- Decodificador de Hamming');
disp('3.- Enmascarador');
disp('4.- Desenmascarador')
disp('5.- Salir')
disp(' ');
opcion=input('Escoja una opcion: ');if(opcion==1)
clc
clear
disp(' CODIFICADOR DE HAMMING')
disp('Seleccione la paridad del codificador')
pd= input('1.Paridad Par \n2.Paridad Impar \n')
while (pd > 2)
clc
disp('Seleccione la paridad del codificador')
pd= input('1. Paridad Par \n 2.Paridad Impar \n');
end
clc
if (pd==1)
bp=0;
bi=1;
end
if (pd==2)
bp=1;bi=0;
end
k= input('Ingrese la longitud de la palabra: ');
clc
for i=1:k

pdat(i)= input('ingrese el bit correspondiente: ');
if ((pdat(i) > 1))
pdat(i)= input('ingrese bit correspondiente: ');
end
end
clc
disp('Palabra original:')
disp(pdat)
j=k;
for i=1:k
pdat2(i)=pdat(j);
j=j-1;
end
i=1;
j=1;
m=0;
while (i<=k)
if ((log(j)/log(2))==m)ph(j)=0;
m=m+1;
else
ph(j)= pdat2(i);
i=i+1;
end
j=j+1;
end
n=k+m;
for i=1:m
cont1(i)=0;
end
for j=1:m
a= 2^(j-1);
i=a;
if (((2*a)-1)> n)
lim=n;
else
lim=(2*a)-1;
end
while (i <= n)
for b= i:lim
if (ph(b)==1)cont1(j)=cont1(j)+1;
end
end
i=b+a+1;
if ((i+a-1)> n)
lim=n;
else
lim=i+a-1;
end
end
end
for j=1:m
if (mod(cont1(j),2)==0)
ph(2^(j-1))= bp;
else
ph(2^(j-1))=bi;
end
end
j=n;
fori=1:n
pcod(i)=ph(j);
j=j-1;
end
disp('Palabra codificada:')
disp(pcod)
inicio=0;
tecla=input('Presione ENTER para regresar al Menú Principal...');
else
if (opcion==2)
clc
clear
disp(' DECODIFICADOR DE HAMMING')
disp('Seleccione la paridad del decodificador')
pd= input('1.Paridad Par\n2.Paridad Impar \n')
while (pd > 2)
clc
disp('Seleccione la paridad del decodificador')
pd= input('1.Paridad Par \n 2.Paridad Impar \n');
end
clc
if (pd==1)
bp=0;
bi=1;
end
if (pd==2)
bp=1;
bi=0;
end
n= input('Ingrese la longitud de la palabra: ');
clc
for i=1:n
pdat(i)=...