Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];

Вниз

Определитель матрицы.   Найти похожие ветки 

 
civicZLO   (2006-04-09 19:34) [0]

Как найти определитель матрицы с помощью Delphi?


 
Anatoly Podgoretsky ©   (2006-04-09 19:38) [1]

Что знаешь из математики?


 
Leonid Troyanovsky ©   (2006-04-09 19:38) [2]


> civicZLO   (09.04.06 19:34)  

> Как найти определитель матрицы с помощью Delphi?


Также, как и без оной.

--
Regards, LVT.


 
Бугага ©   (2006-04-09 19:40) [3]

Куча всего:

http://www.yandex.ru/yandsearch?rpt=rad&text=delphi+%EE%EF%F0%E5%E4%E5%EB%E8%F2%E5%EB%FC+%EC%E0%F2%F0%E8%F6%FB


 
Рамиль ©   (2006-04-09 20:11) [4]

Казалось бы, причем тут Delphi?


 
Leonid Troyanovsky ©   (2006-04-09 20:45) [5]


> Рамиль ©   (09.04.06 20:11) [4]

> Казалось бы, причем тут Delphi?


Это повод.

--
Regards, LVT.


 
kutuzov47 ©   (2006-04-09 21:12) [6]

Matrica=array[1..50,1..50] of Currency;
....
function Det(a: matrica; n: integer): Single;
var i,j,k,r:integer;
 max,c,m:Single;
begin
 result:=1;
 for k:=1 to n do begin
   max:=abs(a[k,k]);
   r:=k;
   for i:=k+1 to n do begin
     if abs(a[i,k])>max then begin
       max:=abs(a[i,k]);
       r:=i;
     end;
   end;
   if r<>k then result:=-result;
   for j:=1 to n do begin
     c:=a[k,j];
     a[k,j]:=a[r,j];
     a[r,j]:=c;
   end;
   for i:=k+1 to n do begin
     m:=a[i,k]/a[k,k];
     for j:=k to n do
       a[i,j]:=a[i,j]-m*a[k,j];
   end;
 end;
 for i:=1 to n do
   result:=result*a[i,i];
end;


 
kutuzov47 ©   (2006-04-09 21:15) [7]

Специально для тебя писал, возможно где-то end"а не хватает, т.к. писал не в IDE, не проверял работоспособность, но теоритически правильно


 
Leonid Troyanovsky ©   (2006-04-09 21:18) [8]


> kutuzov47 ©   (09.04.06 21:15) [7]

> теоритически правильно


Доказательно?

--
Regards, LVT.


 
kutuzov47 ©   (2006-04-09 23:36) [9]

Ну а че тут. Привожу матрицу в треугольному виду обратным ходом метода Гаусса, перемножаю диагональные элементы и - опа! Готов определитель



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.012 c
8-1132137370
artyonkil
2005-11-16 13:36
2006.04.23
Форматирование и нумерация строк


2-1144261014
MVP
2006-04-05 22:16
2006.04.23
Оптимизация хранения данных для транслятора, который рисует фигур


15-1144043683
DelphiN!
2006-04-03 09:54
2006.04.23
Запретить замену и удаление файла


15-1143774590
Nic
2006-03-31 07:09
2006.04.23
Deep Forest


9-1125775248
Warstone
2005-09-03 23:20
2006.04.23
GLScene нужен OpenGL 1.1





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский