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

clear all
close all
clc
warning off

prog_parameters
constants
initial_data
parameters
grid_functions
normirovka
initial_approx

for j=1:length(U)
if j>1
initial_approx_U
end

err=10*Delta;
ct=0;
while err>Delta
ct=ct+1;
if j==1
Fn=ones(I,1);
Fp=ones(I,1);
else
A=zeros(I,I);
B=zeros(I,1);
A(1,1)=1;
B(1)=exp(-U(j));
A(I,I)=1;
B(I)=1;
for i=2:I-1
A(i,i)=-mun(i)*exp(fi0(i))/dx(i)-mun(i-1)*exp(fi0(i-1))/dx(i-1);
A(i,i+1)=mun(i)*exp(fi0(i))/dx(i);
A(i,i-1)=mun(i-1)*exp(fi0(i-1))/dx(i-1);
B(i)=0;
end
Fn=A^(-1)*B;

A=zeros(I,I);
B=zeros(I,1);
A(1,1)=1;
B(1)=exp(U(j));
A(I,I)=1;
B(I)=1;
for i=2:I-1
A(i,i)=-mup(i)*exp(-fi0(i))/dx(i)-mup(i-1)*exp(-fi0(i-1))/dx(i-1);
A(i,i+1)=mup(i)*exp(-fi0(i))/dx(i);
A(i,i-1)=mup(i-1)*exp(-fi0(i-1))/dx(i-1);
B(i)=0;
end
Fp=A^(-1)*B;
end

A=zeros(I,I);
B=zeros(I,1);
A(1,1)=1;
B(1)=-log(-N(1)/2+sqrt((N(1)/2)^2+1))+U(j);
A(I,I)=1;
B(I)=log(N(I)/2+sqrt((N(I)/2)^2+1));

for i=2:I-1
A(i,i)=2/(dx(i)+dx(i-1))*(-1/dx(i)-1/dx(i-1));
A(i,i+1)=2/(dx(i)+dx(i-1))/dx(i);
A(i,i-1)=2/(dx(i)+dx(i-1))/dx(i-1);
B(i)=Fn(i)*exp(fi0(i))-Fp(i)*exp(-fi0(i))-N(i);
end
fi=A^(-1)*B;

clc
ct
voltage=U(j)*ft
err=max(abs(fi-fi0))/max(abs(fi0))
pause(1e-3)
fi0=fi0+(fi-fi0)./K(j); %чтобы добиться сходимости нужно увеличивать (коэффициент приращения переменных)

n=Fn.*exp(fi0);
p=Fp.*exp(-fi0);

for i=1:I-1
E(i)=-(fi0(i+1)-fi0(i))/dx(i);
end
E(I)=E(I-1)+(E(I-1)-E(I-2));

ro=(p-n+N).*(N0*q);
end
for i=2:I
Jn(i)=mun(i-1)*exp(fi0(i-1))*(Fn(i)-Fn(i-1))/dx(i-1); %можно попробовать центральную разность и посмотреть на погрешность
Jp(i)=-mup(i-1)*exp(-fi0(i-1))*(Fp(i)-Fp(i-1))/dx(i-1);
end

%for i=2:I-1 чтобы показать большую погрешность когда решаем в основном базисе
%JnDR(i)=-(mun(i)*n(i)+mun(i-1)*n(i-1))/2*(fi0(i+1)-fi0(i-1))/(dx(i)+dx(i-1));
%JnDF(i)=(mun(i)+mun(i-1))/2*(n(i+1)-n(i-1))/(dx(i)+dx(i-1));
%JpDR(i)=-(mup(i)*p(i)+mup(i-1)*p(i-1))/2*(fi0(i+1)-fi0(i-1))/(dx(i)+dx(i-1));
%JpDF(i)=(mup(i)+mup(i-1))/2*(p(i+1)-p(i-1))/(dx(i)+dx(i-1));
%end
Jn(1)=Jn(2);
Jn(1)=Jn(2);
Jp(1)=Jp(2);
Jp(1)=Jp(2);
%JnDR(1)=JnDR(2);
%JnDF(1)=JnDF(2);
%JpDR(1)=JpDR(2);
%JpDF(1)=JpDF(2);
%JnDR(I)=JnDR(I-1);
%JnDF(I)=JnDF(I-1);
%JpDR(I)=JpDR(I-1);
%JpDF(I)=JpDF(I-1);

%Jn=JnDR+JnDF;
%Jp=JpDR+JpDF;
Js=Jn+Jp;

if VAH==1
Current(j)=Js(I); % для прямой ветви ВАХ
else
Current(j)=Js(fix(I/1.8)); %для обратной ветви ВАХ
end
graphics
end
figure
plot(U.*ft, Current.*(J0*1e-4), 'LineWidth',LW)
xlabel('Voltage, V', 'FontSize', FS)
ylabel('Current desity, A/cm^2', 'FontSize', FS)
grid on
%для обратной ветви возьмем середину х, для прямой конец х

if VAH==1
print(gcf,'-djpeg','IV-charact_F');
else
print(gcf,'-djpeg','IV-charact_R');
end