"Les quatre opérations";

789+524;

456-789;

58*41;

2/3;

fpprec : 16;

bfloat(%o5);

fpprec : 3;

bfloat(%o5);

sqrt(2);

fpprec:16;

bfloat(%o12);

7^2;

7**2;

8**3;

4/5+3/7;

"Affectations de variables";

a:3;

b:4;

a+b;

a:2+sqrt(5);

b:2-sqrt(5);

a*b;

ratsimp(%);

expand(a*b);

radcan(%o27);

"Définitions de fonctions";

f(x):=2*x+3;

plot2d([f(x),g(x)], [x,-5,5],
 [plot_format, gnuplot],
 [gnuplot_preamble, "set zeroaxis; set grid;"])$

define(g(x),-7*x+1);

f(5);g(5);

"Abscisse du point d'intersection";

solve(f(x)=g(x),x);

f(-2/9);

plot2d([f(x),g(x)], [x,-5,5],
 [plot_format, gnuplot],
 [gnuplot_preamble, "set zeroaxis; set grid;"])$

plot2d([f(x),g(x)], [x,-5,5],
 [plot_format, gnuplot],
 [gnuplot_preamble, "set zeroaxis; set grid;"], [gnuplot_term, ps],
 [gnuplot_out_file, "/media/Nat500Go/Transfert2012-2013/PremiereS1/plot2d.eps"])$

kill(a);kill(b);

"Fonction du second degré";

f(x):=a*x^2+b*x+c;

define(g(x),diff(f(x),x));

"Coordonnées du sommet de la parabole associée";

"A finir : abscisse du sommet, ordonnée et représentation graphique";

solve([g(x)=0], [x]);

"Comment extraire -b/(2*a) de cette équation : rhs = Right-Hand Side";

xS:rhs(first(%o45));

yS:f(xS);

"Coordonnées du sommet de la parabole "; S:[xS,yS];

a:3;b:1;c:-7;

f(x);

plot2d([f(x)], [x,-4,4],
 [plot_format, gnuplot],
 [gnuplot_preamble, "set grid;"])$

 "coordonnées du sommet S"; S:[-b/(2*a),c-b^2/(4*a)];