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

UptoLike

ВУЗ: 

МАМИ | Москва

Составители: 

Рубрика: 

14
MsgBox "Выделена не подходящий диапазон", , "TrSolve": Exit Sub
End If
Dim b( ) As Double: ReDim b(n)
For i = 1 To n: b(i) = TR.Cells(i, n + 1): Next 'готовим массив b правых чаcтей
For k = n To 1 Step - 1
Cells(in + n, jn + k - 1) = b(k) / TR.Cells(k, k) ' вычисление и запись Xk
For i = 1 To n – 1 ' цикл подстановки в уравнения вычисленного Xk
b(i) = b(i) - TR.Cells(i, k) * Cells(in + k - 1, jn + n + 1)
Next i
Next k
Next
End Sub
Описание решения на Excel задачи A
При решении задачи A (на этапе ) расширенную матрицу Ab1 поме-
щаем в диапазон G2:J4 (см. таблицу 1.1). Таблица 1.1
A
B
C
D
E
F
G
I
J
1
Матрица перестановок (шаг k=1)
Расширенная матрица СЛАУ
2
0
1
0
2
1
7
3
P1=
1
0
0
Ab1=
4
0
10
4
0
0
1
-2
3
11
5
Матрица исключений (шаг k=1)
Строки переставлены (шаг k=1)
6
1
0
0
4
0
10
7
L1=
-0,5
1
0
P1*Ab1=
2
1
7
8
0,5
0
1
-2
3
11
9
Матрица перестановок (шаг k=2)
Ма Матрица СЛАУ после шага k=1
10
1
0
0
4
0
10
11
P2=
0
0
1
Ab2=L1*(P1*Ab1)=
0
1
2
12
0
1
0
0
3
16
13
Матрица исключений (шаг k=2)
Строки переставлены шаг k=2
14
1
0
0
4
0
10
15
L2=
0
1
0
P2*Ab2=
0
3
16
16
0
0,14286
1
0
1
2
17
Матрица СЛАУ после шага k=2
18
4
0
10
19
Ab3=L2*(P2*Ab2)=
0
3
16
20
0
1,4286
4,2857
21
Решение СЛАУ с верхней треугольной матрицей x1,x2, x3=
1
2
3
В 1-ом столбце Ab1 главный элемент равен 4, он находится во 2-ой
строке. В соответствии с этим, (на этапе ) слева в ячейках B2:D4 на-
1
2
1
2
3
4
5
6
7
8
9
10 
  MsgBox "Выделена не подходящий диапазон", , "TrSolve": Exit Sub
 End If
Dim b( ) As Double: ReDim b(n)
  For i = 1 To n: b(i) = TR.Cells(i, n + 1): Next 'готовим массив b правых чаcтей
  For k = n To 1 Step - 1
    Cells(in + n, jn + k - 1) = b(k) / TR.Cells(k, k)           ' вычисление и запись Xk
    For i = 1 To n – 1              ' цикл подстановки в уравнения вычисленного Xk
       b(i) = b(i) - TR.Cells(i, k) * Cells(in + k - 1, jn + n + 1)
    Next i
 Next k
Next
End Sub
                       Описание решения на Excel задачи A
При решении задачи A (на этапе 1 ) расширенную матрицу Ab1 поме-
щаем в диапазон G2:J4 (см. таблицу 1.1).             Таблица 1.1
       A     B        C       D       E            F              G        H       I         J
 1         Матрица перестановок (шаг k=1)2                     Расширенная матрица СЛАУ          1
 2              0        1      0                                     2       1      1          7
 3   P1=        1        0      0                      Ab1=           4       3      0         10
 4              0        0      1                                    -2       2      3         11
 5         Матрица исключений (шаг k=1)  4                     Строки переставлены (шаг k=1)      3
 6              1        0      0                                     4       3      0         10
 7    L1=    -0,5        1      0                   P1*Ab1=           2       1      1          7
 8            0,5        0      1                                    -2       2      3         11
 9         Матрица перестановок (шаг k=2)
                                        6                 Ма   Матрица СЛАУ после шага k=1      5
10              1        0      0                                     4       3      0         10
11   P2=        0        0      1          Ab2=L1*(P1*Ab1)=           0    -0,5      1          2
12              0        1      0                                     0     3,5      3         16
13         Матрица исключений (шаг k=2) 8                      Строки переставлены шаг k=2      7
14              1        0      0                                     4       3      0         10
15    L2=       0        1      0                   P2*Ab2=           0     3,5      3         16
16              0 0,14286       1                                     0    -0,5      1          2
17                                                             Матрица СЛАУ после шага k=2      9
18                                                                    4       3      0         10
19                                         Ab3=L2*(P2*Ab2)=           0     3,5      3         16
20                                                                    0       0 1,4286 4,2857
21 10 Решение СЛАУ с верхней треугольной матрицей x1,x2, x3=          1       2      3
В 1-ом столбце Ab1 главный элемент равен 4, он находится во 2-ой
строке. В соответствии с этим, (на этапе 2 ) слева в ячейках B2:D4 на-

                                              14

Страницы