Cost and Revenue for Monopoly and Monopolistic Competition

This Demonstration shows the cost and revenue situation when an industry is controlled by a monopolist or a monopolistic competitor. You can change the fixed and marginal costs as well as the slope and intercept of the demand function. Variable cost is shown in light blue and profit or loss is in red. Fixed costs are shown in yellow as well as with vertical lines (i.e., for cases in which part of the fixed cost is obliterated by the red loss area). The graph label changes to match the following cases: (1) the firm earns a positive economic profit; (2) the firm earns zero economic profit; (3) the firm produces with a loss; (4) the firm is indifferent between shutting down and producing with a loss (i.e., the firm is just at the shutdown point); and (5) the firm should shut down. The scale on the vertical axis can also be controlled.


  • [Snapshot]
  • [Snapshot]
  • [Snapshot]
  • [Snapshot]
  • [Snapshot]


In the program, replace Manipulate with ControllerManipulate to hide sliders and control all the action with a game controller.
equilibrium output
equilibrium price
demand (linear inverse demand function)
TR total revenue =
MR marginal revenue (derivative of total revenue with respect to output)
MC marginal cost (derivative of total cost with respect to output)
FC fixed cost (i.e., costs that do not depend on the level of output)
VC variable cost (i.e., costs that depend on the level of output)
TC total cost = FC + VC
AVC average variable cost = VC/
ATC average total cost = TC/
Economic Profit = total revenue - total cost
Loss = total cost - total revenue
    • Share:

Embed Interactive Demonstration New!

Just copy and paste this snippet of JavaScript code into your website or blog to put the live Demonstration on your site. More details »

Files require Wolfram CDF Player or Mathematica.

Mathematica »
The #1 tool for creating Demonstrations
and anything technical.
Wolfram|Alpha »
Explore anything with the first
computational knowledge engine.
MathWorld »
The web's most extensive
mathematics resource.
Course Assistant Apps »
An app for every course—
right in the palm of your hand.
Wolfram Blog »
Read our views on math,
science, and technology.
Computable Document Format »
The format that makes Demonstrations
(and any information) easy to share and
interact with.
STEM Initiative »
Programs & resources for
educators, schools & students.
Computerbasedmath.org »
Join the initiative for modernizing
math education.
Step-by-Step Solutions »
Walk through homework problems one step at a time, with hints to help along the way.
Wolfram Problem Generator »
Unlimited random practice problems and answers with built-in step-by-step solutions. Practice online or make a printable study sheet.
Wolfram Language »
Knowledge-based programming for everyone.
Powered by Wolfram Mathematica © 2018 Wolfram Demonstrations Project & Contributors  |  Terms of Use  |  Privacy Policy  |  RSS Give us your feedback
Note: To run this Demonstration you need Mathematica 7+ or the free Mathematica Player 7EX
Download or upgrade to Mathematica Player 7EX
I already have Mathematica Player or Mathematica 7+