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

UptoLike

ВУЗ: 

МАМИ | Москва

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

Рубрика: 

26
вектор
*
v
, который совпадет с проекцией вектора
y
на плоскость
(см. рис. 1.5). Естественно, что лежащий в плоскости
, вектор
*
v
перпендикулярен вектору
*
Δ
. Условие перпендикулярности векторов
v
и
Δ
запишем, приравняв нулю их скалярное произведение (т.к.
0)90cos(Δ
0
v
):
.
Изначально
0c
, а должен определяться по точкам данных, поэтому
0
TT
yFcFF
yFcFF
TT
,
а вектор
*
c
, доставляющий минимум вектору невязок, должен опреде-
ляться решением нормальной системы уравнений
bcA
, где
FFA
T
, а
yFb
T
.
Решение задачи C. Разместим коэффициенты системы с рис. 1.4 в ячей-
ках диапазона B2:D4 (см. рис. 1.7), а коэффициенты нормальной систе-
мы
bcA
с
расширенной матрицей Ab, будем хранить в ячейках диа-
пазона E2:G3. Для заполнения указанного диапазона (а также элементов
матрицы Ab) можно использовать следующий программный код:
Sub Ab()
For i = 1 To 2
For j = 1 To 3
S = 0
For k = 1+1 To 1+3 ' - строки матр. F
S = S + Cells(k, i) * Cells(k, j)
Next k
Cells(i+1, j + 4) = S ' заполнение матр. Ab
Next j
Next i
End Sub
bcA
2
1
53
33
2
1
с
с
166667,0
1
с
5,0
2
с
Рис. 1.6. 
                                                
вектор v* , который совпадет с проекцией вектора y на плоскость 
                                                                
(см. рис. 1.5). Естественно, что лежащий в плоскости  , вектор v*
                           
перпендикулярен вектору Δ* . Условие перпендикулярности векторов
     
v и Δ запишем, приравняв нулю их скалярное произведение (т.к.
v  Δ  cos( 900 )  0 ):
                                                             
          vT Δ  (Fc) T (Fc  y)  (c T FT )(Fc  y)  c T (FT Fc  FT y)  0 .
                 
 Изначально      c  0 , а должен определяться по точкам данных, поэтому
                                                   T       
               FT Fc  FT y  0                   F  Fc  FT y ,
             
а вектор     c* , доставляющий минимум вектору невязок, должен опреде-
ляться решением нормальной системы уравнений
                                                     
                        Ac  b , где A  F F , а b  FT y .
                                          T


Решение задачи C. Разместим коэффициенты системы с рис. 1.4 в ячей-
ках диапазона B2:D4 (см. рис. 1.7), а коэффициенты нормальной систе-
     
мы Ac  b с расширенной матрицей Ab, будем хранить в ячейках диа-
пазона E2:G3. Для заполнения указанного диапазона (а также элементов
матрицы Ab) можно использовать следующий программный код:

     Sub Ab()                                                
                                                           Ac  b 
      For i = 1 To 2
        For j = 1 To 3                                     3 3  с1  1
                                                           3 5  с   2
             S=0                                                2  
             For k = 1+1 To 1+3 ' - строки матр. F         с1  0,166667 с2  0,5
               S = S + Cells(k, i) * Cells(k, j)                   Рис. 1.6.
             Next k
             Cells(i+1, j + 4) = S ' заполнение матр. Ab
        Next j
      Next i
     End Sub


                                              26

Страницы