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

UptoLike

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

53
Рис. 3.11.
щей с начальной (i=0 нулевой) точкой. Для данного случая K=M+1, и
площадь вычисляется как в предыдущем примере:
S = 0 ' Вычисление площади круга:
For i = 1 To M
S = S + Xs(i - 1) * Ys(i) - Xs(i) * Ys(i - 1)
Next i
S = 0.5 * Abs(S): Cells(2, 10) = S ' Запись значение площади а ячейку J2
Расчѐт проводился при M=30. VBA-код и результаты расчѐта см. в
файле Пример_3_5.xlsm папки Examples, упомянутой в приложении.
3.5. Задачи
1. Профиль
штампованной детали
(«стаканчика») показан
на рис. 3.11. Изобразить
профиль на диаграмме и
записать вычисленную
величину объѐма
«стаканчика» в ячейку
листа Excel.
2. Размеры L, H, R, d профиля, изображѐнного
на рис. 3.12, заданны в ячейках диапазона A2:D2.
Изобразить на диаграмме профиль заданных раз-
меров и записать в ячейку E2 величину площади
профиля.
3. Размеры L, H, R, d профиля, изображѐнного
на рис. 3.13, заданны в ячейках диапазона A2:D2.
Изобразить на диаграмме профиль заданных раз-
меров и записать в ячейку E2 величину площади
профиля.
4. Размеры L, H, R, d сечения зуба рейки, изо-
бражѐнного на рис. 3.14, заданны в ячейках диапа-
зона A2:D2. Изобразить на диаграмме сечение зуба
Рис. 3.12.
Рис. 3.13.
щей с начальной (i=0 – нулевой) точкой. Для данного случая K=M+1, и
площадь вычисляется как в предыдущем примере:
S=0                      ' Вычисление площади круга:
For i = 1 To M
 S = S + Xs(i - 1) * Ys(i) - Xs(i) * Ys(i - 1)
Next i
S = 0.5 * Abs(S): Cells(2, 10) = S               ' Запись значение площади а ячейку J2
Расчѐт проводился при M=30. VBA-код и результаты расчѐта см. в
файле Пример_3_5.xlsm папки Examples, упомянутой в приложении.
                3.5. Задачи
1. Профиль
штампованной      детали
(«стаканчика») показан
на рис. 3.11. Изобразить
профиль на диаграмме и
записать вычисленную
                                                          Рис. 3.11.
величину         объѐма
«стаканчика» в ячейку
листа Excel.
2. Размеры L, H, R, d профиля, изображѐнного
на рис. 3.12, заданны в ячейках диапазона A2:D2.
Изобразить на диаграмме профиль заданных раз-
меров и записать в ячейку E2 величину площади
профиля.
3. Размеры L, H, R, d профиля, изображѐнного
на рис. 3.13, заданны в ячейках диапазона A2:D2.
                                                                         Рис. 3.12.
Изобразить на диаграмме профиль заданных раз-
меров и записать в ячейку E2 величину площади
профиля.
4. Размеры L, H, R, d сечения зуба рейки, изо-
бражѐнного на рис. 3.14, заданны в ячейках диапа-
зона A2:D2. Изобразить на диаграмме сечение зуба

                                            53                            Рис. 3.13.