ю Сімпсона. Її точність залежить від. Чим більше кількість розбиття відрізка інтегрування, тим вище точність обчислень.
Фактично нам треба оформити функцію обчислення заданого певного інтеграла на Visual Basic 6.0 методом Сімпсона. Назвемо функцію metod_Simpson. При виклику функції задаються параметрами будуть down_predel - нижня межа інтегрування, up_predel - верхня межа інтегрування, chislo_razb - число розбиття відрізка інтегрування. Програмний код функції буде виглядати так:
Function metod_Simpson (ByVal a1 As Single, ByVal b1 As Single, ByVal n As Long) As Doubleh As Singles As Doublei As Longx As Single=(b1 - a1)/n=F (a1, Io) + F (b1 , Io) + 4 * F (a1 + h, Io) i=1 To Int (n/2) - 1=a1 + 2 * h * i=s + 2 * F (x, Io) + 4 * F ( x + h, Io) i_Simpson=s * h/3Function
Фактичні параметри down_predel, up_predel, chislo_razb відповідають формальним параметрам a, b, n. В основі лежить формула Сімпсона. Сума перших трьох доданків у цій формулі є початковим значенням змінної. Далі пробігаємо по всьому відрізку інтегрування, крім кінцевих смужок, і накопичуємо суму. Наприкінці множимо її на. Результат і буде потрібним значенням певного інтеграла. Далі присвоюємо імені функції значення змінної.
Створення програми
При запуску Microsoft Visual Basic 6.0 автоматично вискакує вікно з пропозицією створити новий проект Standard EXE. Натискаємо OK. Почнемо створення проекту з титульного аркуша. Для цього в меню Project виберемо команду Add Form. У діалоговому вікні виберемо Dialog і натиснемо OK. У формі розставимо об'єкти: Label1, Label2, ..., Label8, як показано на малюнку (див. Рис. 3).
Рис. 3 Титульний лист
алгоритм обчислення визначений інтеграл
Привласнимо властивості Caption значення Титульний лист. На кнопку Вхід напишемо наступний програмний код:
Sub OKButton_Click () Dialog.ShowSub
При натисканні на кнопці Вхід з пам'яті вивантажується форма Dialog і завантажується базова форма, службовка початковою точкою для всіх операцій з програмою, форма Form1. Для того, щоб створити форму Form1, в меню Project виконаємо команду Add Form. У діалоговому вікні виберемо Form і натиснемо OK. Клацнемо правою кнопкою миші на панелі інструментів, виберемо вкладку Components, завантажимо нестандартні інструменти, які знадобляться в майбутньому: Microsoft Windows Common Controls 6.0. Привласнимо властивості Caption форми Form1 значення Курсовий проект - Тема 7 варіант 9 (знаходження товщини шару). Створимо меню для проекту. Для цього в меню Tools виконаємо команду Menu Editor. У діалоговому вікні напишемо назви пунктів меню і назви процедур, які будуть запускатися при виконанні команд меню. Редактор меню з введеними іменами представлений на малюнку (див. Рис. 4).
Рис. 4 Редактор меню
Опишемо, які процедури виконуються в кожному пункті меню.
. MnuFileExit - здійснює вихід із програми.
Sub MnuFileExit_Click () Sub
Рис. 5
. MnuFileSave_rez - здійснює збереження результату експерименту. Результат зберігається у файлі log.txt, куди записується використовуваний метод, нижня межа інтегрування, верхня межа інтегрування, кількість розбиття відрізка інтегрування, обчислене значення інтеграла, справжнє значення інтеграла, похибка обчислень.
Sub MnuFileSave_rez_Click () metod As StringOption1.Value Then= Метод трапецій = Метод Сімпсона If log.txt For Output As # 1 # 1, ЗВІТ ПО виконання обчислень # 1, Використовуваний метод: raquo ;, metod # 1, Час спостереження: raquo ;, up_predel # 1, Кількість розбиття відрізка інтегрування: raquo ;, chislo_razb # 1, Обчислення значення інтеграла: raquo ;, znach_integrala # 1, Істинне значення інтеграла: raquo ;, istinnoe_znach_integrala (down_predel, up_predel) # 1, Похибка обчислення: raquo ;, Abs (istinnoe_znach_integrala (down_predel , up_predel) - znach_integrala) # 1=MsgBox ( Звіт збережений успішно! amp; Chr (10) amp; Chr (13) amp; для перегляду звіту: Файл gt; gt; Перегляд звіту ,, Звіт ) Sub
. MnuFileLook_rez - здійснює вивід на екран раніше збереженого результату, якщо попередньо його зберегли.
Sub MnuFileOpen_rez_Click (). Show 1, Form1Sub
При виконанні цієї процедури завантажується форма Form3, на якій знаходиться об'єкт PictureBox1, в який виводиться збережений звіт. Для виведення звіту існує кнопка «Завантажити звіт». Програмний код Form3:
stroka As StringSub cmdBack_Click () Form3SubSub cmdLoadLog_Click () Error GoTo Err log.txt For Input As # 1i=1 To 8I...
