42167

ДІЇ НАД МАТРИЦЯМИ

Лабораторная работа

Информатика, кибернетика и программирование

Знайти і видати на екран і в файл значення: сум модулів елементів кожного стовпчика матриці А, середнього арифметичного найменших елементів кожного рядка матриці А; обчислити матрицю В, яка визначається за формулами і видати на екран; в матриці А поміняти місцями найбільший за модулем елемент останнього рядка і найменший за модулем елемент першого стовпчика і видати на екран.

Украинкский

2013-10-27

137 KB

4 чел.

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ

Дніпропетровський національний університет
ім. Олеся Гончара

Механіко-математичний факультет

Кафедра обчислювальної механіки і міцності конструкцій

З В І Т

про виконання лабораторної роботи №2

ДІЇ НАД МАТРИЦЯМИ 

 ШИФР  321987 

 Виконавець: студент групи МХ-10-3 Сергієнко  А.І Прийняла: Гарт Е.Л.

 Завдання отримано 10.11.10

 Звіт зданий  22.12.10

Дніпропетровськ

2010


ЗМІСТ

Анотація ...……………………………………………………………………...…1

Основна частина…………………………………………………………..............1

1. Постановка завдання…………………………………………………….1

2.Аналіз завдання (структурна блок-схема алгоритму)…………2

3. Інструкція щодо експлуатації програми……………………………….5

4. Результати розрахунків і аналіз………………………………………...5

Додаток. Лістинг програми………………………………………………………6

АНОТАЦІЯ

1. Постановка задачі

Обчислити матрицю А, де

,

де X – задане число;  провести деяку операцію над А, видати деякі значення S,  Sa, B, А.

2. Тип комп’ютера. Операційна система

Програма розрахована для ПК типу Pentium IV. Реалізована в ОС Windows XP.

3. Мова програмуванняCompaq Visual Fortran v6.6

4. Допоміжні програми – немає.

5. Стан програми – налагоджена.

ОСНОВНА ЧАСТИНА

1. Постановка завдання

Розробити структурну схему алгоритму та програму виконання дій над матрицею

,
знайти і видати на екран і в файл значення: сум модулів елементів кожного стовпчика матриці А, середнього арифметичного найменших елементів кожного рядка матриці А; обчислити матрицю В, яка визначається за формулами  і видати на екран; в матриці А поміняти місцями найбільший за модулем елемент останнього рядка і найменший за модулем елемент першого стовпчика і видати на екран.

 2. Аналіз завдання (структурна блок-схема алгоритму)

3. Інструкція щодо експлуатації програми

Вхідні дані:

коефіцієнт за завданням.

Вихідні дані:

№1 – сума модулів елементів кожного стовпчика А;  №2 – суми квадратів найбільшого елемента першого стовпчика та найменшого за модулем елемента останнього рядка; №3 матриця B визначена за формулою ; №4 поміняти місцями третій рядок і третій стовпчик.

4. Результати розрахунків і аналіз

№1

# стовпця

значення

1

42.2

2

27.0

3

33.8

4

28.3

5

37.8

№2

Шукані значення, при x=32, наведені у таблицях.

№2

188.2

№3

-183.01

-21.85

-175.09

-146.40

-187.44

0.04

47.42

-47.32

70.76

-7.69

82.58

79.04

30.34

53.16

99.12

76.64

68.54

66.60

18.94

116.80

-81.52

100.58

-108.76

-110.94

-126.78

№4

4.80

6.60

6.60

6.40

7.30

8.50

9.70

1.50

1.40

-1.00

-2.00

1.90

11.80

7.70

10.40

13.60

-2.60

8.30

10.40

7.40

8.70

6.60

14.60

-1.80

7.50

Додаток. Лістинг програми.

program lr2

PARAMETER N=5

real A(N,N), B(N,N), C(N,N)

integer i,j,k

real S,amax,amin

OPEN (UNIT=1, FILE='1.txt', STATUS='OLD',ERR=1000,      *ACTION='READ')

READ (1,*) ((B(i,j), j=1,N), i=1,N), ((C(i,j), j=1,N), i=1,N)

CLOSE (1)

WRITE (*,*) 'ucxod matrix'

WRITE (*,101) ((B(i,j), j=1,N), i=1,N), ((C(i,j), j=1,N), i=1,N)

DO i=1,N

DO j=1,N

 A(i,j)=B(i,j)+3.2*C(i,j)

ENDDO

ENDDO

WRITE (*,*) 'matrix'

WRITE (*,101) ((A(i,j), j=1,N), i=1,N)

