incercare1.asv

implementation of a formula

function createfigure(y1)
%CREATEFIGURE(Y1)
%  Y1:  vector of y data
 
%  Auto-generated by MATLAB on 29-May-2008 23:20:29
 
%% Create figure
figure1 = figure('FileName','E:\Matlab_instalat\work\Tema Co\incercare1.fig');
 
%% Create axes
axes1 = axes('Color',[1 0.949 0.8667],'Parent',figure1);
hold(axes1,'all');
 
%% Create plot
plot1 = plot(figure1,y1,'Color',[1 0 1]);
 


deltah=-5;
vg=25*10^6;
h=6.626*10^-34;
niu=193000*10^6;
nsp=1;
alfar=420;
alfa=1900;
P0=0.19;
P01=0.1:0.001:0.19
deltaniu1=(1+deltah^2)*vg^2*h*niu*nsp*alfar*(alfa+alfar)*P0/8*pi;
P02=0.19:0.2:1
%P0=[ 0.2 0.4 0.6 0.8 1];
%P0=[0.0625*10^3 0.0714*10^3 0.083*10^3 0.1*10^3 0.2*10^3 0.4*10^3 0.6*10^3 0.8*10^3 1*10^3];
deltaniu2=(1+deltah^2)*vg^2*h*niu*nsp*alfar*(alfa+alfar)*P02/8*pi;
P03=0.28:-0.001:0.19;
P04=0.1:0.001:0.19;
deltaniu3=(1+deltah^2)*vg^2*h*niu*nsp*alfar*(alfa+alfar)*P03/8*pi;
plot(P01,deltaniu1,'-m',P02,deltaniu2,'-m',P04,deltaniu3,'-m');
gtext('a');
gtext('b');
gtext('c');
title('Largimea liniilor spectrale ale laserilor semiconductori','b')
xlabel('Inversul puterii optice(1/mW)');
ylabel('Largimea liniei spectrale(MHz)');