// fltk 7Fl_Tile 62 -990 1129 123 [ // fltk N4xcas19Multiline_Input_tabE 62 -990 1129 38 ex:=(x-2)**2*(x+5)/(x**2+x+1); , // fltk N4xcas8EquationE 62 -951 1129 84 ((x-2)^2*(x+5))/(x^2+x+1) ] , // fltk 7Fl_Tile 62 -865 1129 135 [ // fltk N4xcas19Multiline_Input_tabE 62 -865 1129 50 f:=unapply(ex,x); , // fltk N4xcas8EquationE 62 -814 1129 84 (x)->((x-2)^2*(x+5))/(x^2+x+1) ] , // fltk 7Fl_Tile 62 -728 1129 198 [ // fltk N4xcas19Multiline_Input_tabE 62 -728 1129 50 dab:=(x,a,b)->(f(b)-f(a))/(b-a)*(x-a)+f(a); , // fltk N4xcas8EquationE 62 -594 1129 64 (x,a,b)->(f(b)-f(a))/(b-a)*(x-a)+f(a) ] , // fltk 7Fl_Tile 62 -528 1129 125 [ // fltk N4xcas19Multiline_Input_tabE 62 -528 1129 50 exab:=factor(f(x)-dab(x,a,b)); , // fltk N4xcas8EquationE 62 -477 1129 74 ((-a+x)*(b-x)*(17*b*a*x+-20*b*a+-20*b*x+-37*b+-20*a*x+-37*a+-37*x-17))/((x^2+x+1)*(a^2+a+1)*(b^2+b+1)) ] , // fltk 7Fl_Tile 62 -401 1129 131 [ // fltk N4xcas19Multiline_Input_tabE 62 -401 1129 50 ex1:=factor(numer(exab)); , // fltk N4xcas8EquationE 62 -350 1129 80 (x-b)*(a-x)*(17*a*x*b+-20*a*x+-20*a*b+-37*a+-20*x*b+-37*x+-37*b-17) ] , // fltk 7Fl_Tile 62 -268 1129 115 [ // fltk N4xcas19Multiline_Input_tabE 62 -268 1129 50 ex2:=normal(ex1/((x-a)*(x-b))); , // fltk N4xcas8EquationE 62 -217 1129 64 -17*x*b*a-(-(20*x))*b-(-(20*x))*a+37*x-(-(20*b))*a+37*b+37*a+17 ] , // fltk 7Fl_Tile 62 -151 1129 115 [ // fltk N4xcas19Multiline_Input_tabE 62 -151 1129 50 c:=solve(ex2,x); , // fltk N4xcas8EquationE 62 -100 1129 64 (-20*b*a-37*b-37*a-17)/(-17*b*a--20*b--20*a+37) ] , // fltk 7Fl_Tile 62 -34 1129 115 [ // fltk N4xcas19Multiline_Input_tabE 62 -34 1129 50 g:=unapply(c,[a,b]); , // fltk N4xcas8EquationE 62 17 1129 64 ([a,b])->(-20*b*a-37*b-37*a-17)/(-17*b*a+20*b+20*a+37) ] , // fltk 7Fl_Tile 62 83 1129 171 [ // fltk N4xcas19Multiline_Input_tabE 62 83 1129 50 g([2,3]); , // fltk N4xcas8EquationE 62 134 1129 120 "[[2,3]] size() != [a,b] Error: Bad Argument Value" ] , // fltk 7Fl_Tile 62 256 1129 111 [ // fltk N4xcas19Multiline_Input_tabE 62 256 1129 50 est_aligne(point(a,f(a)),point(b,f(b)),point(c,f(c))) , // fltk N4xcas8EquationE 62 307 1129 60 1 ] , // fltk 7Fl_Tile 62 369 1129 51 [ // fltk N4xcas19Multiline_Input_tabE 62 369 1129 50 , ]