Call newto (x1,x2,eps,x,k)

CALL IDRES(X1,X2,EPS,X,K)

10 STOP

END

SUBROUTINE PRITE (A,B,EPS,X,K)

* РЕШЕНИЕ НЕЛИНЕЙНЫХ УРАВНЕНИЙ

* МЕТОДОМ ПРОСТЫХ ИТЕРАЦИЙ

F1=ABS (FJ1 (A))

IF (F1.GE.1.) GO TO 2

F2=ABS (FJ1 (B))

IF (F2.GE.1.) GO TO 4

PRINT*, ‘ВВЕДИТЕ ДОПУСКАЕМУЮ

*ПОГРЕШНОСТЬ EPS ’

READ (5,*) EPS

K= 0

X0 = (A+B)* 0.5

1 X = FJ (X0)

K= K+1

IF (ABS (F(X)).LE. EPS) GO TO 5

IF (ABS (X-X0).LE. EPS) GO TO 5

X0 = X

GO TO 1

2 PRINT 3, F1

3 FORMAT (3X,’ЕСЛИ ПЕРВАЯ ПРОИЗВОДНАЯ

*ЭКВИВАЛЕНТНОГО УРАВНЕНИЯ’,

*’FJ1=’,F8.2,’ >1 ’/ 3X,’ТО МЕТОД ПРОСТЫХ

*ИТЕРАЦИЙ, К РЕШЕНИЮ ДАННОГО

*УРАВНЕНИЯ, НЕПРЕМЕНИМ’)

GO TO 5

4 PRINT 3,F2

5 RETURN

END

FUNCTION F(X)

* Решаемое уравнение

F=X-COS(X)-.25

END

FUNCTION F J (X)

* Эквивалентное уравнение

F J =COS(X)+0.25

END

FUNCTION F J1 (X)

* Производная эквивалентного уравнения

F J1 = -SIN(X)

END

Примечания. 1. Все подпрограммы, вызываемые главной программой, должны быть записаны в одном файле с главной программой.

2. Текст подпрограммы OTKOR приведен в приложении 1,

подпрограммы IDRES – в приложении 2.

Выбрать из таблицы уравнение для решения

ПРИЛОЖЕНИЕ 6

Для лабораторных работ №1,2,3,4,5 трансцендентные уравнения выбираются из таблицы 1, а алгебраические - из таблицы 2, соот-ветствующие № в списке журнала посещаемости группы.

Таблица 1

№ п.п	Уравнение	№ п.п	Уравнение
1.	x - sinx = 0,25	14.	x + ln(x +0,5) – 0,5 = 0
2.	tg (0,58x + 0,1) = x2	15.	x2 – sin 5x = 0,3
3.	√x – cos (0,387x) = 0	16.	1/x = sinx
4.	lgx – 7 / (2x + 6) = 0	17.	x – sinx = 0,25
5.	tg (0,5x + 0,2) = x	18.	cos (x +0,3) = x2
6.	(x – 3) ∙ cosx = 1	19.	5sinx = x - 1
7.	(x – 1)∙lg (x + 11)= 1	20.	xlgx + (x + 1) = 1
8.	x2 cos2x = - 1	21.	tgx + x = 1
9.	ctgx – x / 5 = 0	22.	xlgx – 1,2 = 0
10.	2lg (– x / 2) + 1 = 0	23.	2x + lgx – 7 =0
11.	x2 + 4sinx = 0,2	24.	tg (0,44x + 0,3) = x2
12.	ctg0,5x – x2 = 0	25.	x2 – sin x = 0,1
13.	tg0,63x – 0,92x = 0,5	26.	x + cos x =1

(повторить п. 2.2 данной методички)

Произвести отделение корней для уравнения вида f(x)=ax³+bx²+cx+d

по формуле: C=1+ Amax/An

где: С = начало отрезка, т.е. Х₀ ;

An = коэффициент при X с наибольшим показателем степени;

Amax = наибольший коэффициент в уравнении - в, с, или d;

(значения коэффициентов указаны в строке каждого из вариантов в таблице 2).

Таблица 2