lasertdm.asv

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

function lasertdm(action, varargin)

% Cache Bloque actual
curBlk=([gcs,'/','Laser']);

% Cache Bloque actual "mask enables" y 
cachedEnables   = get_param(curBlk,'MaskEnables');
newEnables      = cachedEnables;
cachedVisibilities= get_param(curBlk,'MaskVisibilities');
newVisibilities  = cachedVisibilities;

p                 = get_param(curBlk,'sel');
pa                = get_param(curBlk,'vel');
pap              = get_param(curBlk,'velo');
padA           = get_param(curBlk,'veloc');
padAl          = get_param(curBlk,'veloci');
padAlo         = get_param(curBlk,'frec');
padAlon       = get_param(curBlk,'mater');
padAlong     = get_param(curBlk,'maters');

% Parametros siempre "enable"
newEnables{1} = 'on'; % Tipo de Senal SONET/SDH
newVisibilities{1} = 'on';
newEnables{6} = 'on'; % Frecuencia
newVisibilities{6} = 'on';

% Disable all other parameters by default.
% Turn on individual parameters as needed.
newEnables{2} = 'off';% Velocidad de 622 Mbps
newVisibilities{2} = 'off';
newEnables{3} = 'off';% Velocidad de 2.5 Gbps
newVisibilities{3} = 'off';
newEnables{4} = 'off';% Velocidad de 10 Gbps
newVisibilities{4} = 'off';
newEnables{5} = 'off';% Velocidad de 40 Gbps
newVisibilities{5} = 'off';
newEnables{7} = 'off';% Material 1550 nm
newVisibilities{7} = 'off';
newEnables{8} = 'off';% Material 1310 nm
newVisibilities{8} = 'off';

%%%%%%%%%%%%%%%%
switch (p)
    case 'STS-12/STM-4'
    newEnables{2} = 'on';
    newVisibilities{2} = 'on';
    newVisibilities{3} = 'off';
    newVisibilities{4} = 'off';
    newVisibilities{5} = 'off';
    
    case 'STS-48/STM-16'
    newEnables{3} = 'on';
    newVisibilities{2} = 'off';
    newVisibilities{3} = 'on';
    newVisibilities{4} = 'off';
    newVisibilities{5} = 'off';
        
    case 'STS-192/STM-64'
    newEnables{4} = 'on';
    newVisibilities{2} = 'off';
    newVisibilities{3} = 'off';
    newVisibilities{4} = 'on';
    newVisibilities{5} = 'off';
        
    case 'STS-768/STM-256'
    newEnables{5} = 'on';
    newVisibilities{2} = 'off';
    newVisibilities{3} = 'off';
    newVisibilities{4} = 'off';
    newVisibilities{5} = 'on';
        
end

%%%%%%%%%%%%
if ( ~strcmp(padAlo, '1310') );
    newEnables{8} = 'on';
    newVisibilities{8} = 'on';
    newVisibilities{7} = 'off';
else ( ~strcmp(padAlo, '1550') );
    newEnables{7} = 'on';
    newVisibilities{7} = 'on';
    newVisibilities{8} = 'off';
end
    
    
% Only update the block mask enables if they have changed
if (~(isequal(cachedEnables, newEnables))| ...
        ( ~isequal(cachedVisibilities, newVisibilities)))
    set_param(curBlk, 'MaskEnables', newEnables,'MaskVisibilities',newVisibilities);
end

% [EOF] lasertdm.m
end