|
MENSAGENS
|
 |
FINALmENTE CHEGOU!
TEMOS O PODCASTING.
A PARTIR DE HOJE VOCÊS PODEM RECEBER AS NOSSAS MENSAGENS SEMANAIS AUTOMATICAMENTE NO SEU FEED READER. SE NÃO TIVER UM, PODE USAR ESTA FERRAMENTE DO gOOGLE OU DO MS OUTLOOK. O CODIGO NECESSÁRIO É: http://www.wolf.internetbasedfamily.COm/f/feed_upload_note_pad.txt
VOLTAR |
|
|
|
Manipulate[
cost = a q^3 + b q^2 + c q + d;
mc = D[cost, q];
vc = cost - d;
avc = vc/q;
atc = cost/q;
breakeven = q /. ToRules[Reduce[D[atc, q] == 0, q, Reals]];
shutdown = q /. ToRules[Reduce[D[avc, q] == 0, q, Reals]];
totalplot =
Plot[{Tooltip[d, "fixed cost"], Tooltip[vc, "variable cost"],
Tooltip[cost, "total cost"]}, {q, 0, 1000},
PlotRange -> {0, 125000}, AspectRatio -> 1, ImageSize -> 250,
AxesLabel -> {"Q", "cost"},
PlotLabel -> Style["total cost curves", 14],
Ticks -> {Automatic, {0, 25000, 50000, 75000, 100000, 125000}},
PlotStyle -> {{Thick, RGBColor[.48, .11, .56]}, {Thick,
RGBColor[.6, .73, .36]}, {Thick, RGBColor[.33, .6, .7]}},
Epilog -> {
Text["FC", {950, d + 5000}],
Text["VC", {800, (vc /. q -> 800) - 10000}],
Text["TC", {800, (cost /. q -> 800) + 10000}]
}];
marginalplot =
Plot[{Tooltip[mc, "marginal cost"],
Tooltip[avc, "average variable cost"],
Tooltip[atc, "average total cost"]}, {q, 0, 1000},
PlotRange -> {{-275, 1000}, {-25, 120}}, AspectRatio -> 1,
ImageSize -> 250, AxesLabel -> {"Q", "cost"},
PlotLabel -> Style["average and marginal cost curves", 14],
Ticks -> {{0, 200, 400, 600, 800, 1000}, {0, 30, 60, 90, 120}},
PlotStyle -> {{Thick, RGBColor[1, .47, 0]}, {Thick,
RGBColor[.6, .73, .36]}, {Thick, RGBColor[.33, .6, .7]}},
Epilog -> {
Tooltip[{Thin, Dashed,
Line[{{breakeven, 0}, {breakeven, atc /. (q -> breakeven)}}]},
"min. atc (breakeven)"],
Tooltip[{Thin, Dashed,
Line[{{shutdown, 0}, {shutdown, avc /. (q -> shutdown)}}]},
"min. avc (shut down)"],
Tooltip[{Thin, Dashed,
Line[{{0, atc /. (q -> breakeven)}, {breakeven,
atc /. (q -> breakeven)}}]}, "min. atc (breakeven)"],
Tooltip[{Thin, Dashed,
Line[{{0, avc /. (q -> shutdown)}, {shutdown,
avc /. (q -> shutdown)}}]}, "min. avc (shut down)"],
Text[Round[breakeven], {breakeven, -12}],
Text[Round[shutdown], {shutdown, -20}],
Text[Round[atc /. q -> breakeven], {-125, atc /. q -> breakeven}],
Text[Round[avc /. q -> shutdown], {-225, avc /. q -> shutdown}],
Text["MC", {200, (mc /. q -> 200) - 10}],
Text["AVC", {925, (avc /. q -> 800) - 5}],
Text["ATC", {925, (atc /. q -> 800) + 15}]}];
Column[{
Text@Style[
Row[{"short-run cost curves for the total cost function ",
Style["a", Italic], " ", Style["Q", Italic]^3, " + ",
Style["b", Italic], " ", Style["Q", Italic]^2, " + ",
Style["c", Italic], " ", Style["Q", Italic], " + ",
Style["d", Italic]}], 16],
GraphicsArray[{totalplot, marginalplot}]
}, Center],
{{a, .00007}, .00005, .0001, .000001,
Appearance -> "Labeled"}, {{b, -.06}, -.08, -.05, .0001,
Appearance -> "Labeled"}, {{c, 50}, 50, 100, 1,
Appearance -> "Labeled"}, {{d, 3000 |
|
|
|
|
|
