Добавил:
NLapina
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:контрольные работы 7 вариант / 4 / kas
.m function kas(f,f1,f2,a,b,eps)
if feval(f,a)*feval(f2,a,f)>0
x0=a;
else
x0=b;
end;
x1=x0-feval(f,x0)/feval(f1,x0,f);
k=1;
while abs(x1-x0)>eps
x0=x1;
x1=x0-feval(f,x0)/feval(f1,x0,f);
k=k+1;
end;
x=x1
k
fx=feval(f,x1)
if feval(f,a)*feval(f2,a,f)>0
x0=a;
else
x0=b;
end;
x1=x0-feval(f,x0)/feval(f1,x0,f);
k=1;
while abs(x1-x0)>eps
x0=x1;
x1=x0-feval(f,x0)/feval(f1,x0,f);
k=k+1;
end;
x=x1
k
fx=feval(f,x1)