desentrelaza(datos, filas, columnas)

function [paquete] = desentrelaza(datos, filas, columnas)
%------------------------------------------------------------------------
%|  function [paquete] = desentrelaza(datos filas, columnas)
%------------------------------------------------------------------------
%|    Funcin que entrelaza bloques bloques de 140 bits. 
%|
%|        NO VALIDA PARMETROS DE ENTRADA !!!!!!!!!!!!!
%|
%|    Entradas:
%|       1.- DATOS =  vector fila de, como mximo, 140 bits.
%|                    Si hay ms de 140 bits en datos, se trunca a 140.
%|       2.- FILAS = filas de la matriz de entrelazado
%|                   Valor por defecto: 14
%|                   Restricciones: filas x columnas = 140 bits
%|       3.- COLUMNAS = columnas de la matriz de entrelazado
%|                   Valor por defecto: 10
%|                   Restricciones: filas x columnas = 140 bits
%|
%|    Salida:
%|       1.- PAQUETE  = vector fila con 140 bits entrelazados
%|                    
%-------------------------------------------------------------------------
%|   Autor: Cesar Delgado
%|   Fecha: 19-Abril-2.004
%-------------------------------------------------------------------------

%  1.- Asignacin valores por defecto
%-----------------------------------------
if nargin < 1,
   disp('ERROR: faltan parmetros en entrelaza()');
   return;
elseif nargin < 2,
   filas = 14;
   columnas = 10;
elseif nargin < 3,
   columnas = 10;
end;

if isempty(columnas), columnas = 10; end;
if isempty(filas), filas = 14; end;

   
% 2.- Desentrelazado
%--------------------

%   2.1.- Zero Padding
lonDatos = length(datos);
if lonDatos<140,
   datos(140) = 0; 
end;


%   2.2.- Guardamos por filas
for fila = 1: filas,
   aux(fila,:) = datos(1:columnas); 
   datos(1:columnas)   = [];   
end;

paquete = [];

%   2.3.- Leemos por columnas
for col = 1: columnas,
   paquete = [paquete aux(:,col)'];
end;