clear all;
close all;
% create a COM server running OptiSystem
optsys = actxserver('optisystem.application');
% This pause is necessary to allow OptiSystem to be opened before
% call open the project
pause(15);
% Open the OptiSystem file defined by the path
optsys.Open(['C:\Test\Matlab Call OptiSystem.osd']);
% Specify and define the parameters that will be varied
ParameterName1 = 'Power';
SignalPower = -20:5:-10; %dBm
ParameterName2 = 'Length';
FiberLength = 5:5:15; %meters
% Specify the results that will be transfered from OptiSystem
ResultName1 = 'Max. Gain (dB)';
ResultName2 = 'Min. Noise Figure (dB)';
ResultName3 = 'Output : Max. OSNR (dB)';
Document = optsys.GetActiveDocument;
LayoutMngr = Document.GetLayoutMgr;
CurrentLyt = LayoutMngr.GetCurrentLayout;
Canvas = CurrentLyt.GetCurrentCanvas;
% Specify the components that will have the parameters (results) transfered
Component1 = Canvas.GetComponentByName('CW Laser');
Component2 = Canvas.GetComponentByName('EDFA');
Visualizer1 = Canvas.GetComponentByName('Dual Port WDM Analyzer');
% vary the parameters, run OptiSystem project and get the results
for i = 1:length(SignalPower)
for k = 1:length(FiberLength)
%Set component parameters
Component1.SetParameterValue( ParameterName1, SignalPower(i) );
Component2.SetParameterValue( ParameterName2, FiberLength(k) );
%Calculate
Document.CalculateProject( true , true);
%Acces visualizer results
Result1 = Visualizer1.GetResult( ResultName1 );
Result2 = Visualizer1.GetResult( ResultName2 );
Result3 = Visualizer1.GetResult( ResultName3 );
Gain( (i-1)*length(FiberLength) + k ) = Result1.GetValue( 1 );
NF( (i-1)*length(FiberLength) + k ) = Result2.GetValue( 1 );
OSNR( (i-1)*length(FiberLength) + k ) = Result3.GetValue( 1 );
end
end
%plot graphs
figure
subplot(3,1,1); plot(FiberLength,Gain(1:length(FiberLength)),FiberLength,Gain(length(FiberLength)+1:2*length(FiberLength)),FiberLength,Gain(2*length(FiberLength)+1:3*length(FiberLength)) )
title('Signal Gain')
xlabel('Fiber length [m]')
ylabel('Gain [dB]')
subplot(3,1,2); plot(FiberLength,NF(1:length(FiberLength)),FiberLength,NF(length(FiberLength)+1:2*length(FiberLength)),FiberLength,NF(2*length(FiberLength)+1:3*length(FiberLength)) )
title('Noise Figure')
xlabel('Fiber length [m]')
ylabel('NF [dB]')
subplot(3,1,3); plot(FiberLength,OSNR(1:length(FiberLength)),FiberLength,OSNR(length(FiberLength)+1:2*length(FiberLength)),FiberLength,OSNR(2*length(FiberLength)+1:3*length(FiberLength)) )
title('OSNR')
xlabel('Fiber length [m]')
ylabel('OSNR [dB]')
% close OptiSystem
optsys.Quit;
阿里matlab建模师
- 粉丝: 3625
- 资源: 2807
最新资源
- Untitled7.ipynb
- C#ASP.NET酒店管理系统源码 宾馆管理系统源码数据库 SQL2008源码类型 WebForm
- 【安卓毕业设计】基于安卓的奶牛管理源码(完整前后端+mysql+说明文档).zip
- 【安卓毕业设计】Android app作业源码(完整前后端+mysql+说明文档).zip
- Scrapy基础(讲解详细、包括框架流程代码实战,最佳学习资料).zip
- FPGA实现IIC通信quartus工程,纯verliog,可进行移植
- C#ASP.NET外贸订单管理系统源码 汽配订单管理系统源码数据库 SQL2008源码类型 WebForm
- 基于双流Faster R-CNN网络的图像篡改检测项目源码+训练好的模型+文档说明.zip
- 买的USB转485串口的驱动程序,使用的是美国TI芯片+WCH340芯片
- 二次平台培训视频,人事管理
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