(arctan (bb/dd) + arctan (cc/dd) + pi * m);
end;
function q (wl, tetta, n2, n1: real): real;
// функція, обчислює хвильове число q
begin
q: = (2 * pi * sqrt (sqr (n2 * sin (tetta))-n1 * n1))/wl;
end;
function h (wl, tetta, n2: real): real;
// функція, обчислює хвильове число h
begin
h: = (2 * pi * cos (tetta) * n2)/wl;
end;
function p (wl, tetta, n2, n3: real): real;
// функція, обчислює хвильове число p
begin
p: = (2 * pi * sqrt (sqr (n2 * sin (tetta))-n3 * n3))/wl;
end;
function e1 (wl1, d1, n11, n21, n31, tetta1, x1: real): real;
// функція, задає профіль Еу ТІ моди за умови х <= 0
begin
e1: = exp (q (wl1, tetta1, n21, n11) * x1);
end;
function e2 (wl2, d2, n12, n22, n32, tetta2, x2: real): real;
// функція, задає профіль Еу ТІ моди за умови 0 <х
begin
end;
function e3 (wl3, d3, n13, n23, n33, tetta3, x3: real): real;
// функція, задає профіль Еу ТІ моди за умови х> = d
begin
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 .
В В В В