Problema 1

CT[y_] := (1/10) y^3 - 2y^2 + 15y + 10 ;

CV[y_] := (1/10) y^3 - 2y^2 + 15y ;

CVMe[y_] := CV[y]/y ;

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

Print["La curva de oferta de las empresas es su coste marginal a partir del punto en el que cubren sus costes variables"] ;

Print["El mínimo de los costes variables medios es: ", (minCVMe = Minimize[CVMe[y], y])] ;

La curva de oferta de las empresas es su coste marginal a partir del punto en el que cubren sus costes variables

El mínimo de los costes variables medios es:  {5, {y→10}}

Print["La curva de oferta de cada empresa es: ", Reduce[{p == CMa[y], p≥ minCVMe[[1]], ∂_y CMa[y] ≥0}, y, Reals]] ;

La curva de oferta de cada empresa es: p≥5&&y == 20/3 + 1/3 10^(1/2) (-5 + 3 p)^(1/2)

Print["La curva de oferta de la industria es la de cada una de las empresas multiplicada por el número de empresas (suma horizontal, en cantidades)"] ;

La curva de oferta de la industria es la de cada una de las empresas multiplicada por el número de empresas (suma horizontal, en cantidades)


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