// xcas version=0.8.6 fontsize=12 font=0 currentlevel=5 // fltk 7Fl_Tile 10 -85 851 411 12 0 [ // fltk N4xcas7EditeurE 10 -85 851 325 12 0 455 , denombrer(a,b,c):={ //Déclaration des variables locales local delta,f,x,C1,C2; //Définition de la fonction f f(x):=piecewise(x<0,0,x==0,1,x>0,2); //Définitions de deux messages C1:="Le nombre de racine de ce trinôme est " C2:=". Pour info, son discriminant est égal à " //a, b et c sont les coeffcients d'un trinôme ax²+bx+c si a==0 alors return "Erreur, a doit être non nul !!!"; sinon delta:=b^2-4*a*c; return C1+f(delta)+C2+delta; fsi } :;, // fltk N4xcas10Log_OutputE 10 240 851 66 12 0 // Parsing f£// Success compiling f£// Parsing denombrer£// Success compiling denombrer£ , // fltk N4xcas8EquationE 10 306 851 20 12 0 1 "Done" ] , // fltk 7Fl_Tile 10 328 851 49 12 0 [ // fltk N4xcas19Multiline_Input_tabE 10 328 851 20 12 0 denombrer(1,0,2); , // fltk N4xcas10Log_OutputE 10 348 851 1 12 0 , // fltk N4xcas8EquationE 10 348 851 29 12 0 1 "Le nombre de racine de ce trinôme est 0. Pour info, son discriminant est égal à -8" ] , // fltk 7Fl_Tile 10 379 851 43 12 0 [ // fltk N4xcas19Multiline_Input_tabE 10 379 851 22 12 0 denombrer(2,-4,2) , // fltk N4xcas10Log_OutputE 10 401 851 1 12 0 , // fltk N4xcas8EquationE 10 402 851 20 12 0 1 "Le nombre de racine de ce trinôme est 1. Pour info, son discriminant est égal à 0" ] , // fltk 7Fl_Tile 10 424 851 43 12 0 [ // fltk N4xcas19Multiline_Input_tabE 10 424 851 22 12 0 denombrer(1,-5,6) , // fltk N4xcas10Log_OutputE 10 446 851 1 12 0 , // fltk N4xcas8EquationE 10 447 851 20 12 0 1 "Le nombre de racine de ce trinôme est 2. Pour info, son discriminant est égal à 1" ] , // fltk 7Fl_Tile 10 469 851 43 12 0 [ // fltk N4xcas19Multiline_Input_tabE 10 469 851 22 12 0 denombrer(2,-20,51) , // fltk N4xcas10Log_OutputE 10 491 851 1 12 0 , // fltk N4xcas8EquationE 10 492 851 20 12 0 1 "Le nombre de racine de ce trinôme est 0. Pour info, son discriminant est égal à -8" ] , // fltk 7Fl_Tile 10 514 851 23 12 0 [ // fltk N4xcas19Multiline_Input_tabE 10 514 851 22 12 0 , // fltk N4xcas10Log_OutputE 10 536 851 1 12 0 ] // context 2566 giac archive 7 0 8 8 0 0 'cas_setup' 7 0 11 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 7 0 2 1 »½×Ùß|Û= 1 V瞯Ò< 0 12 0 7 0 4 0 1 0 0 50 0 0 0 0 0 25 0 0 0 0 0 1 0 0 0 0 8 0 0 'xyztrange' 7 0 16 1 $À 1 $@ 1 $À 1 $@ 1 $À 1 $@ 1 $À 1 $@ 1 $À 1 $@ 1 ffffffö¿ 1 š™™™™™ñ? 0 1 0 1 1 ð? 0 1 0 7 0 0 7 0 0 8 0 15 7 0 2 8 0 0 program 7 0 3 7 1 3 6 1 a 6 1 b 6 1 c 7 1 3 0 2 0 0 -20 0 0 51 0 8 0 42 7 0 2 7 1 5 6 5 delta 6 1 f 6 1 x 6 2 C1 6 2 C2 7 0 4 8 0 15 7 0 2 8 0 0 program 7 0 3 7 1 1 6 1 x 0 -8 0 8 0 0 'piecewise' 7 1 6 8 0 35 7 1 2 6 1 x 0 0 0 0 0 0 8 0 0 '==' 7 1 2 6 1 x 0 0 0 0 1 0 8 0 37 7 1 2 6 1 x 0 0 0 0 2 0 6 1 f 8 0 15 7 0 2 12 39 |Le nombre de racine de ce trinôme est 6 2 C1 8 0 15 7 0 2 12 43 |. Pour info, son discriminant est égal à 6 2 C2 8 0 -1 si 7 0 3 8 0 0 '==' 7 1 2 6 1 a 0 0 0 8 0 0 'bloc' 7 0 1 8 0 43 12 32 |Erreur, a doit être non nul !!! 8 0 0 'bloc' 7 0 2 8 0 15 7 0 2 8 0 1 7 0 2 8 0 7 7 0 2 6 1 b 0 2 0 8 0 2 8 0 4 7 1 2 8 0 4 7 1 2 0 4 0 6 1 a 6 1 c 6 5 delta 8 0 43 8 0 1 7 0 4 6 2 C1 8 0 0 of 7 0 2 6 1 f 6 5 delta 6 2 C2 6 5 delta 6 9 denombrer 8 0 15 7 0 2 8 0 0 program 7 0 3 7 1 3 6 1 a 6 1 b 6 1 c 7 1 3 0 1 0 0 2 0 0 1 0 8 0 42 7 0 2 7 1 1 6 5 delta 7 0 1 8 0 -1 si 7 0 3 8 0 0 '==' 7 1 2 6 1 a 0 0 0 8 0 0 'bloc' 7 0 1 8 0 43 12 31 |Erreur, a doit être non nul!!! 8 0 0 'bloc' 7 0 2 8 0 15 7 0 2 8 0 1 7 0 2 8 0 7 7 0 2 6 1 b 0 2 0 8 0 2 8 0 4 7 1 2 8 0 4 7 1 2 0 4 0 6 1 a 6 1 c 6 5 delta 8 0 -1 si 7 0 3 8 0 35 7 1 2 6 5 delta 0 0 0 8 0 0 'bloc' 7 0 1 8 0 43 8 0 1 7 0 2 12 73 |Le trinôme n'a pas de racines réelles car le discriminant est égal à 6 5 delta 8 0 0 'bloc' 7 0 1 8 0 43 8 0 1 7 0 2 12 83 |Le trinôme possède au moins une racine réelle car le discriminant est égal à 6 5 delta 6 1 f 8 0 15 7 0 2 8 0 0 program 7 0 3 7 1 3 6 1 a 6 1 b 6 1 c 7 1 3 0 1 0 0 2 0 0 2 0 8 0 42 7 0 2 7 1 2 6 5 delta 6 9 denombrer 7 0 1 8 0 -1 si 7 0 3 8 0 0 '==' 7 1 2 6 1 a 0 0 0 8 0 0 'bloc' 7 0 1 8 0 43 12 32 |Erreur, a doit être non nul !!! 8 0 0 'bloc' 7 0 3 8 0 15 7 0 2 8 0 1 7 0 2 8 0 7 7 0 2 6 1 b 0 2 0 8 0 2 8 0 4 7 1 2 8 0 4 7 1 2 0 4 0 6 1 a 6 1 c 6 5 delta 8 0 15 7 0 2 8 0 0 program 7 0 3 7 1 1 6 1 x 0 -4 0 8 0 0 'piecewise' 7 1 6 8 0 35 7 1 2 6 1 x 0 0 0 0 0 0 8 0 40 7 1 2 6 1 x 0 0 0 0 1 0 8 0 37 7 1 2 6 1 x 0 0 0 0 2 0 6 9 denombrer 8 0 43 8 0 1 7 0 4 12 39 |Le nombre de racine de ce trinôme est 8 0 0 of 7 0 2 6 9 denombrer 6 5 delta 12 43 |. Pour info, son discriminant est égal à 6 5 delta 6 1 g 8 0 0 'xcas_mode' 0 0 0