falsa Posição

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

function r=fp(a,b,F,E1,E2,n)
 x=sym('x');
 format long
 if(abs(b-a))<E1
 r=double(a);
 fprintf('\nNúmero de interações = %d\n',r)
 return
 end
 if (abs(subs(F,x,a)))<E2
 r=double(a);
 fprintf('\nNúmero de interações = %d\n',r)
 return
 end
 if (abs(subs(F,x,b)))<E2
 r=double(b);
 fprintf('\nNúmero de interações = %d\n',r)
 return
 end
 M=(subs(F,x,a));
 for k=1:n
 x2=(a*(subs(F,x,a))-b*(subs(F,x,b)))/(subs(F,x,a)-(subs(F,x,b)));
 if(subs(F,x,M))>0
 a=x2;
 else
 b=x2;
 end
 if (abs(subs(F,x,x2)))<E2
 r=double(x2);
 fprintf('\nNúmero de interações = %d\n',r)
 return
 end
 if(abs(b-a))<E1
 r=double(a);
 fprintf('\nNúmero de interações = %d\n',r)
 return
 end
 end
end