?????????????? ?????? ? ????????? ?????????? ??????? ?????

Промежуточные данные: в программе схема рассчитывается методом контурных
токов, матрица контурных сопротивлений обозначена z, вектор контурных
напряжений ek, вектор контурных токов ik. Итерационные приближения тока в
диоде обозначены id и id0. Условия сходимости для тока в диоде считаются
выполненными, если оба этих приближения находятся в одном квадранте (т.е.
одного знака).
Соответствие обозначений, принятых в программе с обозначениями в формулах следующее:
Cn-1 =C_1, Cn=C_0, C j n+1=Cj, C j-1 n+1 =Cj_1,
Un-1=U_1, Un=U_0, Un+1=uc.
Выходные данные: ucg(m) – массив значений напряжения на емкости; ig(m) – массив
значений тока в диоде.
clear; // очистка памяти
R1=12.;R2=68.; // ввод линейных сопротивлений
dt=0.0001;T=0.1;t=[0:dt:T]; //ввод диапазона времени
M=round(T/dt); //определение числа расчетных точек по времени
eps=0.02; //задание точности
N=1500; //максимальное число итераций
a0=-1; a1=1; //коэффициенты для формулы 1-го порядка
m_gir=2; //число точек до выхода на метод Гира
//ввод табличной зависимости статической емкости
xc=[-3 0 3 6 10 15 25 ];
yc=[ 0.7e-3 0.6e-3 0.51e-3 0.46e-3 0.41e-3 0.385e-3 0.37e-3];
dc=splin(xc,yc); // построение сплайна для статической емкости
xx=[-3:3:27]; yy=interp(xx,xc,yc,dc); //отображение сплайна в массив yy
xset('window',1); //задается 1-е окно для графика нелинейной емкости
plot2d(xx,yy,2,rect=[-3 0 25 0.7e-3]);xgrid(1)
id0=0; uc_0=0; //начальное значение тока диода и напряжения емкости
C_0=interp(uc_0,xc,yc,dc); //начальная емкость
ec=-uc_0 //эдс разностно-итерационной схемы емкости
for m=1:M // внешний цикл по времени
E(m)=21*cos(2*%pi*50*t(m)); //источник питания схемы
if id0>=0. then Rd=0.001; else Rd=1000; end; / /начальное сопротивление диода
Cj_1=C_0; //начальное итерационное приближение емкости
if m>m_gir then //условие перехода на метод Гира
a0=-1.5; a1=2; a2=-0.5; //коэффициенты α в методе Гира
end;
for n=1:N, //внутренний итерационный цикл
ek1=E(m)+ec; ek2=E(m); ek=[ek1;ek2];
z=[R1+Rd+dt/(a0*Cj_1) R1+Rd; // Расчет схемы
R1+Rd R1+R2+Rd ];
ik=z^(-1)*ek; id=ik(1)+ik(2); // новый ток диода
if m> m_ gir then //переход на метод Гира
ec=(a1*uc_0*C_0/Cj_1+a2*uc_1*C_1/Cj_1)/a0;
else ec=a1*uc_0*C_0/Cj_1; end; // метод 1-го порядка
uc=-dt/(a0*Cj_1)*ik(1)-ec; //расчет напряжения на емкости
Cj=interp(uc,xc,yc,dc); //расчет емкости
//проверка точности итераций для емкости и диода
48