Курс лекций по основам алгоритмизации и программирования задач машиностроения. Кравченко Д.В. - 52 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

50
Write (’Система не имеет решения или имеет ’);
Writeln (’ бесчисленное множество решений.’);
End;
If D<>0 Then Begin
Writeln (’Система имеет единственное решение.’);
a11z:=(-1*(a[2,1]/a[1,1]))*a[1,1];
a12z:=(-1*(a[2,1]/a[1,1]))*a[1,2];
b1z:=(-1*(a[2,1]/a[1,1]))*b[1];
a22z:=a12z+a[2,2];
b2z:=b1z+b[2];
x2:=b2z/a22z;
x1:=(b[1]-a[1,2]*x2)/a[1,1];
xm:=x1; ym:=x2;
Write (’Координаты точки М: ’);
Writeln (’xм =’, xm:5:3,’,ум =’,ym:5:3,’.’);
Write (’Погрешность расчета: ’);
E1:=Abs((a[1,1]*xm+b[1])-ym);
E2:=Abs((a[2,1]*xm+b[2])-ym);
Writeln(’E1= ’, E1:6:5, ’ ,E2= ’,E2:6:5,’.’);
End Else Begin
Writeln(’Требуется коррекция значений коэффициентов.’);
Goto 1; End;
Readkey;
End.
3.4. Метод Зейделя в нахождении технологических параметров
системы уравнений с линейными характеристиками
Пусть нам дана система линейных уравнений:
=⋅++⋅+⋅
=⋅++⋅+⋅
=⋅++⋅+⋅
nnij22i11i
2nj2222121
1nj1212111
bxa...xaxa
.................................
bxa...xaxa
bxa...xaxa
KKKK
.
Необходимо эту систему линейных уравнений разрешить относительно
неизвестных х
1
, …, х
n
, т. е. привести ее к виду:

Страницы