grafic1.asv

implementation of a formula

SUBPLOT('position',[.10 .3 .6 .6]);
set(h9,'Visible', 'off');
deltah=-5;
vg=25*10^6;
h=6.626*10^-34;
niu=230800*10^6;
%set(h10,'String','1');
nsp=1;
alfar=420;
alfa=1900;
P0=0.19;
%for nsp=1:1:5
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.60,'a');
text(0.15,0.24,'b');
text(0.13,0.20,'c');
%end
title('Largimea liniilor spectrale a laserilor semiconductori');
xlabel('Inversul puterii optice');
ylabel('Largimea liniei spectrale');