Решить уравнение методом половинного деления

Дмитрий199 · 13.11.2014, 20:08

Function f(x As Single) As Single
f=1+Cos(x)/(3-Sin(x)-0.5)
End Functioin
Sub решениеуравнения()
Dim x As Integer, y As Integer, y1 As Integer, b As Integer
'Range(a,b)
a=-3
b=3
h=1
For x=a To b Step h
y1=y2
y2=f(x+h)
If y1*y2<=0 Then
Debug.Print x, x+h
'For x=a To x+h
End If
Next
y=f(x)'=(1+Cos(x))/(3-Sin(x) -0.5)
End Sub
Sub coren()

e=0.0001
y1=f(a)
While (b-a)>2*e
x=(a+b)/2
y=f(x)
If y*y1<=0 Then b=x Else a=x
y1=y
Debug.Print x
End Sub

Дмитрий199 · 14.11.2014, 20:27

Помогите пожалуйста решить программу

iks2 · 22.10.2016, 16:03

Ваша функция не имеет корней на заданном вами интервале. Но я привожу вам код на QBasic, где реализован метод половинного деления.

Код:

REM
REM   QBASIC
REM

DECLARE FUNCTION f! (x!)

CLS
a = -3
b = 3
eps = .0001

DO
   x = (a + b) / 2
   IF f(a) * f(x) > 0 THEN a = x ELSE b = x
LOOP UNTIL ABS(a - b) < eps

PRINT "X ="; x
END

FUNCTION f (x)
   f = 1 + COS(x) / (2.5 - SIN(x))
END FUNCTION

13.11.2014, 20:08	#1 (permalink)
Дмитрий199 Новичок Регистрация: 08.11.2014 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Решить уравнение методом половинного деления Function f(x As Single) As Single f=1+Cos(x)/(3-Sin(x)-0.5) End Functioin Sub решениеуравнения() Dim x As Integer, y As Integer, y1 As Integer, b As Integer 'Range(a,b) a=-3 b=3 h=1 For x=a To b Step h y1=y2 y2=f(x+h) If y1y2<=0 Then Debug.Print x, x+h 'For x=a To x+h End If Next y=f(x)'=(1+Cos(x))/(3-Sin(x) -0.5) End Sub Sub coren() e=0.0001 y1=f(a) While (b-a)>2e x=(a+b)/2 y=f(x) If y*y1<=0 Then b=x Else a=x y1=y Debug.Print x End Sub

22.10.2016, 16:03	#3 (permalink)
iks2 Member Регистрация: 22.10.2016 Сообщений: 62 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Ваша функция не имеет корней на заданном вами интервале. Но я привожу вам код на QBasic, где реализован метод половинного деления. Код: REM REM QBASIC REM DECLARE FUNCTION f! (x!) CLS a = -3 b = 3 eps = .0001 DO x = (a + b) / 2 IF f(a) * f(x) > 0 THEN a = x ELSE b = x LOOP UNTIL ABS(a - b) < eps PRINT "X ="; x END FUNCTION f (x) f = 1 + COS(x) / (2.5 - SIN(x)) END FUNCTION

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

14.11.2014, 20:27	#2 (permalink)
Дмитрий199 Новичок Регистрация: 08.11.2014 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите пожалуйста решить программу

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070