Problema 8

CTLP[q_] := q^3/100 - 12/10q^2 + 111q ;

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

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

Null

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

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

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 == 75&&q == 60

p == 75&&q == 60

{75, {q→60}}

Print["El número de empresas es: ", Solve[{p == 75, Q == n * 60, Q == 6000 - 20p}, n]] ;

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

Clear[p, Q, Benef] ;

Reduce[{p == CMaLP[q], Q == 60 * q, Q == 6000 - 20p, Benef == Beneficio[q, p], q≥0}, {p, Q, Benef}, Backsubstitution→True]

q == 70&&p == 90&&Q == 4200&&Benef == 980


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