/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ /* [ Created with wxMaxima version 12.08.0 ] */ /* [wxMaxima: input start ] */ f(x):=(x+3)^2*(3-x); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ diff(f(x),x,1); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ ratsimp(%); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ factor(%); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ expand(%); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ solve([%], [x]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ f(-3); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ f(1); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ f(0); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ f(3); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ " Si x appartient a [0;3], alors f(x) appartient a [0;32] "; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ "Aire du trapeze ABMN : (BA+NM)/2*h"; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ A(x):=(6+2*x)/2*(9-x^2)/2; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ ratsimp(%); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ "A(x)=f(x)/2 donc A admet un minimum sur [0;3] pour x=1"; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ A(1); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxplot2d([A(x)], [x,0,3])$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ plot2d([A(x)], [x,0,3], [plot_format, gnuplot])$ /* [wxMaxima: input end ] */ /* Maxima can't load/batch files which end with a comment! */ "Created with wxMaxima"$