Завдання до лабораторної роботи 8

1. Задано вектор C(c₁, c₂, … с_N). Двома способами побудуйте матрицю G(і,j) розміром (n´n) за зазначеним у варіанті правилом (табл.19), написавши функцію користувача Matr().

1спосіб. Побудуйте матрицю, застосувавши, оператори IF-THEN. Для цього на робочому листі Excel уведіть дані так, як показано у таблиці 18.

Таблиця 18

	А	B	C	…
	с1	с2	с3	…	сn
	i j			…	n
		= Matr()
…	…
	n

На стандартному листі модуля наберіть функцію користувача Matr(), оголосивши, що її значення має тип Variant. Аргументами функції Matr() повинні бути змінні C(і, j), що мають тип Variant. Уведіть функцію в чарунку ”B3”. При передачі аргументів функції вкажіть, що вектор C має абсолютні координати, у векторів і і j одна з координат абсолютна, інша – відносна. Далі копіюйте функцію Matr() у сусідні осередки. Не забувайте опцію Option Base1.

2спосіб. Побудуйте матрицю (n´n), використовуючи оператори FOR-NEXT. Синтаксис оператора вимагає знання початкового й кінцевого значення параметра циклу. Для визначення кінцевого значення передайте функції Matr1() змінну C типу Variant і використовуйте інструкції

N=C.Columns.Count, якщо вектор C розташований на робочому листі в рядку

N=C.Rows.Count, якщо вектор C розташований на робочому листі в стовпці.

Нагадуємо, що функція користувача вимагає наявність оператора, що привласнює імені функції визначеного значення. Тому що елементи матриці Matr1(і, j) підраховуються за різними формулами залежно від і і j, варто запастися допоміжним динамічним масивом а(), визначивши потім його розміри за допомогою оператора Redim a(N,N) і обчисливши а(і, j) за правилом у Вашому варіанті. Після цього потрібно застосувати оператор Matr1=а.

Тому що функція Matr1() повертає не одне значення, а масив, на робочому листі Excel потрібно виділити діапазон чарунок, куди будуть уміщені елементи матриці. У рядку формул увести за допомогою майстра функцій формулу

=Т(А1:А?),

де А1:А? – діапазон зі значеннями вектора C, і натиснути <Ctrl>+<Shift>+<Enter>.

Таблиця 19

Варіант	Завдання
	, де n =3 і C=(3, 4, 1)
	, де n =4 і C=(2, 4, 1, 7)
	, де n =5 і C =(6, 4, 2, 7, 6)
	, де n =4 і C=(1, 2, 1, 7)
	, де n =6 і C=(1, 3, 1, 7, 2, 2)
	, де n =7 і C=(1, 4, 1,3,4, 5, 7)
	, де n =4 і C=(1, 4, 8, 7)
	, де n =5 і C=(2,9,1,7,3)
	де n =6 і C=(1, 2, 1, 7, 8, 2)
	де n =7 і C=(5, 1, 1, 7, 1, 2, 1)

2. Напишіть процедуру розв’язання системи лінійних рівнянь АХ=В, де А – матриця системи (5×5), Х – вектор невідомих (х₁, х₂, х₃, х₄, х₅),
В – стовпець вільних членів.

Нагадуємо, що Х=А^-1В.

Процедура повинна:

1.За допомогою операторів FOR-EACH і функцій Int() і Rnd() заповнити діапазон А2:Е6 робітника листа Excel випадковими, але цілими числами (коефіцієнтами системи). У такий же спосіб заповнити діапазон F2:F6 (стовпець вільних членів).

2.У відповідні осередки ввести заголовки ”матриця системи”, ”стовпець вільних членів”, ”розв’язок системи”. Де потрібно, об'єднати чарунки (merge) підігнати ширину стовпців (Autofit), виконати форматування тексту і тла чарунок.

3.Для заповнення стовпця розв’язків викликати функцію користувача Reshsist(), що теж, природно, треба написати.

4.Функція Reshsist() повинна мати два параметри – матрицю коефіцієнтів системи і стовпець вільних членів. Для розв’язання системи рівнянь використовувати вбудовані функції MMult() і MInverse().

Дата добавления: 2014-12-27