2-amaliy mashg’ulot. Chiziqli algebraik tenglamalar sistemasini yechishning aniq usullari. Gauss iteratsiya usuli

^2-amaliy mashg’ulot.
Chiziqli algebraik tenglamalar sistemasini yechishning aniq usullari.


Gauss iteratsiya usuli.
1-misol. Quyidagi tenglamalar sistemasini Gauss usulida yechamiz.









(15)

Excel dasturida tenglamalar sistemasini Gauss usulida ishlash:

Matcad dasturida natijani solitirb ko’ramiz:

Gauss Metodi

#include
#include
using namespace std;
main()
{
double p=0;
for(int i=0; i<4;++i){
for(int j=0;j<5;++j)
{
a[i][j]=b[i][j];
}
}
for(int i=0;i<=3; ++i)
{
if(a[k][i]==0){
for(int k=i+l;k=<3;++k){
if(a[k][i]!=0){
for(int j=0;j<=4;++j){
p=a[i][j];
a[i][j]=a[k][j];
a[k][j]=p;
}
}
}
}
for(int j=4;j>=i;--j){
a[i][j]=a[i][j]/a[i][i];
}
for(int k=i+l;k<=3;++k){
for(int j=4;j>=i;--j){
a[k][j]=a[k][j]-a[i][j]*a[k][i] ;
}
}
}
for(int i=3; i>=0;--i ){
X[i]=a[i][4];
for(int j=3;j>=i+l;--j){
X[i]=X[i]-X[j]*a[i][j];
}
}
Memo->Clear();
Memo-> Lines->Add("Gaus usuli") ;
Memo-> Lines->Add("Korni sistemasi") ;
for(int i=0;i<=3;i++){
Memo-> Lines->Add("X("+IntToStr(i)+")="+
FloatToStrF(X[i],ffFixed,12,12)) ;
}
Memo-> Lines->Add("Matrissani o'zgartirish") ;
for(int i=0;i<=3;i++){
/*for(usingned j=i;j<=5;j++){
Memo-> Lines->Add(a[i][j]) ;
}*/
Memo-> Lines->Add(FloatToStrF(a[i][0],ffFixed,12,4)+"
"+FloatToStrF(a[i][1],ffFixed,12,4)+" "+
FloatToStrF(a[i][2],ffFixed,12,4)+"
"+FloatToStrF(a[i][3],ffFixed,12,4)+"
"+FloatToStrF(a[i][4],ffFixed,12,4));
}
}