Решение системы линейных уравнений
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
A[l,m]:=A[l,i];
A[l,i]:=tmp;
end;
tmp:=b[m];
b[m]:=b[i];
b[i]:=tmp;
end;
end;
E:=0.0001;
W:=0.2;
l:=0;
while W<=1.8 do
begin
decision;
inc(l);
am[l]:=number_of_iteration;
W_all[l]:=W;
series1.addxy(W,number_of_iteration,,clteecolor);
W:=W+0.01;
end;
min:=am[1];
for i:=1 to 200 do
if (am[i]0) then
begin
min:=am[i];
W:=W_all[i];
end;
decision;
if (number_of_iteration>100) or (delta>E) then
begin
label2.Caption:=Программа не может решить данную СЛАУ.;
label3.Visible:=false;
end
else
begin
Chart1.BottomAxis.Automatic:=false;
Chart1.BottomAxis.minimum:=0.2;
Chart1.BottomAxis.maximum:=1.8;
Chart1.BottomAxis.increment:=0.1;
Chart1.LeftAxis.Automatic:=false;
Chart1.LeftAxis.minimum:=0;
Chart1.LeftAxis.maximum:=100;
Chart1.LeftAxis.increment:=5;
label6.visible:=false;
label7.visible:=true;
label8.visible:=true;
label1.visible:=true;
StringGrid3.visible:=true;
stringgrid3.cells[0,0]:=*1;
for i:=1 to 6 do
StringGrid3.cells[0,i]:=floattostr(X[i]);
end;
end;
procedure TFormk1.N1Click(Sender: TObject);
begin
close;
end;
procedure TFormk1.N3Click(Sender: TObject);
begin
chart1.visible:=true;
end;
procedure TFormk1.N4Click(Sender: TObject);
begin
chart1.Visible:=false;
end;
end.
Результаты, рис. 3 и 4:
Рис. 3
Рис. 4