Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 20.04.2015
Сообщений: 3
1

Найти решение СЛАУ

10.06.2015, 01:42. Просмотров 500. Ответов 1
Метки нет (Все метки)

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
#include <iostream>
#include <math.h>0
using namespace std;
double minor_ij(int,int); // minor – алгебрарическое дополнение
double a[4][4],m[3][3];
void main(void)
{
int i=0,j=0;
double b[4];
for(;i!=4;i++)
cout<<”a[<<i+1<<”,1]*x1+a[<<i+1<<”,2]*x2+a[<<i+1<<”,3]*x3+a[<<i+1<<”,4]*x4=b”<<i+1<<”\n”;
cout<<”\n”;
for(i=0;i!=4;i++)
for(j=0;j!=4;j++)
{
cout<<”a[<<i+1<<][<<j+1<<]=;
cin>>a[i][j];
}
for(i=0;i!=4;i++)
{
cout<<”b[<<i+1<<]=;
cin>>b[i];
}
double minor[4][4];
for(i=0;i!=4;i++)
for(j=0;j!=4;j++)
minor[i][j]=minor_ij(i,j);
double det=0;
for(i=0;i!=4;i++)
det+=a[0][i]*minor[0][i];
if (det!=0)
{
for(i=0;i!=4;i++)
for(j=0;j!=4;j++)
a[i][j]=minor[j][i]/det;
double x[4],p;
for(i=0;i!=4;i++)
{
p=0;
for(j=0;j!=4;j++)
p+=b[j]*a[i][j];
x[i]=p;
}
for(j=0;j!=4;j++)
cout<<”x”<<j<<=<<x[j]<<”\n”;
}
else cout<<”The system has no solutions ”;
}
double minor_ij(int q=0,int w=0)
{
double t;
int s=q+w+2,k,l;
for(k=0;k!=4;k++)
{
if (k<q) for(l=0;l!=3;l++)
if (l>=w) m[k][l]=a[k][l+1];
else m[k][l]=a[k][l];
else if (k>q) for(l=0;l!=3;l++)
if (l>=w) m[k-1][l]=a[k][l+1];
else m[k-1][l]=a[k][l];
}
t=m[0][0]*m[1][1]*m[2][2]+m[0][1]*m[1][2]*m[2][0]+m[1][0]*m[2][1]*m[0][2];
t=t-m[2][0]*m[1][1]*m[0][2]-m[1][2]*m[2][1]*m[0][0]-m[0][1]*m[1][0]*m[2][2];
if (s%2!=0) t*=-1;
return t;}
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.06.2015, 01:42
Ответы с готовыми решениями:

Найти общее решение СЛАУ
Ребят,ни у кого нет исходников на эту задачу?Я только удалил n-r уравнений.Если есть,буду очень...

Найти решение СЛАУ методом Гаусса (без перестановки строк)
Итак, требуется найти решение СЛАУ методом Гаусса (без перестановки строк). Проще говоря, есть...

Не могу найти ошибку в функции. Решение СЛАУ методом ортогонализации
Дана СЛАУ, а точнее, матрица A и вектор f. Надо найти решения СЛАУ методом ортогонализации. Вот,...

Решение СЛАУ
Доброго времени суток . Пишу программу , которая должна решать системы линейных уравнений методом...

1
Заблокирован
10.06.2015, 04:12 2
пункт 1
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
#include <iostream>
#include <math.h>0
using namespace std;
double minor_ij(int,int); // minor – алгебрарическое дополнение
double a[4][4],m[3][3];
void main(void)
{
int i=0,j=0;
double b[4];
for(;i!=4;i++)
cout<<”a[<<i+1<<”,1]*x1+a[<<i+1<<”,2]*x2+a[<<i+1<<”,3]*x3+a[<<i+1<<”,4]*x4=b”<<i+1<<”\n”;
cout<<”\n”;
for(i=0;i!=4;i++)
for(j=0;j!=4;j++)
{
cout<<”a[<<i+1<<][<<j+1<<]=;
cin>>a[i][j];
}
for(i=0;i!=4;i++)
{
cout<<”b[<<i+1<<]=;
cin>>b[i];
}
double minor[4][4];
for(i=0;i!=4;i++)
for(j=0;j!=4;j++)
minor[i][j]=minor_ij(i,j);
double det=0;
for(i=0;i!=4;i++)
det+=a[0][i]*minor[0][i];
if (det!=0)
{
for(i=0;i!=4;i++)
for(j=0;j!=4;j++)
a[i][j]=minor[j][i]/det;
double x[4],p;
for(i=0;i!=4;i++)
{
p=0;
for(j=0;j!=4;j++)
p+=b[j]*a[i][j];
x[i]=p;
}
for(j=0;j!=4;j++)
cout<<”x”<<j<<=<<x[j]<<”\n”;
}
else cout<<”The system has no solutions ”;
}
double minor_ij(int q=0,int w=0)
{
double t;
int s=q+w+2,k,l;
for(k=0;k!=4;k++)
{
if (k<q) for(l=0;l!=3;l++)
if (l>=w) m[k][l]=a[k][l+1];
else m[k][l]=a[k][l];
else if (k>q) for(l=0;l!=3;l++)
if (l>=w) m[k-1][l]=a[k][l+1];
else m[k-1][l]=a[k][l];
}
t=m[0][0]*m[1][1]*m[2][2]+m[0][1]*m[1][2]*m[2][0]+m[1][0]*m[2][1]*m[0][2];
t=t-m[2][0]*m[1][1]*m[0][2]-m[1][2]*m[2][1]*m[0][0]-m[0][1]*m[1][0]*m[2][2];
if (s%2!=0) t*=-1;
return t;}
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.06.2015, 04:12

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

решение Слау
Написал код для решение Слау методом lu-разложение, но он не работает, выдает ошыбки, которые не...

Решение СЛАУ
Здравствуйте. Помогите пожалуйста. Нужны программные реализации решения СЛАУ методом Крамера и...

Решение слау.
Здравствуйте. Я пишу программу, которая будет решать слау одним из выбранных мною методов. Методы...

Решение специфичной СЛАУ
Всем доброго времени суток! возникла проблема при решении СЛАУ по Крамеру - а именно - необходимо...

Решение СЛАУ методом Якоби
Пытаюсь реализовать метод решения системы линейных уравнений методом Якоби. #include &quot;stdafx.h&quot;...

Решение СЛАУ методом вращения
Доброго времени суток, товарищи. Имеется задание: дано интегральное уравнение: U(x) + I (...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.