Программа построения поверхности в V ВА
Private Sub CommandButton2_Click()
Dim i As Integer
Dim ni As Integer
Dim j As Integer
Dim nj As Integer
Dim x As Single
Dim xn As Single
Dim xk As Single
Dim dx As Single
Dim y As Single
Dim yn As Single
Dim yk As Single
Dim dy As Single
e = 0.001
xn = InputBox (" Xn = ", "Ввод начального значения X ", 0, 8000, 2000)
xk = InputBox (" Xk = ", " Ввод конечного значения X ", 1, 8000, 1000)
dx = InputBox (" dX = ", " Ввод значения шага X ", 0.1, 8000, 2000)
yn = InputBox (" Yn = ", " Ввод начального значения Y ", 0, 8000, 2000)
yk = InputBox (" Yk = ", " Ввод конечного значения Y ", 1, 8000, 1000)
dy = InputBox (" dY = ", " Ввод значения шага Y ", 0.1, 8000, 2000)
i = InputBox (" i = ", "Ввод начала таблицы, строка I ", 20, 8000, 1000)
j = InputBox (" j = ", " Ввод начала таблицы, столбец J ", 1, 8000, 2000)
Cells(i, j) = "X/Y"
ni = i: nj = j: x = xn
10 Cells(i + 1, j) = x
x = x + dx: i = i + 1
If x <= xk + e Then GoTo 10
y = yn: i = ni
20 Cells(i, j + 1) = y
y = y + dy: j = j + 1
If y <= yk + e Then GoTo 20
y = yn: j = nj
30 i = ni: x = xn
40 z = 2 * x ^ 2 + 3 * y ^ 2
Cells(i + 1, j + 1) = z
i = i + 1: x = x + dx
If x <= xk + e Then GoTo 40
y = y + dy: j = j + 1
If y <= yk + e Then GoTo 30
End Sub
Некоторые комментарии к программе:
– В программе после ввода исходных данных сначала формируются и выводятся в соответствующие ячейки значения осей X и Y;
– В программе с помощью промежуточных переменных ni и nj запоминаются начальные значения i – строки, с которой начинается таблица в VBA и j – столбца, которого начинается таблица в VBA , так как после формирования значений осей X и Y переменные i и j приобрели конечные значения.
|
|
|
КВАДРАТИЧНЫЕ ФОРМЫ
Целью лабораторной работы “ Квадратичные формы ” является освоение матричных функций Excel и VBA .
Выполнение лабораторной работы предполагает знание элементов векторного анализа, в частности, матричных операций.
Лабораторная работа “Квадратичные формы” состоит из двух частей, в первую часть входят:
– решение матричного уравнения в Excel;
– решение матричного уравнения в Excel с предварительным преобразованием;
– вычисление квадратичной формы в Excel;
– вычисление квадратичной формы с использованием матричных функций Excel;
– вычисление квадратичной формы с использованием матричных функций VBA,
а во вторую:
– операции над массивами в Excel;
– операции над массивами в VBA .
Критерием правильности решений матричных уравнений являются результаты проверки подстановкой найденных значений корней в исходные уравнения.
Критерием правильности вычислений квадратичной формы является совпадение полученных значений трех способов вычислений.
Выполнение лабораторной работы начинается с внесения исходных данных задания в соответствующие ячейки таблицы Excel , в выбранной адресации:
– значения матрицы А – А8:D11;
|
|
|
– значения вектора B – F8:F11;
– значения вектора Y – H8:H11, рис. 6.1.
Часть первая
Решение матричного уравнения в Excel.
Так как решением матричного уравнения АХ=В является вектор Х=А-1В, то необходимо сформировать обратную матрицу А-1, это выполняется в ячейках A14:D17, для чего:
- выделить A14:D17,
- через мастер функций fx вызвать матричную операцию МОБР, в окне “массив” которой указать адрес исходной матрицы А – А8:D11;
- затем одновременно нажать клавиши Ctrl-Shift-Enter.
В результате в ячейках A14:D17 появятся значения элементов обратной матрицы А-1, рис. 6.2., а для любой ячейки диапазона A14:D17 в строке состояний подтверждение выполнения матричной операции {=МОБР(A8:D11)}.
Так как результатом произведения исходной матрицы А на обратную матрицу А-1 является единичная матрица E, то для проверки правильности значений элементов полученной обратной матрицы необходимо:
- выделить F14:I17;
- через мастер функций fx вызвать матричную операцию МУМНОЖ, в окне рис. 6.3 “Массив1” которой указать адрес исходной матрицы А – А8:D11, а в окне “Массив2” которой указать адрес обратной матрицы А-1 – А14:D17;
- затем одновременно нажать клавиши Ctrl-Shift-Enter.
В результате в ячейках F14:I17 появятся значения элементов единичной матрицы E, рис. 6.2., а для любой ячейки диапазона F14:I17 в строке состояний подтверждение выполнения матричной операции {=МУМНОЖ(A8:D11;A14:D17)}
|
|
|
Рис. 6.1.
Рис. 6.2.
Рис. 6.3.
Для получения вектора решений Х=А-1В необходимо:
- выделить J8:J11;
- через мастер функций fx вызвать матричную операцию МУМНОЖ, в окне “Массив1” которой указать адрес обратной матрицы А-1 – F14:I17, а в окне “Массив2” которой указать адрес вектора свободных членов B – F8:F11;
- затем одновременно нажать клавиши Ctrl-Shift-Enter.
В результате в ячейках J8:J11 появятся значения элементов вектора решений X , рис. 6.2., а для любой ячейки диапазона J8:J11 в строке состояний подтверждение выполнения матричной операции {=МУМНОЖ(F14:I17; F8:F11)}.
Для проверки истинности значений элементов полученного вектора решений X необходимо подставить полученные значения в исходное уравнение АХ=В, для чего следует:
- выделить K8:K11;
- через мастер функций fx вызвать матричную операцию МУМНОЖ, в окне “Массив1” которой указать адрес исходной матрицы А – А8:D11, а в окне “Массив2” которой указать адрес полученного вектора решений X – J8:J11;
- затем одновременно нажать клавиши Ctrl-Shift-Enter.
В результате в ячейках K8:K11 появятся значения элементов вектора свободных членов B, рис. 6.2., совпадающие со значениями элементов исходного вектора B –F8:F11, а для любой ячейки диапазона K8:K11 в строке состояний подтверждение выполнения матричной операции {=МУМНОЖ(A8:D11; J8:J11)}.
|
|
|
Дата добавления: 2019-03-09; просмотров: 285; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!