Project Help Notebook by Keith Stroyan

Help NoteBook Copyright 1998 by Academic Press, Inc. - All rights reserved.
Modify this Notebook to prepare your project report.

Project 28: Monopoly Pricing

by A. Student and B. Pupil

with technical help from Da LabMonitor and Help Notebook

Initialization

Needs["Graphics`Colors`"];

My Project Introduction

Write this last.  Begin with the basic question and state your main finding clearly, but with few technical details.  You might even modify the title of this section to make it more interesting.

Beginning Explorations or Computer Experiments

Piecewise Demand

The following Mathematica code gives the demand functions described in section 28.1 of the print project.  Add your explanation of variables and functions here.

Variables

Houses

Apartments

The Graphs

\(Clear[p, q, h, a, Subscript]; 

    q\_h[p_] := \ 50 /; \ p ≤ 100; 

    q\_h[p_] := \ 100 - p\/2 /; 100 < \ p ≤ 200; 

    q\_h[p_] := \ 0 /; \ p > 200; 

    houses = Plot[q\_h[p], {p, 0, 210}, AxesLabel -> {"p", "q"}, 
        PlotStyle -> Orange]; 
q\_a[p_] := \ 50 - p\/3 /; p < 150; 

    q\_a[p_] := \ 0\  /; \ p ≥ \ 150; 

    apartments\  = \ 
      Plot[q\_a[p], {p, 0, 210}, AxesLabel -> {"p", "q"}, 
        PlotStyle -> Blue]; 

    total = \ Plot[q\_h[p] + q\_a[p], {p, 0, 210}, 
        AxesLabel -> {"p", "q"}, PlotStyle -> DarkGreen]; 

    Show[houses, apartments, total]; \)

Hint 28.3

Read the project and work this hint.

revenue =  
      Plot[p ((Subscript[q, h])[p] + (Subscript[q, a])[p]), {p, 0, 210}, 
        AxesLabel -> {"p", "$"}, PlotStyle -> Brick];

Hint 28.5

Read the project and work this hint.

Hint 28.7

Read the project and work this hint.

Hint 28.8

Read the project and work this hint.

Hint 28.10

Read the project and work this hint.

Hint 28.11

Read the project and work this hint.