Характеристики числовых массивов

 

При работе с числовыми массивами часто возникают задачи определения следующих величин.

Длина вектора

Среднее арифметическое

Дисперсия

Среднеквадратическое отклонение

Среднее квадратическое

Среднее геометрическое

Среднее гармоническое

Вычисление этих величин сводится в конечном итоге к вычислению со­ответствующих сумм и произведения.

 

Транспонирование матриц

 

Матрица В, у которой строки заменены столбцами по отношению к ис­ходной матрице А, т.е. , называется транспонированной.

Например:

Чтобы транспонировать матрицу, необходимо организовать двойной цикл по строкам и столбцам исходной матрицы А и в цикле элементам транс­понированной матрицы В присвоить значения элементов матрицы А, причем номер строки элемента матрицы В должен быть равен номеру столбца элемен­та матрицы А, а номер столбца элемента матрицы В должен быть равен номеру строки элемента матрицы А. Количество строк транспонированной матрицы В должно быть равно количеству столбцов исходной матрицы А, а количество столбцов матрицы В должно быть равно количеству строк матрицы А. Далее приведен пример программы транспонирования матрицы.

 

Sub Massiv12()

Dim A(3, 5) As Single, В(5, 3) As Single

Dim i As Integer, j As Integer

 

'Ввод матрицы А

'-------------

 

' Транспонирование матрицы А

For i = 1 To 3

For j = 1 To 5

B(j, i) = A(i, j)

Next j

Next i

 

End Sub

 

Сложение и вычитание матриц

 

Суммой матриц  и  является матрица , элементы ко­торой равны суммам соответствующих элементов матриц А и В, т. е.

Разностью матриц  и  является матрица , элементы которой равны разностям соответствующих элементов матриц А и В, т. е.

Следует учесть, что суммировать и вычитать можно матрицы только одного размера.

 

Пример. Найти сумму и разность матриц А и В размером .

 

Sub Massiv13()

Dim A(l To 4, 1 To 7) As Single

Dim B(l To 4, 1 To 7) As Single

 

'Ввод массивов

'-----------------

 

Dim C(l To 4, 1 To 7) As Single 'Сумма

Dim D(l To 4, 1 To 7) As Single 'Разность

Dim i As Integer, j As Integer 'Ввод матриц А и В

'Вычисление суммы и разности матриц

For i = 1 To 4

For j = 1 To 7

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

D(i, j) = A(i, j) - B(i, j)

Next j

Next i

 

'Вывод полученных массивов

'----------------

End Sub

 

Скалярное произведение векторов

 

Скалярным произведением векторов  и  называется число, рав­ное сумме попарных произведений их элементов:

Скалярно умножать можно вектор на вектор с равным количеством элементов.

Пример. Найти скалярное произведение векторов  и .

 

Sub Massiv14()

Dim X(l To 15) As Single, Y(l To 15) As Single

Dim i As Integer, P As Single

 

'Ввод векторов Х и Y

'-------------------

'-------------------

'Вычисление скалярного произведения векторов

Р = 0

For i = 1 To 15

Р = Р + X(i) * Y(i)

Next i

 

End Sub