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

  Программный код для расчета указанных характеристик имеет вид:

Mx = 0: My = 0                                ' Вычисление координат центра масс:
For j = 1 To K
 Mx = Mx + (Xs(i- 1) - Xs(i)) * (Ys(i - 1) ^ 2 + Ys(i - 1) * Ys(i) + Ys(i) ^ 2) / 6
 My = My + (Ys(i - 1) - Ys(i)) * (Xs(i - 1) ^ 2 + Xs(i - 1) * Xs(i) + Xs(i) ^ 2) / 6
Next i
Ycm= Mx / S: Cells(2, 12) = Ycm                      ' запись Ycm в ячейку K2
Xcm = -My / S: Cells(2, 11) = Xcm                   ' запись Ycm в ячейку L2
 Jx = 0: Jy = 0                          ' Вычисление главных моментов инерции:
For i = 1 To K
 Jx = Jx + Abs((Ys(j) ^ 2 + Ys(i - 1) ^ 2) * (Ys(i) + Ys(i - 1)) * (Xs(i) - Xs(i - 1))) /12
 Jy = Jy + Abs((Xs(j) ^ 2 + Xs(j - 1) ^ 2) * (Xs(j) + Xs(j - 1)) * (Ys(j) - Ys(j - 1))) /12
Next i
Jсx = Jx - S * Xzt ^ 2: Cells(2, 13) = Jсx          ' запись Jcx в ячейку M2
Jсy = Jy - S * Yzt ^ 2: Cells(2, 14) = Jсy          ' запись Jcy в ячейку N2
End Sub


После получения в ячейках J2:N2 параметров сечения (см. рис. 3.8)

                       J        K            L          M            N
         1        S=        Xcm=        Ycm=         Jcx=        Jcy=
         2        229,4382 8,873324 8,873324 18637,51 18637,51
                                    Рис. 3.8.
можно показать на диаграмме точку-центр масс. Для этого следует, вы-
делив через контекстное меню легенду, выбрать данные, добавить имя
(Ycm, Xcm) и адреса ячеек K2, L2 с координатами и нажать OK, а за-
тем, выделив только имя легенды (Ycm, Xcm), изменить тип
диаграммы на точечная с маркерами – на диаграмме должна
отобразиться в виде маркера точка – центр «масс».



                                             51