файлы матлаб / graphics

if VAH==1
NN='Point_IV_F';
else
NN='Point_IV_R';
end

subplot(2,3,1)
plot(x.*(L0*1e9),-fi0.*V0+Eg/2,x.*(L0*1e9),-fi0.*V0-Eg/2,x.*(L0*1e9),-fi0.*V0,'--','LineWidth',LW)
xlabel('Coordinate, nm','FontSize', FS)
ylabel('Band diagram, eV','FontSize', FS)
xlim([min(x.*(L0*1e9)) max(x.*(L0*1e9))])
grid on

subplot(2,3,2)
plot(x.*(L0*1e9),n.*(N0*1e-6),x.*(L0*1e9),p.*(N0*1e-6),'LineWidth',LW)
xlabel('Coordinate, nm','FontSize', FS)
ylabel('Carrier density, cm^-^3','FontSize', FS)
xlim([min(x.*(L0*1e9)) max(x.*(L0*1e9))])
legend('n','p','Location','best')
grid on

subplot(2,3,3)
semilogy(x.*(L0*1e9),n.*(N0*1e-6),x.*(L0*1e9),p.*(N0*1e-6),'LineWidth',LW)
xlabel('Coordinate, nm','FontSize', FS)
ylabel('Carrier density, cm^-^3','FontSize', FS)
xlim([min(x.*(L0*1e9)) max(x.*(L0*1e9))])
legend('n','p','Location','best')
grid on

subplot(2,3,4)
plot(x.*(L0*1e9),E.*(E0*1e-2),'LineWidth',LW)
xlabel('Coordinate, nm','FontSize', FS)
ylabel('Electric field, V/cm','FontSize', FS)
xlim([min(x.*(L0*1e9)) max(x.*(L0*1e9))])
grid on

subplot(2,3,5)
plot(x.*(L0*1e9),ro,'LineWidth',LW)
xlabel('Coordinate, nm','FontSize', FS)
ylabel('Charge density, uC/cm','FontSize', FS)
xlim([min(x.*(L0*1e9)) max(x.*(L0*1e9))])
grid on

subplot(2,3,6)
plot(x.*(L0*1e9),Jn.*(J0*1e-4),x.*(L0*1e9),Jp.*(J0*1e-4), x.*(L0*1e9),Js.*(J0*1e-4),'LineWidth',LW)
xlabel('Coordinate, nm','FontSize', FS)
ylabel('Current density, A/cm^2','FontSize', FS)
xlim([min(x.*(L0*1e9)) max(x.*(L0*1e9))])
legend('J_N','J_P','J_S', 'Location','best')
grid on

%subplot(2,3,6)
%plot(x.*(L0*1e9),JnDR.*(J0*1e-4),x.*(L0*1e9),JnDF.*(J0*1e-4),x.*(L0*1e9),JpDR.*(J0*1e-4), x.*(L0*1e9),JpDF.*(J0*1e-4),'LineWidth',LW)
%xlabel('Coordinate, nm','FontSize', FS)
%ylabel('Current density, A/cm^2','FontSize', FS)
%xlim([min(x.*(L0*1e9)) max(x.*(L0*1e9))])
%legend('J_n_D_R','J_n_D_F','J_p_D_R','J_p_D_F', 'Location','best')
%grid on

set(gcf,'Position',[18.6000 78.6000 1.4712e+03 679.2000])
NNN=[NN num2str(j)];
print(gcf,'-djpeg',NNN)