Matlab - Problema a optimizar

clear all

syms b h

%base del rectangulo: b

%ancho del retangulo: h

%radio de la circunferncia: r=b/2

Area_maxima_b_h=b*h+((b/2)^2*pi)/2

perimetro=2*h+b+pi*(b/2)-12

H=solve(perimetro, 'h')

Area_b=expand(subs(Area_maxima_b_h,h,H))

derivada_Area_b=diff(Area_b,b)

b=solve(derivada_Area_b,'b');

r=b/2;

h=subs(H,b);

d=diff(derivada_Area_b)

if d<0

    disp(' Como d<0 entonces los valores hallados  b, h, y r  permiten que entren mayor luz por la ventana')

    display(b), display(h), display(r)

end

>> minizacion_luz_en_ventana

Area_maxima_b_h =

(pi*b^2)/8 + h*b

perimetro =

b + 2*h + (pi*b)/2 - 12

H =

6 - (pi*b)/4 - b/2

Area_b =

6*b - (pi*b^2)/8 - b^2/2

derivada_Area_b =

6 - (pi*b)/4 - b

d =

- pi/4 - 1

 Como d<0 entonces los valores hallados  b, h, y r  permiten que entren mayor luz por la ventana

b =

24/(pi + 4)

h =

6 - (6*pi)/(pi + 4) - 12/(pi + 4)

r =

12/(pi + 4)

clear all

syms b h

%base del rectangulo: b

%ancho del retangulo: h

%radio de la circunferncia: r=b/2

Area_maxima_b_h=b*h+((b/2)^2*pi)/2

perimetro=2*h+b+pi*(b/2)-12

H=solve(perimetro, 'h')

Area_b=expand(subs(Area_maxima_b_h,h,H))

derivada_Area_b=diff(Area_b,b)

b=solve(derivada_Area_b,'b');

r=b/2;

h=subs(H,b);

d=diff(derivada_Area_b)

if d<0

    disp(' Como d<0 entonces los valores hallados  b:base, h:altura, y r:radio  permiten que entren mayor luz por la ventana')

    disp('DIMENSIONES DE VENTANA')

    base=double(b);  altura=double(h); radio=double(r)

    display(base), display(altura), display(radio)

end

>> minizacion_luz_en_ventana

Area_maxima_b_h =

(pi*b^2)/8 + h*b

perimetro =

b + 2*h + (pi*b)/2 - 12

H =

6 - (pi*b)/4 - b/2

Area_b =

6*b - (pi*b^2)/8 - b^2/2

derivada_Area_b =

6 - (pi*b)/4 - b

d =

- pi/4 - 1

 Como d<0 entonces los valores hallados  b:base, h:altura, y r:radio  permiten que entren mayor luz por la ventana

DIMENSIONES DE VENTANA

radio =

    1.6803

base =

    3.3606

altura =

    1.6803

radio =

    1.6803