%CÓDIGO CÍCLICO INVERSO.
%function nerror=incrc5350(d,p)
%Entradas:
%d:50 bits de la clase Ia.
%p:tres bits de paridad.
%Salidas:
%nerror:variable que indica si hay error detectado.
function nerror=incrc5350(d,p)
aux=[d,p];
a=[0 1 1;1 0 0;0 1 0;0 0 1;1 0 1;1 1 1;1 0 0;0 1 1;1 0 0;1 0 0;0 0 1;0 0 1;1 1  1;1 1  0];
a=[a;0 1 1;1 0 0;0 1 0;0 0 1;1 0 1;1 1 1;1 1 0;0 1 1;1 0 0;0 1 0;0 0 1;1 0 1;1 1 1;1 1 0];
a=[a;0 1 1;1 0 0;0 1 0;0 0 1;1 0 1;1 1 1;1 1 0;0 1 1;1 0 0;0 1 0;0 0 1;1 0 1;1 1 1;1 1 0];
a=[a;0 1 1;1 0 0;0 1 0;0 0 1;1 0 1;1 1 1;1 1 0;0 1 1];
Ht=[a;1 0 0;0 1 0;0 0 1];
nerror=aux*Ht;
nerror=mod(nerror,2);