Состав сооружений: решетки и песколовки: Решетки – это первое устройство в схеме очистных сооружений. Они представляют...
Индивидуальные очистные сооружения: К классу индивидуальных очистных сооружений относят сооружения, пропускная способность которых...
Топ:
Оценка эффективности инструментов коммуникационной политики: Внешние коммуникации - обмен информацией между организацией и её внешней средой...
История развития методов оптимизации: теорема Куна-Таккера, метод Лагранжа, роль выпуклости в оптимизации...
Выпускная квалификационная работа: Основная часть ВКР, как правило, состоит из двух-трех глав, каждая из которых, в свою очередь...
Интересное:
Искусственное повышение поверхности территории: Варианты искусственного повышения поверхности территории необходимо выбирать на основе анализа следующих характеристик защищаемой территории...
Уполаживание и террасирование склонов: Если глубина оврага более 5 м необходимо устройство берм. Варианты использования оврагов для градостроительных целей...
Влияние предпринимательской среды на эффективное функционирование предприятия: Предпринимательская среда – это совокупность внешних и внутренних факторов, оказывающих влияние на функционирование фирмы...
Дисциплины:
2021-04-18 | 96 |
5.00
из
|
Заказать работу |
Для вычисления определённого интеграла с использованием пользовательской формы необходимо в среде VBA, применяя объекты панели Toolbox, создать платформу UserForm, как показано на рис. 1.4.1.
Рис. 1.4.1
Организация взаимодействия объектов, находящихся на платформе UserForm, определяется модулем, программно поддерживающим объект CommandButton1 (Вычислить).
Для рассматриваемого примера этот модуль имеет вид:
Private Sub CommandButton1_Click()
Dim a As Double
Dim b As Double
Dim n As Integer
If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Or Not IsNumeric(TextBox3) Then
MsgBox " Нецифровые данные"
Exit Sub
End If
a = CDbl(TextBox1)
b = CDbl(TextBox2)
n = CDbl(TextBox3)
If OptionButton1 Then
TextBox4 = Prym(a, b, n)
TextBox5 = Trap(a, b, n)
TextBox6 = Simp(a, b, n)
End If
End Sub
Некоторые комментарии к программе:
– фрагмент программы
If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Or Not IsNumeric(TextBox3) Then
MsgBox " Не цифровые данные"
Exit Sub
End If
проверяет принадлежность данных, вводимых через объекты TextBox 1, TextBox 2 и TextBox 3 к цифровому типу;
– если включён объект OptionButton 1, то в объекты TextBox 4, TextBox 5 и TextBox 6 соответственно выводятся результаты функционирования модулей Prym (a, b, n), Trap (a, b, n) и Simp (a, b, n), то есть значения определённого интеграла, соответствующего варианту задания, вычисленного методом прямоугольников, методом трапеций и методом Симпсона.
Достоинством применения пользовательской формы является то, что в ней можно изменять пределы интегрирования и точность.
На рис. 1.4.2 показан пример увеличения точности вычисления определённого интеграла при разбиении на 10000 прямоугольников, трапеций, криволинейных трапеций. Как видно, значения, полученные в результате вычислений разными методами, сближаются.
Недостатком можно считать то, что вычисления возможны только для одного интеграла, точнее для одной подынтегральной функции.
Рис. 1.4.2
Калькулятор для вычисления определённых интегралов
Для вычисления нескольких видов определённого интеграла с использованием пользовательской формы можно предложить калькулятор, показанный на рис. 1.5.1.
Рис. 1.5.1
Выбор интеграла осуществляется с помощью объектов OptionButton, при этом в объектах TextBox, обеспечивающих ввод пределов интегрирования и число разбиений, устанавливается некоторый вариант, который при необходимости можно изменить.
Так при выборе интеграла вида
устанавливается вариант расчета при a = 0, b = 1 и N = 20.
При выборе других интегралов, устанавливаются варианты пределов интегрирования и разбиений в соответствии с модулями, программно поддерживающими объекты OptionButton 2 и OptionButton 3.
Private Sub OptionButton 1_ Click ()
TextBox1 = "0"
TextBox2 = "1"
TextBox3 = "20"
End Sub
Private Sub OptionButton2_Click()
TextBox1 = "0"
TextBox2 = "2"
TextBox3 = "10"
End Sub
Private Sub OptionButton3_Click()
TextBox1 = "0"
TextBox2 = "1,2"
TextBox3 = "12"
End Sub
Результаты вычислений для метода прямоугольников, метода трапеций и метода Симпсона отображаются в соответствующих объектах TextBox в формате с десятью знаками после десятичной точки.
На рис. 1.5.2 показан пример увеличения точности вычисления определённого интеграла при разбиении на 20000 прямоугольников, трапеций, криволинейных трапеций. Как видно, значения, полученные в результате вычислений разными методами, сближаются.
Рис. 1.5.2
Модуль программно поддерживающий кнопку Вычислить пользовательской формы Вычисление определённого интеграла в VBA имеет вид:
Private Sub CommandButton1_Click()
Dim a As Double
Dim b As Double
Dim n As Integer
Общие условия выбора системы дренажа: Система дренажа выбирается в зависимости от характера защищаемого...
Кормораздатчик мобильный электрифицированный: схема и процесс работы устройства...
Индивидуальные очистные сооружения: К классу индивидуальных очистных сооружений относят сооружения, пропускная способность которых...
Опора деревянной одностоечной и способы укрепление угловых опор: Опоры ВЛ - конструкции, предназначенные для поддерживания проводов на необходимой высоте над землей, водой...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!