Problema 2

CTLP[q_] := q^3 - 60q^2 + 1500q ;

CMeLP[q_] := CTLP[q]/q ;

CMaLP[q_] := Evaluate[∂_q CTLP[q]] ;

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

Beneficio[q_, p_] := p q - CTLP[q] ;

Maximize[{Beneficio[q, 975], q≥0}, q]

{12250, {q→35}}

Print["Puesto que hay beneficios positivos (Beneficio[35,975] = ", N[Beneficio[35, 975]], "), la industria no está en equilibrio"] ;

Puesto que hay beneficios positivos (Beneficio[35,975] = 12250.), la industria no está en equilibrio

Print["Tres formas matemáticamente equivalentes de calcular la curva de oferta de la industria a largo plazo"] ;

Reduce[{p == CMaLP[q], Beneficio[q, p] == 0, q>0}, q, Reals]

Reduce[{p == CMaLP[q], CMaLP[q] == CMeLP[q], q>0}, q, Reals]

Minimize[CMeLP[q], q]

Tres formas matemáticamente equivalentes de calcular la curva de oferta de la industria a largo plazo

p == 600&&q == 30

p == 600&&q == 30

{600, {q→30}}

Print["El número de empresas es: ", Solve[{p == 600, Q == n * 30, p == 9600 - 2 Q}, n]] ;

El número de empresas es:  {{n→150}}


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