ArtemyVI
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте !!!
Помогите пжалста! Необходимо написать программу для нахождения обратной матрицы размерностью 3*3. Писал прогу для матрицы 2*2, но преподу надо 3*3.
вот прога, (не знаю нужна ли она):
program omat
implicit none
real M(1:2,1:2),i,n,j,T(1:2,1:2),P(1:2,1:2),O(1:2,1:2),D
write(*,*) ' Enter Dimension Of A Matrix ! only 2 ! ' ! размерность
read(*,*) n
write(*,*)' Enter Elements ! M(2*2) ! ' ! вводим элементы матрицы
read(*,*)((M(i,j) ,i=1,n),j=1,n)
write(*,*)' Yor Matrix [M] ' ! пишем матрицу (исходную)
D=M(1,1)*M(2,2)-M(1,2)*M(2,1) ! находим определитель
do i=1,n
write(*,*)(M(j,i),j=1,n)
enddo
write(*,*)'Trans Matrix:'
do i=1,n
write(*,*)(M(i,j),j=1,n)
enddo
O=(1/D)*M ! обратная матрица
write(*,*) ' Return Matrix [M]'
write(*,*)O
end program omat
для нахождения обратной матрицы 3*3 необходимо искать алгебраические дополнения. как их засунуть в матричку. так же после эту матричку надо транспонировать. остальное мне понятно...
заранее спасибо!
P.S. если есть что то похожее на мой вопрос,хоть ссылками поделитесь. буду очень благодарен. |
, *)PMIN