Форум программистов, компьютерный форум CyberForum.ru

Метод Жодана Гаусса по главному элементу всей матрицы не вычисляет матрицу выше 5го порядка - C++

Восстановить пароль Регистрация
 
Lucid
Сообщений: n/a
01.07.2012, 17:25     Метод Жодана Гаусса по главному элементу всей матрицы не вычисляет матрицу выше 5го порядка #1
Вот решения этой задачи, считает до 5го порядка правильно, а вот на 6м порядке и выше пишет что решение нет, а если решение находится то Х получаются в разброс. данные генерировал тестировщик. все данные были невырожденными. Помогите пожалуйста не могу понять где не правильно!!! Очень срочно нужно!!
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
#include "math.h"
#include <time.h>
#include <stdio.h>
#include <stdlib.h>
#define eps 0.000001
 
//=====================================Matrix Processing ========
int solver(int n, double *a, double *b, double *x, double *tmp)
{    
  int i, j, k, l;
   double q, m, t;
 int d;
 
 for(i=0; i < n; i++)                
    tmp[i]=i;
 
   for(k = 0;k< n-1; k++)
   {
       //{ Ищем строку l с максимальным элементом в k-ом столбце}
        l = -1; d=-1;
        m = 0;
        for(i=k; i<n;i++)
            for(j=k;j<n;j++)
                if (fabs(a[j+ i*n]) > m) 
                {
                    m = fabs(a[j+ i*n]);
                    l = i;                        //запоминаем номер строки 
                    d = j;                        //запоминаем номер столбца
                }    
 
            
         //{ Если у всех строк от k до n элемент в k-м столбце нулевой,
          //      то система не имеет однозначного решения }
         if (l == -1) return 1;
 
         //{ Меняем местом l-ую строку с k-ой }
         if (l != k)
         {
             for(j=0; j<n; j++) 
             {
                t = a[k*n+ j];
                a[k*n+ j] = a[l*n+ j];
                a[l*n+ j] = t;
             }
            t = b[k];
            b[k] = b[l];
            b[l] = t;
         }    
        //меняем местом d-ый столбец с k-ым 
          if (d != k)
         {
             for(j=0; j<n; j++) 
             {
                t = a[j*n+ k];
                a[j*n+ k] = a[j*n+ d];
                a[j*n+ d] = t;
             }
            t=tmp[k];
            tmp[k]=tmp[d];
            tmp[d]=t;
         }
 
         
   }
 
   //=============matrix process=======Triangle form
  
   for(i=0;i<n;i++)
   {
       d=0;
       for(j=0;j<n;j++)
           if(a[i*n+j] > eps) 
               d=1;
            if(!d) return 1;
   }
 
    for(k=0;k<n-1;k++)
    {
        for(i=0;i<n;i++)
        {
            d=0;
            for(j=0;j<n;j++)
                if(a[i*n+j] > eps)
                    d=1;
                if(!d) return 1;
        }
       
        for(i=k+1;i<n; i++)
        {
            q=a[i*n+k]/a[k*n+k];
            for(j=0;j<n;j++)
            {
                a[j+i*n]-=(a[k*n+j]*q);
            }
            b[i]-=b[k]*q;
        }   
   }
 
 
   //=================Diagonal form=======
 
   for(k=n-1;k>=0;k--)
   {
       for(i=k-1;i>=0; i--)
       {
            q=a[i*n+k]/a[k*n+k];
            for(j=0;j<n;j++)
            {
                a[j+i*n]-=(a[k*n+j]*q);
            }
            b[i]-=b[k]*q;
        }   
   }
        
 
     //{ Вычисляем решение }
     x[n-1] = b[n-1] / a[n-1+ (n)*(n-1)];
     
     for(i= n - 2; i>=0;i--)
     {        
         x[i] = (1 / a[i+ i*(n)]) * (b[i]);        
     }
        
     t=0;
     
    for(i=0; i<n; i++)
    {
         d=(int)tmp[i];
        t=x[d];
        tmp[i]=t;
    }
 
    
    for(i=0; i<n; i++)
    {
        x[i]=tmp[i];
    }
     return 0;
}
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.07.2012, 17:25     Метод Жодана Гаусса по главному элементу всей матрицы не вычисляет матрицу выше 5го порядка
Посмотрите здесь:

Получить действительную матрицу [Bi,j ], элемент которой b[i,j] равен наибольшему элементу данной матрицы, расположенному в области, определяемой инде C++
C++ Матрицы: найти определитель заданной матрицы n-го порядка методом Гаусса (и ещё 6 задач)
C++ Получить матрицу A(B-E)+C, где Е-единичная матрица порядка n, а элементы матрицы C вычисляются по формуле
C++ Даны две целочисленные матрицы 4-го порядка. Получить новую * матрицу путем вычитания из элементов каждого столбца первой матрицы
C++ Даны две действительные квадратные матрицы порядка n. Получить новую матрицу: путем умножения элементов каждой строки первой матрицы на наибольшее из
1)Даны две действительные квадратные матрицы порядка n. Получить новую матрицу : А) умножение элементов каждой строки первой матрицы на наибольшее из C++
Даны две действительные квадратные матрицы порядка n. Получить новую матрицу: а) умножением элементов каждой строки первой матрицы на наибольш C++
C++ Даны квадратные матрицы А, В и С порядка n. Получить матрицу (A+B)C.

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 01:42. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru