Курсовая работа: Разработка програмного обеспечения для расчёта дисперсионной характеристики планарного волновода

chart2.RemoveAllSeries;

stringgrid1.rowcount:=(2);

stringgrid1.Height:=(52);

stringgrid1.Cells[0,1]:=(' ');

stringgrid1.Cells[1,1]:=(' ');

end

else

begin

if i=false then

begin

n:=0;

while dwl(n,(arcsin(nn1/nn2)+0.00005),nn1,nn2,nn3)<(dd/wll) do

begin

a:=(arcsin(nn1/nn2)+0.001);

b:=(pi/2-0.001);

c:=(a+b)/2;

while (abs(dwl(n,a,nn1,nn2,nn3)-dwl(n,b,nn1,nn2,nn3))>0.001) or (abs(a-b)>0.001) do

begin

dix(a,b,c,(dwl(n,a,nn1,nn2,nn3)-(dd/wll)),(dwl(n,b,nn1,nn2,nn3)-(dd/wll)),(dwl(n,c,nn1,nn2,nn3)-(dd/wll)),a,b,c);

end;

stringgrid1.Cells[0,n+1]:=floattostr(n);

stringgrid1.Cells[1,n+1]:=floattostr(a);

stringgrid1.RowCount:=(stringgrid1.RowCount+1);

if n<14 then stringgrid1.Height:=(stringgrid1.Height+26);

n:=n+1;

end;

stringgrid1.RowCount:=(stringgrid1.RowCount-1);

stringgrid1.Height:=(stringgrid1.Height-26);

for n:=0 to (stringgrid1.RowCount-2) do