Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
MonT
1 / 1 / 0
Регистрация: 14.09.2010
Сообщений: 26
1

Определитель матрицы 6х6

21.09.2010, 14:05. Просмотров 2480. Ответов 1
Метки нет (Все метки)

Как найти определитель трехдиагональной матрицы 6х6,обратную матрицу и определитель обратной матрицы?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.09.2010, 14:05
Ответы с готовыми решениями:

Определитель Матрицы
Всем привет! у меня возникла проблема. Я считаю детерминант матрицы, когда он...

Определитель матрицы
Друг попросил сделать, код оформить смогу сам, нужны советы - как оформить...

Определитель матрицы n*n
Пытался перевести с С++ код для нахождения определителя методом Гаусса(нашел на...

Определитель матрицы
Всем привет! Ребят помогите сделать программку, вычисляющую определитель...

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

1
Башир
207 / 207 / 20
Регистрация: 18.05.2010
Сообщений: 846
22.09.2010, 00:41 2
Лучший ответ Сообщение было отмечено MonT как решение

Решение

Не совсем понятен вопрос? точнее сказать вас интересует математическая часть или сложность в части алгоритма? если вы знаете все это с части математики то могу вам предложить метод гаусса или же воспользоватся рекурсивной процедурой используя формулу def (N)=(-1^(i+j))*a(i,j)*def(n-1)+..... т.е. как сумму определителей матрицы с размерностью на 1 меньше.

Добавлено через 9 часов 17 минут
Для определителя матрицы можно использовать следующую рекурсивную функцию
Delphi
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
type
  TMatrix = Array of Array of Extended;
//..................
function TForm1.Def(var A: TMatrix): Extended;
var
  I, J, K: Integer;
  B      : TMatrix;
begin
  if Length(A)=1
    then Result:=A[0, 0]
    else
      begin
        Result:=0;
        for I := 0 to Length(A) - 1 do
          begin
            SetLength(B, Length(A)-1, Length(A)-1);
            for J := 1 to Length(A) - 1 do
              for K := 0 to Length(A) - 1 do
                begin
                  if K<I then B[J-1, K]:=A[J, K];
                  if K>I then B[J-1, K-1]:=A[J, K];
                end;
            if (I mod 2)=0
              then Result:=Result+A[0, I]*Def(B)
              else Result:=Result-A[0, I]*Def(B);
          end;
      end;
end;
ну а дальше уже вы сами.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.09.2010, 00:41

Определитель матрицы
Помогите пожалуйста написать функцию определения определителя матрицы на основе...

Определить Определитель матрицы
Доброго времени суток. Завтра нужно здать лабу. Буду очень благодарен. Нужно...

вычислить определитель N размерной квадратной матрицы
как вычислить определитель N размерной квадратной матрицы. просто формулу для...


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

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

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