Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Транспонирование матрицы



Читайте также:
  1. RAID-массивы и матрицы
  2. Алгоритмы обработки матрицы в целом
  3. Алгоритмы обработки элементов каждого столбца матрицы
  4. Алгоритмы обработки элементов каждой строки матрицы
  5. Векторы и матрицы
  6. ВУРФНЫЕ ОТНОШЕНИЯ РУССКОЙ МАТРИЦЫ
  7. Двумерные массивы (матрицы)

Транспонированием матрицы называется перестановка элементов строк матрицы с элементами соответствующих столбцов матрицы.

Исходная матрица А Полученная матрица В

 

     
     
     
     

 

       
       
       

 

 

Рассмотрим общий случай транспонирования матриц. Пусть задана матрица А[N,M]. В результате транспонирования должна получиться новая матрица, например В, в которой будет М строк и N столбцов. При транспонировании элемент исходной матрицы A[i,j] будет записан на место элемента новой матрицы B[j,i] (рис. 53).

For i:=1 to N do

For j:=1 to M do

Рис. 53

B[j,i]:=A[i,j];

Writeln(‘Транспонированная матрица’);

For i:=1 to M do

begin

For j:=1 to N do

write(B [i,j]:6:2);

writeln;

end;

 

Если по условию требуется транспонировать квадратную матрицу, то в этом случае результат можно записать в исходную матрицу (т.к. размер исходной матрицы совпадает с размером транспонированной). Для того, чтобы выполнить такое транспонирование, необходимо поменять местами элементы матрицы, расположенные над главной диагональю с элементами матрицы, расположенными под главной диагональю (элементы главной диагонали при этом остаются неизменными).

На рис. 54 приведен алгоритм транспонирования квадратной матрицы.

For i:=1 to N-1 do

For j:= i +1 to N do

Begin

X:=A[i,j];

A[i,j]:=A[j,i];

Рис. 54 A[j,i]:=X

End;

 


Дата добавления: 2015-07-10; просмотров: 366 | Нарушение авторских прав






mybiblioteka.su - 2015-2024 год. (0.007 сек.)