Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Иттерационные циклы

.docx
Скачиваний:
9
Добавлен:
13.09.2017
Размер:
33.97 Кб
Скачать

Минобрнауки Российской Федерации

Казанский Национальный Технологический Университет

Кафедра химической кибернетики

Лабораторная работа №4

Иттерационные циклы

Выполнили:

Студенты группы 2361-62

Пискунов Андрей, Филипов Руслан

Проверил:

Шулаев М. В.

Казань, 2017

Задача 5.

Решение алгебраических и трансцендентных уравнений методом касательных. Уравнение имеет один корень в интервале [1,2]. Найти значение корня.

Программа на языке EVB

Function fnx(x)

fnx = x ^ 3 - 4 * x + 1

End Function

Sub prog35()

x = Val(InputBox("Введите начальное приближение", "Решение уравнений"))

e = 0.0001: h = 0.01: n = 0

Do

pr = (fnx(x + h) - fnx(x)) / h

x1 = x - fnx(x) / pr

c = Abs(x1 - x)

x = x1

n = n + 1

Loop While c > e

MsgBox "x=" & Format(x, "#.####") & " f(x)=" & Format(fnx(x), "#.######") & " n=" & n

End Sub

При начальном приближении равном 85, результат:

Вывод:Мы научились писать программы для решения алгебраических и трансцендентных уравнений методом касательных.

Самостоятельная работа.

Дана рекуррентная формула: . Начальный член ряда:, a=4.

Вычислить такое, для которого выполняется условие , где = 0.0001.

Решение:

Программа на EVB

Sub prog36()

x = 2

a = 4

e = 0.001

n = 0

Do

x1 = f(x)

c = Abs(x1 - x)

x = x1

If c <= e Then Exit Do

n = n + 1

Loop While c >= e

MsgBox "x1=" & Format(x1, "#.####") & "n=" & n

End Sub

Ответ:

Вывод: Мы научились писать программы для решения рекуррентных выражений.