BISEKZIOA

1.

f[x_]=x^2-cos[x/2]-Exp[x-2]+1

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

8 eta 10 tartean erroa ---- hurbilketa egin, luzera  0,1  edo  txikiagoa  izanik

For[a=8.;b=10.;luzera=b-a;tol=0.1;i=1,luzera>tol,i++ ,c=(a+b)/2; If[f[a]*f[c]<0,b=c,a=c];luzera=b-a;Print[i,"garren tartea [",a,",",b,"] eta luzera = ",luzera]]

2.

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

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

0 eta 2 ren artean erro bat
%25eko zehaztasunarekin burutu (errore erlatiboa)

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

3.

f[x_]=x*Exp[x]-1

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

Erro bat dago 0 -1 tartean
luzera <0,1

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