Разработка программ для вычисления матричного выражения, страница 6

for i:=1 to mb do

for j:=1 to nb do read(f,B[i,j]);

read(f,mc,nc); {ввод размеров и элементов матрицы С из файла 'matr.inp'}

for i:=1 to mc do

for j:=1 to nc do read(f,C[i,j]);

close(f); {закрытие файла 'matr.inp' для чтения}

{обращения к процедурам}

writeln('матрица A='); {вывод матрицы А на экран}

mout(ma,na,A);

writeln;

writeln('матрица B='); {вывод матрицы В на экран}

mout(mb,nb,B);

writeln;

writeln('матрица C='); {вывод матрицы С на экран}

mout(mc,nc,C);

writeln;

tr(na,ma,A,AT); {вычисление матрицы Аt}

writeln('матрица AT='); {вывод матрицы ATB на экран}

mout(na,ma,AT);

writeln;

mult(na,mb,nb,AT,B,ATB); {вычисление матрицы Аt*B}

writeln('матрица AT*B='); {вывод матрицы ATB на экран}

mout(na,nb,ATB);

writeln;

sum(na,nc,ATB,C,ATB3C);  {вычисление матрицы Аt*B-3C}

writeln('матрица AT*B-3C='); {вывод матрицы ATB3C на экран}

mout(na,nc,ATB3C);

writeln;

tr(nc,na,ATB3C,ATB3CT); {вычисление матрицы (Аt*B-3C)t}

writeln('матрица (AT*B-3C)T='); {вывод матрицы ATB3CT на экран}

mout(nc,na,ATB3CT);

end. {конец программы}

5. Вид печати:


матрица A=

    1    5

    2    6

    3    7

4  8

матрица B=

    0    1    2

    3    4    5

    6    7    8

    9   10   11

матрица C=

    9    5    1

    7    3    0

матрица At=

    1    2    3    4

    5    6    7    8



матрица AT*B=

   60   70   80

132  158  184

матрица AT*B-3C=

   33   55   77

111  149  184

матрица (AT*B-3C)T=

   33  111

   55  149

   77  184


6. Анализ результатов расчета

Решив матричное выражение первым и вторым способами, мы увидели, что результаты вычислений совпадают. Это свидетельствует о правильности расчетов. Получившаяся матрица имеет размерность [3х2], что подтверждает правильность вычислений. Первый способ более подробно показывает решение данного выражения. Второй способ является значительно удобней: единственным действием мы приходим к окончательному результату. Так же в ходе работы получены навыки вычисления матричных операций с помощью среды Turbo Pascal и редактора Excel.


7. Библиографический список:

  • Винтер П. Microsoft Word 97: справочник – СПб: Питер, 1998. – 320 с.
  • Гончаров А. Excel 97 в примерах – СПб: Питер, 1997. – 336 с.
  • Йозеф Штайнер, Роберт Валентин Windows 95: справочник / Пер. с нем. – М: Восточная Книжная Компания, 1997. – 352 с.
  • Кокс Дж., Дадлей К., Урбан П. Microsoft Excel 97: краткий курс – СПб: Питер, 1998. – 256 с.
  • Основы современных компьютерных технологий: Учебное пособие /Под ред. проф. Хомоненко А. Д. Авторы: Артамонов Б. Н., Брякалов Г. А., Гофман В. Э. и др.–СПб.: КОРОНА принт, 1998.