function [out, memoria, parametros] = leadLag(in, memoria, ...
                                             fs, primera, parametros)
%------------------------------------------------------------------------
%| function [out, memoria, parametros] = leadLag(in, memoria, ...
%|                                             fs, parametros)
%------------------------------------------------------------------------
%|   Funci髇 que simula la acci髇 de un fltro Lead Lag activo. Se ha
%|  implementado empleando la transformaci髇 bilineal.
%|
%|     Est