1)
Привести
уравнение к сходящейся итерационной форме (Найти q,h и x= φ(x))
2)
Уточнить
корни методом итераций с точностью 10-6. Сравнить число итераций с
предыдущими результатами
program lab_two
real eps,x0,x1,q,h,d
integer N
eps=1.0e-6
q= !Ваше значение q
h= !Ваше значение h
x0= ! Ваше значение x0
N=0
do
x1=x0
x0=x1-h*f(x1)
N=N+1
if
(abs(x1-x0)<(1-q)*eps/q.or.N>1000) exit
end do
print*,x0,N !Вывод х0 и числа итераций
pause
end
real function f(z)
real z
f= !Ваша функция φ(x)
end
function f