WRITE (*,*) 'task 1'

DO i=1,N

 S=0

 DO j=1,N

  S=S+ABS(A(j,i))

 ENDDO

 WRITE (*,102) i,S

ENDDO

WRITE (*,*) 'task 2'

amax=A(1,1)

amin=ABS(A(N,1))

DO i=1,N

 IF (amax.LT.A(i,1))  amax=A(i,1)

 IF (amin.GT.ABS(A(N,i)))  amin=ABS(A(N,i))

ENDDO

S=amax*amax+amin*amin

WRITE (*,103) S

WRITE (*,*) 'task 3'

DO i=1,N

 DO j=1,N

  C(i,j)=A(i,j)-A(j,i)

 ENDDO

ENDDO

DO i=1,N

 DO j=1,N

  S=0

  DO k=1,N

   S=S+C(i,k)*A(k,j)

  ENDDO

  B(i,j)=S

 ENDDO

ENDDO

WRITE (*,*) 'matrix (A-AT)*A'

WRITE (*,104) ((B(i,j), j=1,N), i=1,N)

WRITE (*,*) 'task 4'

DO i=1,N

 S=A(3,i)

 A(3,i)=A(i,3)

 A(i,3)=S

ENDDO

 

WRITE (*,*) 'matrix A'

WRITE (*,104) ((A(i,j), j=1,N), i=1,N)

1000 STOP

101 FORMAT ((<N>(' ',F6.2)))

102  FORMAT (' col ' ,I1,' : ',F8.4)

103  FORMAT (' ans= ' ,F8.4)

104 FORMAT ((<N>(' ',F8.2)))

END

End


 

А также другие работы, которые могут Вас заинтересовать

1142. Создание базы данных Автосалона 282 KB
  Анализ информационных задач и круга пользователей системы. Определение требований к операционной обстановке. Выбор СУБД и других программных средств. Анализ информационных задач и круга пользователей системы. Преобразование ER–диаграммы в схему базы данных.
1143. Применение экранных форм для ввода и редактирования данных в зависимых связанных объектах базы данных 482 KB
  Приобретение навыков построения системы меню приложений баз данных при помощи средств разработки меню графического интерфейса пакета FoxPro.
1144. Зависимость электропроводности полупроводников от напряженности электрического поля 447.5 KB
  Исследование влияния сильных электрических полей на электропроводность материала варистора. Зависимость проводимости от внешнего электрического поля (экстраполяция по первым и последним четырем точкам).
1145. Управление преобразователем частоты Altivar 58 с помощью интеллектуального реле Zelio Logic 111.5 KB
  Ознакомится с описанием ПЧ Altivar 58 и интеллектуальным реле Zelio Logic используя инструкции фирмы изготовителя. Выполнить настройку параметров ПЧ согласно заданию, сохранить настройки в файле. Проверить работу системы электропривода во всех режимах, при необходимости внести изменения в программу.
1146. Проектирование водопровода и канализация пятиэтажного двухсекционного жилого дома 292 KB
  Характеристика пятиэтажного двухсекционного жилого дома. Определение расхода воды на участках водопроводной сети. Гидравлический расчет сети холодного водопровода. Выбор системы и схемы канализации. Определение начального заглубления сети дворовой канализации...
1147. Реализация программного продукта Система покупки билетов онлайн 460.5 KB
  Описание состава команды, и выполненные работы по ролям. ER-диаграмма базы данных с подробным описанием. Блок-схема одного из алгоритма данного программного продукта. Описание процесса тестирования: сценарий тестирования, входные данные тестов, выходные данные тестов.
1148. Разработка информационно аналитической системы Театр с использованием технологии объектно-ориентированного программирования 451.5 KB
  Данная программа реализует режимы учета спектаклей и участвующих в них актеров в зависимости от вида, стоимости билетов, количества оставшихся и проданных билетов, даты, анализа спектаклей и концертов по популярности.
1149. Выявление особенностей финансово-экономического развития ЗАО Аргументы и факты 348 KB
  Общая информация об организации и анализ внутренней среды ЗАО Аргументы и факты. Анализ внешней макросреды. Конъюнктура рынка. Анализ финансово-экономического положения ЗАО Аргументы и факты Анализ внешнего микроокружения ЗАО Аргументы и факты
1150. Табулирование трансцендентных функций 460 KB
  Изучение и сравнение различных способов приближенного вычисления заданной функции. Вычисление погрешности интерполирования. Корни полинома Чебышева. Построение графиков погрешностей. Вычисление интегралов с помощью формулы трапеций.