# Ejercicio  08.15

kill(all)$

Designamos por x la base del marco rectangular y por y la altura. El perímetro total será la suma de dos bases, 
dos alturas, el diámetro x del círculo y la longitud de la semicircunferencia, que tiene un radio x/2.
Calculamos la altura del marco rectangular:

Eq1:L=2*x + 2*y + x + (1/2)*(2*%pi*(x/2));

L = L : 8.428 $      
solve([Eq1], y);

y=y: -((125*%pi+750)*x-2107)/500  ;

y(x):= (2107-(125*%pi+750)*x)/500 ;

Área de la parte cuadrada:

A1=A1:x*y;

Área de la parte semicircular:

A2=A2:%pi*(x/2)^2 / 2;

Área de la ventana (área de iluminación):

A=A:A1+A2;

ratsimp(%);

A(x):= -((125*%pi+1500)*x^2-4214*x)/1000  ;

diff(A(x), x);

DA(x):= (4214-2*(125*%pi+1500)*x)/1000 ;

Eq2:DA(x)=0;        solve([Eq2], x);        solve([Eq2], x), numer;

x0:2107/(125*%pi+1500);   y0=y(x0);

ratsimp(%);

x0, numer;   y(x0), numer;    A(x0);    A(x0), numer;

diff(DA(x), x);

Derivada segunda negativa ==> máximo

wxplot2d([A(x)], [x, 0, 2])$