Главная страница
    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.015 c
15-1143836583
Librarian
2006-04-01 00:23
2006.04.23
Инв. номер


15-1143527576
Jeer
2006-03-28 10:32
2006.04.23
Завтра затмение.


6-1136898146
Wiz@rd
2006-01-10 16:02
2006.04.23
шЫрина канала...


15-1143698298
Pazitron_Brain
2006-03-30 09:58
2006.04.23
Посоветуйте программу для создания фотогаллерей


15-1144126390
Ega23
2006-04-04 08:53
2006.04.23
С Днём рождения! 4 апреля





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский