Решение уравнения методом Ньютона в Maple

@Аларик · Регистрация: 09.06.2012

Студворк — интернет-сервис помощи студентам

само уравнение выглядит так cos(0.14*x^2+14)-sin(0.14*x-14)

все что смог сделать

a[0]:=2;
b[0]:=3;
e:=0.001;

fp:=unapply(diff(f(x),x),x);
ff:=unapply(diff(f(x),x$2),x);

if f(a[0])*ff(a[0])>0 then x[0]:=a[0] else x[0]:=b[0] end if:
for i from 0 do x[i+1]:=x[i]-f(x[i])/fp(x[i]) while abs(x[i]-x[i+1])>e do x[i+1]:=x[i]-f(x[i])/fp(x[i])
end do;

@VSI · 17.09.2014, 22:41

Держите...

@Аларик 1 / 1 / 0 Регистрация: 09.06.2012 Сообщений: 8
		1
	Решение уравнения методом Ньютона в Maple 17.09.2014, 16:51. Показов 4980. Ответов 1 Метки метод ньютона (Все метки) само уравнение выглядит так cos(0.14x^2+14)-sin(0.14x-14) все что смог сделать a[0]:=2; b[0]:=3; e:=0.001; fp:=unapply(diff(f(x),x),x); ff:=unapply(diff(f(x),x$2),x); if f(a[0])*ff(a[0])>0 then x[0]:=a[0] else x[0]:=b[0] end if: for i from 0 do x[i+1]:=x[i]-f(x[i])/fp(x[i]) while abs(x[i]-x[i+1])>e do x[i+1]:=x[i]-f(x[i])/fp(x[i]) end do; 0

	17.09.2014, 22:41

Опции темы