Problema 5

Clear[CT] ;

CT1[y_] := y^3 + 12y + 185 ;

CT2[y_] := 2y^2 + 12y + 140 ;

CT3[y_] := 4y^2 + 20y + 100 ;

Beneficio[CT_, y_, p_] := p * y - CT[y] ;

CMa[CT_] := Evaluate[∂_y CT[y]] ;

CMe[CT_] := CT[y]/y ;

Print["Tres formas matemáticamente equivalentes de calcular el precio cuando el beneficio es 0"] ;

Reduce[{p == CMa[CT3], Beneficio[CT3, y, p] == 0, y>0}, {y, p}, Backsubstitution→True]//N

Reduce[{p == CMa[CT3], CMa[CT3] == CMe[CT3], y>0}, {y, p}, Backsubstitution→True]//N

Minimize[{CMe[CT3], y≥0}, y]//N

Tres formas matemáticamente equivalentes de calcular el precio cuando el beneficio es 0

y == 5.&&p == 60.

y == 5.&&p == 60.

{60., {y→5.}}

[Graphics:../HTMLFiles/index_114.gif]

Print["El beneficio de la primera empresa, dado que el precio es igual a 60, es: " , Maximize[{Beneficio[CT1, y, 60], y≥0}, y]] ;

El beneficio de la primera empresa, dado que el precio es igual a 60, es:  {-57, {y→4}}

[Graphics:../HTMLFiles/index_118.gif]

Print["El beneficio de la segunda empresa, dado que el precio es igual a 60, es: " , Maximize[{Beneficio[CT2, y, 60], y≥0}, y]] ;

El beneficio de la segunda empresa, dado que el precio es igual a 60, es:  {148, {y→12}}

[Graphics:../HTMLFiles/index_122.gif]


Created by Mathematica  (March 18, 2007) Valid XHTML 1.1!