End Sub. Далее переходим в реда

End Sub

Do

End Sub

Do

End Sub

Do

End Function

End Function

Этап. Уточнение корней

Далее переходим в редактор Visual Basic (Сервис – Макрос – Редактор Visual Basic, Вставка – Модуль) и набираем программы по приведенным в лекциях алгоритмам [1].

Function fnx(x)

fnx = x ^ 3 + x - 3

Function fnfi(x)

fnfi = (3 - x) ^ (1 / 3)

Sub методполдел()

a = 1: b = 2: e = 0.0001

n = 0

x = (a + b) / 2

f1 = fnx(a)

f2 = fnx(b)

If f1 * f2 > 0 Then a = x Else b = x

n = n + 1

Loop While Abs(b - a) > e

x = (a + b) / 2

Worksheets("лист1").Range("e7").Value = x

Worksheets("лист 1").Range("f7").Value = fnx(x)

Worksheets("лист ").Range("g7").Value = n

Sub методкасательных()

e = 0.0001

n = 0: H = 0.00001

x = Val(InputBox("Ввод x", "Начальное приближение"))

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

Worksheets("лист1").Range("a15").Value = x

Worksheets("лист1").Range("b15").Value = fnx(x)

Worksheets("лист1").Range("c15").Value = n

Sub методхорд()

e = 0.0001

n = 0

x = Val(InputBox("Ввод x", "Начальное приближение"))

p = Val(InputBox("Ввод p", "Начальное приближение"))

x1 = x - fnx(x) * (x - p) / (fnx(x) - fnx(p))

c = Abs(x1 - x)

x = x1

n = n + 1

Loop While c > e

Worksheets("лист1").Range("j1").Value = x

Worksheets("лист1").Range("k1").Value = fnx(x)

Worksheets("лист1").Range("l1").Value = n

Sub Метод_простой_итерации()

x = 2

e = 0.001

n = 0

Do

x1 = (-x ^ 3 + 2 * x ^ 2 - 3) / 7

'x1 = Sqr((x ^ 3 + 7 * x + 3) / 2)

'x1 = (2 * x ^ 2 - 7 * x + 3) ^ (1 / 3)

c = Abs(x - x1)

x = x1

n = n + 1

Loop While c <= e

With Worksheets("Лист1")

.Range("E5").Value = x

.Range("F5").Value = f(x)

.Range("G5").Value = n

End With

Для запуска программ нажать на кнопку или на Run.

Полученный результат находится на Листе 1.

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