laserregenerator.m

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

case 'STS-12/STM-4'  %622 Mbps
    switch (frecuencia55)
        case '1310'
            Nda55=0.5;
            Itha55= 0.01;
        case '1550'
            Nda55=0.25;
            Itha55= 0.01;
    end
    
case 'STS-48/STM-16'   %2.5 Gbps
    switch (frecuencia55)
        case '1310'
            Nda55=0.25;
            Itha55= 0.01;
        case '1550'
            Nda55=0.22;
            Itha55= 0.01;
    end
    
 case 'STS-192/STM-64'   %10 Gbps
     switch (frecuencia55)
        case '1310'
            Nda55=0.25;
            Itha55= 0.009;
        case '1550'
            %Datasheet LUCENT
            Nda55=0.2;
            Itha55= 0.015;
    end

 case 'STS-768/STM-256'   %40 Gbps
    switch (frecuencia55)
        case '1310'
            Nda55=0.25;
            Itha55= 0.009;
        case '1550'
            Nda55=0.2;
            Itha55= 0.015;
    end
    
end
set_param(BloqueLaser55,'Nda',num2str(Nda55));
set_param(BloqueLaser55,'Itha',num2str(Itha55));
end


if isempty(find_system(gcs,'Name','Regenerator6'))~=1
   BloqueLaser66=([gcs,'/','Regenerator6']);
   tiposenal66=get_param(BloqueLaser66,'sel');
   frecuencia66=get_param(BloqueLaser66,'frec');         

switch (tiposenal66)
    
case 'STS-12/STM-4'  %622 Mbps
    switch (frecuencia66)
        case '1310'
            Nda66=0.5;
            Itha66= 0.01;
        case '1550'
            Nda66=0.25;
            Itha66= 0.01;
    end
    
case 'STS-48/STM-16'   %2.5 Gbps
    switch (frecuencia66)
        case '1310'
            Nda66=0.25;
            Itha66= 0.01;
        case '1550'
            Nda66=0.22;
            Itha66= 0.01;
    end
    
 case 'STS-192/STM-64'   %10 Gbps
     switch (frecuencia66)
        case '1310'
            Nda66=0.25;
            Itha66= 0.009;
        case '1550'
            %Datasheet LUCENT
            Nda66=0.2;
            Itha66= 0.015;
    end

 case 'STS-768/STM-256'   %40 Gbps
    switch (frecuencia66)
        case '1310'
            Nda66=0.25;
            Itha66= 0.009;
        case '1550'
            Nda66=0.2;
            Itha66= 0.015;
    end
    
end
set_param(BloqueLaser66,'Nda',num2str(Nda66));
set_param(BloqueLaser66,'Itha',num2str(Itha66));
end


if isempty(find_system(gcs,'Name','Regenerator7'))~=1
   BloqueLaser77=([gcs,'/','Regenerator7']);
   tiposenal77=get_param(BloqueLaser77,'sel');
   frecuencia77=get_param(BloqueLaser77,'frec');         

switch (tiposenal77)
    
case 'STS-12/STM-4'  %622 Mbps
    switch (frecuencia77)
        case '1310'
            Nda77=0.5;
            Itha77= 0.01;
        case '1550'
            Nda77=0.25;
            Itha77= 0.01;
    end
    
case 'STS-48/STM-16'   %2.5 Gbps
    switch (frecuencia77)
        case '1310'
            Nda77=0.25;
            Itha77= 0.01;
        case '1550'
            Nda77=0.22;
            Itha77= 0.01;
    end
    
 case 'STS-192/STM-64'   %10 Gbps
     switch (frecuencia77)
        case '1310'
            Nda77=0.25;
            Itha77= 0.009;
        case '1550'
            %Datasheet LUCENT
            Nda77=0.2;
            Itha77= 0.015;
    end

 case 'STS-768/STM-256'   %40 Gbps
    switch (frecuencia77)
        case '1310'
            Nda77=0.25;
            Itha77= 0.009;
        case '1550'
            Nda77=0.2;
            Itha77= 0.015;
    end
    
end
set_param(BloqueLaser77,'Nda',num2str(Nda77));
set_param(BloqueLaser77,'Itha',num2str(Itha77));
end


if isempty(find_system(gcs,'Name','Regenerator8'))~=1
   BloqueLaser88=([gcs,'/','Regenerator8']);
   tiposenal88=get_param(BloqueLaser88,'sel');
   frecuencia88=get_param(BloqueLaser88,'frec');         

