# Ejercicio 08.1

kill(all)$

## Apartado a)

f(x):=1+(abs(9-x^2)/2);

wxplot2d([f(x)], [x,-6,4])$

La función es continua en todo su dominio.

diff(f(x),x);

Df(x):=(x*(x^2-9))/abs(x^2-9);

wxplot2d([Df(x)], [x,-6,4]);

La Df(x)=x en ]-6,-3[ U ]3,4[ y Df(x)=-x en ]-3,3[. La función f(x) tiene máximos locales en los puntos x=-6,0,4 y mínimos locales en x=-3,3.

Nos fijamos que la función alcanza extremos absolutos en el intervalo siendo el máximo absoluto en x=-6 y el mínimo absoluto en x=-3.3

## Apartado b)

kill(all)$

f(x):=abs(x^2 - 3*x +2);

wxplot2d([f(x)], [x,-10,10], [y, -5, 150])$

wxplot2d([f(x)], [x,0,3] )$

diff(f(x),x);

Df(x):=(2*x-3)*(x^2-3*x+2)/abs(x^2-3*x+2);

wxplot2d([Df(x)],[x,-1,3]);

La Df(x)=x en ]-10,1[, ]2,10[ y Df(x)=-x en ]1,2[