Программа построения поверхности в 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; просмотров: 194; Мы поможем в написании вашей работы!






Мы поможем в написании ваших работ!