switch (tiposenal88)
    
case 'STS-12/STM-4'  %622 Mbps
    switch (frecuencia88)
        case '1310'
            Nda88=0.5;
            Itha88= 0.01;
        case '1550'
            Nda88=0.25;
            Itha88= 0.01;
    end
    
case 'STS-48/STM-16'   %2.5 Gbps
    switch (frecuencia88)
        case '1310'
            Nda88=0.25;
            Itha88= 0.01;
        case '1550'
            Nda88=0.22;
            Itha88= 0.01;
    end
    
 case 'STS-192/STM-64'   %10 Gbps
     switch (frecuencia88)
        case '1310'
            Nda88=0.25;
            Itha88= 0.009;
        case '1550'
            %Datasheet LUCENT
            Nda88=0.2;
            Itha88= 0.015;
    end

 case 'STS-768/STM-256'   %40 Gbps
    switch (frecuencia88)
        case '1310'
            Nda88=0.25;
            Ith88= 0.009;
        case '1550'
            Nda88=0.2;
            Ith88= 0.015;
    end
    
end
set_param(BloqueLaser88,'Nda',num2str(Nda88));
set_param(BloqueLaser88,'Itha',num2str(Itha88));
end


if isempty(find_system(gcs,'Name','Regenerator9'))~=1
   BloqueLaser99=([gcs,'/','Regenerator9']);
   tiposenal99=get_param(BloqueLaser99,'sel');
   frecuencia99=get_param(BloqueLaser99,'frec');         

switch (tiposenal99)
    
case 'STS-12/STM-4'  %622 Mbps
    switch (frecuencia99)
        case '1310'
            Nda99=0.5;
            Itha99= 0.01;
        case '1550'
            Nda99=0.25;
            Itha99= 0.01;
    end
    
case 'STS-48/STM-16'   %2.5 Gbps
    switch (frecuencia99)
        case '1310'
            Nda99=0.25;
            Itha99= 0.01;
        case '1550'
            Nda99=0.22;
            Itha99= 0.01;
    end
    
 case 'STS-192/STM-64'   %10 Gbps
     switch (frecuencia99)
        case '1310'
            Nda99=0.25;
            Itha99= 0.009;
        case '1550'
            %Datasheet LUCENT
            Nda99=0.2;
            Itha99= 0.015;
    end

 case 'STS-768/STM-256'   %40 Gbps
    switch (frecuencia99)
        case '1310'
            Nda99=0.25;
            Itha99= 0.009;
        case '1550'
            Nda99=0.2;
            Itha99= 0.015;
    end
    
end
set_param(BloqueLaser99,'Nda',num2str(Nda99));
set_param(BloqueLaser99,'Itha',num2str(Itha99));
end


if isempty(find_system(gcs,'Name','Regenerator10'))~=1
   BloqueLaser100=([gcs,'/','Regenerator10']);
   tiposenal100=get_param(BloqueLaser100,'sel');
   frecuencia100=get_param(BloqueLaser100,'frec');         

switch (tiposenal100)
    
case 'STS-12/STM-4'  %622 Mbps
    switch (frecuencia100)
        case '1310'
            Nda100=0.5;
            Itha100= 0.01;
        case '1550'
            Nda100=0.25;
            Itha100= 0.01;
    end
    
case 'STS-48/STM-16'   %2.5 Gbps
    switch (frecuencia100)
        case '1310'
            Nda100=0.25;
            Itha100= 0.01;
        case '1550'
            Nda100=0.22;
            Itha100= 0.01;
    end
    
 case 'STS-192/STM-64'   %10 Gbps
     switch (frecuencia100)
        case '1310'
            Nda100=0.25;
            Itha100= 0.009;
        case '1550'
            %Datasheet LUCENT
            Nda100=0.2;
            Itha100= 0.015;
    end

 case 'STS-768/STM-256'   %40 Gbps
    switch (frecuencia100)
        case '1310'
            Nda100=0.25;
            Itha100= 0.009;
        case '1550'
            Nda100=0.2;
            Itha100= 0.015;
    end
    
end
set_param(BloqueLaser100,'Nda',num2str(Nda100));
set_param(BloqueLaser100,'Itha',num2str(Itha100));
end

luz=u;
end