Regula Falsi

1.

f[x_]=Exp[-x]+x^2-10

Plot[f[x],{x,-4,10}]

-1 eta -2 artean erroa

For[a=-2.;b=-1.;tol=0.1;err=tol+1;i=1,err>tol&&i<50,i++,x=(a*f[b]-b*f[a])/(f[b]-f[a]);If[f[a]*f[x]<0,b=x,a=x];err=Abs[(x-xz)/x]*100;Print[i," garren tartea = [",a,",",b,"] eta errorea = ",err];xz=x]

2.

f[x_]=x-Exp[x/5]

Plot[f[x],{x,-10,10}]

1 eta 2 tartean erroa
t=6 zifra esanguratsurekin

For[a=1.;b=2.;i=1;tol=0.1;err=tol+1,i<50&&err>tol,i++,SetPrecision[x,6]=(a*f[b]-b*f[a])/(f[b]-f[a]);err=Abs[(x-xz)/x]*100;If[f[a]*f[x]<0,b=x,a=x];Print[i," garren tartea [",a,",",b,"] eta errorea = ",err];xz=x]

12 eta 13 tartean erroa

For[a=12.;b=13.;i=1;tol=0.1;err=tol+1,i<50&&err>tol,i++,x=SetPrecision[(a*f[b]-b*f[a])/(f[b]-f[a]),6];err=Abs[(x-xz)/x]*100;If[f[a]*f[x]<0,b=x,a=x];Print[i," garren tartea [",a,",",b,"] eta errorea = ",err];xz=x]