Falsa Posição Modificado

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

function r=fpm(a, b, F, E, n)
 x=sym('x');
 formatlong
 if((abs(b-a))<E)
 r=double(b);
 fprintf('\n ‘a raiz é %f’\n', r)
 end
 if(abs(subs(F,x,a))<E)
 r=double(a);
 fprintf('\n ‘a raiz é %f’\n', r)
 end
 if(abs(subs(F,x,b))<E)
 r=double(b);
 fprintf('\n ‘a raiz é %f’\n', r)
 end
 x1=a;
 x2=b;
 for k=1:n
 c=(subs(F,x,x1));
 l=(x1*(subs(F,x,x2))/2)-(x2*(subs(F,x,x2)));
 h=(((subs(F,x,2))/2)-(subs(F,x,x1)));
 x3=l/h;
 if(subs(F,x,x3))<E
 r=double(x3);
 fprintf('\n ‘a raiz é %f’\n', r)
 end
 if((subs(F,x,x3))*c)>0
 x1=x3;
 x2=x2;
 else
 x1=x1;
 x2=x3;
 end
end