// xcas version=0.6.0 fontsize=16 // fltk 7Fl_Tile 24 11 1636 367 16 [ // fltk N4xcas7EditeurE 24 11 1636 296 16 245 , dicho(f,p,a,b):={ local aa,bb,k; aa:=a; bb:=b; k:=0; while( (bb-aa)>p) { if (sign((f((bb+aa)/2)))=sign((f(bb))) ) bb:=((aa+bb)/2); else aa:=((aa+bb)/2); k:=k+1; } return evalf((bb+aa)/2)+" est la solution trouvée après " +k+ " itérations"; }:; , // fltk N4xcas10Log_OutputE 24 307 1636 36 16 // Parsing dicho£// Success compiling dicho£ , // fltk N4xcas8EquationE 24 343 1636 35 16 "Done" ] , // fltk 7Fl_Tile 24 380 1636 62 16 [ // fltk N4xcas19Multiline_Input_tabE 24 380 1636 26 16 Digits:=30:;dicho(x->x^2-2,10^(-30),1,2) , // fltk N4xcas10Log_OutputE 24 406 1636 1 16 , // fltk N4xcas8EquationE 24 407 1636 35 16 "Done","1.414213562373095048801688724209 est la solution trouvée après 100 itérations" ] , // fltk 7Fl_Tile 24 444 1636 27 16 [ // fltk N4xcas19Multiline_Input_tabE 24 444 1636 26 16 , // fltk N4xcas10Log_OutputE 24 470 1636 1 16 ] , // fltk 7Fl_Tile 24 473 1636 367 16 [ // fltk N4xcas7EditeurE 24 473 1636 296 16 233 , Newton(f,p,u0):={ local un,aun,fp,k; fp:=function_diff(f); k:=0; aun:=u0; un:=u0-f(u0)/fp(u0); while (abs(un-aun)>p) { aun:=un; un:=un-f(un)/fp(un); k:=k+1; } return evalf(un)+" est la solution trouvée après "+ k +" itérations"; }:; , // fltk N4xcas10Log_OutputE 24 769 1636 36 16 // Parsing Newton£// Success compiling Newton£ , // fltk N4xcas8EquationE 24 805 1636 35 16 "Done" ] , // fltk 7Fl_Tile 24 842 1636 81 16 [ // fltk N4xcas19Multiline_Input_tabE 24 842 1636 26 16 Digits:=30:;Newton(x->x^2-2,10^(-30),1) , // fltk N4xcas10Log_OutputE 24 868 1636 20 16 // Success£ , // fltk N4xcas8EquationE 24 888 1636 35 16 "Done","1.414213562373095048801688724209 est la solution trouvée après 6 itérations" ] , // fltk 7Fl_Tile 24 925 1636 27 16 [ // fltk N4xcas19Multiline_Input_tabE 24 925 1636 26 16 , // fltk N4xcas10Log_OutputE 24 951 1636 1 16 ]