Курсовая работа: Разработка програмного обеспечения для расчёта дисперсионной характеристики планарного волновода
e2:=(q(wl2,tetta2,n22,n12)/h(wl2,tetta2,n22))*(sin(x2*h(wl2,tetta2,n22))+(h(wl2,tetta2,n22)/q(wl2,tetta2,n22,n12))*cos(h(wl2,tetta2,n22)*x2));
end;
function e3(wl3,d3,n13,n23,n33,tetta3,x3:real):real;
//функция, задающая профиль Еу ТЕ моды при условии х>=d
begin
e3:=(q(wl3,tetta3,n23,n13)/h(wl3,tetta3,n23))*(sin(d3*h(wl3,tetta3,n23))+(h(wl3,tetta3,n23)/q(wl3,tetta3,n23,n13))*cos(h(wl3,tetta3,n23)*d3))*exp(-p(wl3,tetta3,n23,n33)*(x3-d3));
end;
procedure dix(x1,x2,xm,y1,y2,ym:real; var xx1,xx2,xxm:real);
//процедура, осуществляющая 1 итерацию метода дихотомии
begin
if (y1*ym)<0 then
begin
xx1:=x1;
xx2:=xm;
xxm:=(x1+xm)/2;
end;
if (ym*y2)<0 then
begin
xx1:=xm;
xx2:=x2;
xxm:=(xm+x2)/2;
end;
end;
end.
Приложение c .
|
|
|
|
|
|
|
К-во Просмотров: 534
Бесплатно скачать Курсовая работа: Разработка програмного обеспечения для расчёта дисперсионной характеристики планарного волновода
|
