codificacion_linea.asv

Matlab实现SONET/SDH光通信系统simulink仿真程序源代码

function [salida]=Codificacion_Linea(entrada)
%
%================================================
%  Codificacion_Linea = Esta funcion permite escoger el valor de la Senalizacion de Binaria de Linea 
%                       Entre los posibles tipos a escoger se tiene:
%                                                            
% .....	Polar NRZ 
%        Convierte la secuencia binaria a una secuencia polar usando la
%        siguiente transformacion:
%			                                 1 ---->  1
%			                                 0 ----> -1
%.....	Unipolar NRZ (Valor por Defecto)
%        Convierte la secuencia binaria a una secuencia unipolar usando la
%        siguiente transformacion:
%			                                 1 ---->  1
%			                                 0 ---->  0
%
%================================================
%
%	AUTORES : Z. AGUI%O & D. STECKLER
%                       Universidad de Carabobo
%                       Valencia edo. Carabobo, VENEZUELA
%
%	FECHA     : Diciembre 2003
%	VERSION : 1.0
%
%================================================
%	Realizado bajo MATLAB 6.5 Release 13/ Diciemdre 2003 (DZ)
%================================================
%
[a b]=size(entrada);
sal=zeros(a,b);
%
%================================================
%
%Selecciona el calculo para cada tipo de codificacion
%
blk=([gcs,'/','Codificador']);
tipo=get_param(blk,'codif');
%
%
switch (tipo)
    case '1'
        sal = entrada(:,:);
    case '0'
        sal = 2*entrada - ones(a,b);
end

salida = sal(:,:);

end