Решение задач в Excel на VBA. Применение программных средств в проектировании автомобильных конструкций. Калядин В.И. - 19 стр.

Public Function xCdGauss(Ab As Range) As Variant
Dim N As Long, CD As Double
N = Ab.Rows.Count
ReDim AiB(1 To N, 1 To N + 1) As Double
ReDim X(1 To N + 1) As Double
For i = 1 To N
 For j = 1 To N + 1
    AiB(i, j) = Ab(i, j)
 Next j
Next i
Call KFGAUSS(AiB(1, 1), N, X(1), CD)
                                                        Рис. 1.2.
X(N + 1) = Abs(CD)
                                                   A     B       C        D
xCdGauss = X                                  1     2        1       1        7
End Function                                  2     4        3       0       10
Функция используется следующим                3    -2        2       3       11
                                              4     1        2       3 13,52941
образом. Для решения СЛАУ с рас-
                                                  Рис. 1.3.
ширенной матрицей A1:D3 коэффи-
циентов, например, показанной на рис. 1.3, выделяется горизонтальный
диапазон, например, A4:D4 из N+1 ячеек (N=3 – число уравнений). За-
тем нажимают клавишу F2 и выбирают в ленте: Формулы, Вставить
функцию, Категория - Определѐнные пользователем, xCdGauss, OK. В
возникшем окне Аргументы функции (см. рис. 1.2) указывают для ар-
гумента Ab диапазон A1:D3 ячеек с коэффициентами расширенной
матрицы СЛАУ, а затем нажимают Ctrl+Shift+Enter. В ячейках A4:C4
появятся вычисленные значения неизвестных СЛАУ, а в ячейке D4
число обусловленности матрицы системы.

Подготовка на листе матриц с вычисляемыми коэффициентами
Часто в математических расчѐтах встречаются СЛАУ, коэффициенты
которых могут быть вычислены по сравнительно простым формулам.
Как правило, эти СЛАУ имеют большое число уравнений. При необхо-
димости размещения коэффициентов таких систем в ячейках листа
Excel целесообразно подготовить формулу, задающую коэффициенты,

                                       19