grafic1.m

implementation of a formula

SUBPLOT('position',[.10 .3 .6 .6]);
set(h9,'Visible', 'off');
%set(h11,'String','1');
nsp=str2num(get(h11,'String'));
deltah=-5;
vg=25*10^6;
h=6.626*10^-34;
niu=230800*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');
%text(0.6,0.62,'a');
%text(0.15,0.24,'b');
%text(0.13,0.20,'c');
title('Largimea liniilor spectrale a laserilor semiconductori pentru deltah=-5');
xlabel('Inversul puterii optice');
ylabel('Largimea liniei spectrale ');