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

 Cells(j + 2, 7) = Xs(j): Cells(j + 2, 8) = Ys(j)      ' запись координат точек
Next j                                              ' окружности в ячейки G2:H32
End Sub
  После выполнения этой процедуры выделяем диапазон G2:H32 c рас-
считанными Xs,Ys-координатами параметрического сплайна, выбираем
на ленте Вставка, Диаграммы, Точечная с гладкими кривыми и получа-
ем изображение «окружности». Можно на полученную диаграмму вы-
брать точки исходных данных и, назначив для них точечную диаграм-
му     с   маркерами,     получить    картинку,     показанную    на
рис. 3.3. Для изображѐнных на рис. 3.3 трѐх дуг, опирающихся на цен-
тральный угол в 120°, длина p вектора касательной (отнесѐнная к дли-
не хорды) принята p  4 / 3  1,333. Для углов 90° и 60° рекомендуется
соответственно принимать p  4  2 2  1,172 и p  8  4 3  1,072.
Пример 3.4.
Размеры B, R, d контура сечения уголка, изображѐнного на рис. 3.6, за-
даны в ячейках диапазона A2:С2 (см. рис. 3.7). Пред-
ставить на диаграмме контур заданных размеров и за-
писать в ячейки J2:N2 величины: площадь S сечения,
координаты Xcт, Ycт его центра «масс» («тяжести»)
и главные моменты инерции Jcx, Jcy.

                                                                          Рис. 3.6.
Решение. Способ 1. Подготовим данные для построе-
ния контура с помощью сплайн-кривой. Начнѐм с концов дуги скругле-
ния, и вместе с координатами точек (в ячейках A4:B5) укажем состав-
ляющие векторов касательных на концах дуги четверти окружности (в
ячейках D4:E5). Затем укажем координаты остальных точек, последова-
тельно обход контур против часовой стрелки. Заметим, что на концах
отрезков прямых также должны указываться векторы касательных в
данном случае можно указать векторы нулевой длины или, как
сделано здесь, в остальных ячейках диапазона D6:E11 ничего не указы-
вать (иметь значение Empty ≡ 0).



                                             48