VPF::присоединенной матрицы - Форум программистов

Axenia

Дата 22.5.2013, 19:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 18.5.2013

Репутация: нет
Всего: нет

Всем привет!
Памагите праграмировати в Delphi рещение присоединенной матрицы

Poseidon

Дата 22.5.2013, 20:25 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Четко сформулируйте всой вопрос. Покажите что Вы сделали самостоятельно для его решения. Иначе Вам просто тут ничего не не смогут подсказать.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Axenia

Дата 23.5.2013, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 18.5.2013

Репутация: нет
Всего: нет

вот щто я зделала для обратной матрицы и ни палучяеца

Это сообщение отредактировал(а) Axenia - 23.5.2013, 16:34

Присоединённый файл ( Кол-во скачиваний: 2 )

mi.rar 199,16 Kb

Beltar

Дата 23.5.2013, 18:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 627
Регистрация: 11.1.2006

Репутация: 0
Всего: 7

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

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile

(с) я, хотя может и нет
Пищущий на C++ мужик. Даже если это мужик сидит в написанном на Delphi и жрущем паскалевскую библиотеку билдере.

Axenia

Дата 23.5.2013, 19:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 18.5.2013

Репутация: нет
Всего: нет

процедура ,,procedure Inversa,, далжна вычисляти обратной матрицы

Код


{$R *.dfm}
type matrice=array of array of extended;

function Determinant(A:matrice):extended;
var det:extended;
    n,k,i,j:integer;
    M:matrice;

begin
n:=high(A);
setlength(M,n,n);
if n=0 then Determinant:=A[0,0] {caz elementar}
  else
    begin

    det:=0;
    for k:=0 to n do
      begin

        for i:=0 to n-1 do
        for j:=0 to k-1 do M[i,j]:=A[i+1,j];

        for i:=0 to n-1 do
        for j:=k to n-1 do M[i,j]:=A[i+1,j+1];
        if odd(k) then det:=det-A[0,k]*Determinant(M)
          else det:=det+A[0,k]*Determinant(M);
        end;
        Determinant:=det;
    end;
end;

procedure Inversa(A:matrice;var Inv:matrice);
var minor:matrice;
    detmin,det:Extended;
    n,i,j,kx,ky:Integer;
begin
  n:=High(A);
  SetLength(minor,n,n);
  for i:=0 to n do
  for j:=0 to n do
  begin
    for kx:=0 to i-1 do
    begin
    for ky:=0 to j-1 do
    minor [kx,ky]:=A[i,j];
    for ky:=j to n-1 do
    minor[kx,ky]:=A[i,j+1];
  end;
  for kx:=i to n-1 do
  begin
    for ky:=0 to j-1 do minor[kx,ky]:=A[i+1,j] ;
      for ky:=0 to n do minor[kx,ky]:=A[i+1,j+1];
  end;
  det:=Determinant(A);
  detmin:=Determinant(minor);
  if Odd(i+1) then Inv[j,i]:=-detmin/det
  else
  Inv[j,i]:=detmin/det;
end;

end;

M
Poseidon

при вставке кода пользуйтесь кнопкой "Код"

Это сообщение отредактировал(а) Poseidon - 23.5.2013, 20:35

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »