Завдання до лабораторної роботи 13

Розв’язання рівнянь методом послідовних наближень

Лабораторна робота 13

Завдання до лабораторної роботи 12

1. Створити форму, що містить 3 одностовпцевих і 3 багатостовпцевих списки. Заповнити списки, застосовуючи вивчені методи.

2. Створити форму, що містить 3 елементи Listbox, 1 елемент Combobox і дві командних кнопки з написами «→» «←» (вправо, уліво). По натисканню цих кнопок обраний елемент переміщається з Listbox1 у Listbox2 і назад. Combobox1 заповнити з діапазону робочого листа. Передбачити додавання елемента, що не міститься в списку, використовуючи поле введення Combobox1. Доданий елемент передати в робочий лист. Listbox3 заповнити з діапазону змінної величини.

Одним з методів об'єкта Range є метод Goalseek, за допомогою якого можна обчислити з заданою точністю корінь рівняння f(x)=0, застосовуючи метод послідовних наближень. Результат обчислень, узагалі кажучи, залежить від початкового наближення, тому задавати його потрібно коректно.

Синтаксис методу:

Об'єкт. Goalseek (Goal, Changing Cell)

Аргументи:

Об'єкт – чарунка, у яку уведена формула, що є ліва частина розв'язуваного рівняння. У формулі роль невідомої величини відіграє посилання на чарунку, зазначену в аргументі Changing Cell.

Goal (ціль) – значення, що повинне обчислити формула, тобто значення правої частини рівняння.

Changing Cell – посилання на чарунку, відведену під невідому величину. Значення, уведене в дану чарунку до активізації методу Goalseek, розглядається як початкове наближення до шуканого кореня.

Наприклад: установити в чарунку ”B1” значення, яке дорівнює 3, змінюючи значення чарунки ”A1”.

Range(”B1”).Goalseek(goal:=3, changing cell:=Range(”A1”))

Точність, з яким знаходиться корінь, і гранично припустиме число ітерацій, використовуваних для перебування кореня, установлюється властивостями MaxChange і Maxiterations об'єкта Application. Наприклад, визначення кореня з точністю до 0,0001 максимум за 1000 ітерацій встановлюється інструкцією:

With Application

. Maxiterations=1000

. Maxchange=0.0001

End With

Результат обчислення кореня зберігається в чарунці, зазначеній в аргументі Changingсell методу.

Метод Goalseek повертає значення TRUE, якщо розв’язок знайдений і FALSE, якщо розв’язок не знайдений.

Створіть додаток для розв’язання рівняння f(x)=0 методом Goalseek.

Під час конструювання додатка створіть вікно діалогу з чотирма написами, чотирма полями введення, лічильником і трьома стовпчиками.

Під час уведення в Textbox2 лівої частини рівняння формула повинна починатися зі знака рівності. Для правильного позначення невідомої величини символом ”x” дайте осередку, що містить початкове наближення, ім'я ”x”.

Поле Textbox4 зробіть недосяжним для користувача.

Встановіть значення властивостей Spinbutton1 у процедурі для події Initialize.

Поле Textbox3 служить для введення точності обчислення кореня, тому в процедурі Spinbutton1_Сhаngе() властивості.Text потрібно привласнити відповідне значення, пов'язане з лічильником.

Кнопка Commandbutton1 повинна виконувати основну роботу: зчитувати початкове наближення, ліву частину рівняння, точність обчислення кореня;

обчислити корінь; відформатувати його з урахуванням точності обчислення; вивести значення кореня вTextbox4. Кнопка CommandButton2 повинна очистити поле введення. Кнопка CommandButton3 призначена для виходу з додатка.

Дата добавления: 2014-12-27