Курсовая работа: Разработка програмного обеспечения для расчёта дисперсионной характеристики планарного волновода
Chart1.AddSeries( TlineSeries.Create( Self ) );
chart1.Serieslist[n].SeriesColor:=chart1.getfreeseriescolor(false);
for k:=0 to 269 do
begin
f:=(arcsin(nn1/nn2)+k*(((pi/2)-0.001-arcsin(nn1/nn2))/300));
chart1.Series[n].AddXY(k,dwl(n,f,nn1,nn2,nn3),'',clteecolor);
end;
end;
Chart1.AddSeries( TlineSeries.Create( Self ) );
for k:=1 to 269 do
begin
chart1.Series[chart1.SeriesCount-1].AddXY(k,(dd/wll),'',clteecolor);
end;
for n:=0 to (stringgrid1.RowCount-2) do
begin
Chart2.AddSeries( TlineSeries.Create( Self ) );
chart2.Serieslist[n].SeriesColor:=chart2.getfreeseriescolor(false);
for k:=(-99) to 0 do
begin
chart2.Series[n].AddXY(k,e1(wll,dd,nn1,nn2,nn3,strtofloat(stringgrid1.Cells[1,n+1]),(k*dd/100)),'',clteecolor);
end;
for k:=0 to 99 do
begin
chart2.Series[n].AddXY(k,e2(wll,dd,nn1,nn2,nn3,strtofloat(stringgrid1.cells[1,n+1]),(k*dd/100)),'',clteecolor);
end;
for k:=100 to 199 do
begin
chart2.Series[n].AddXY(k,e3(wll,dd,nn1,nn2,nn3,strtofloat(stringgrid1.Cells[1,n+1]),(k*dd/100)),'',clteecolor);
end;