The Internet Economy

 

Econ 407, sept. 20, 1999, lecture notes and more examples of a application of derivatives.

> TR:=75*Q-4*Q^2;

[Maple Math]

> plot(75*Q-4*Q^2,Q=0..20);

[Maple Plot]

> mr:=diff(75*Q-4*Q^2,Q);

[Maple Math]

> plot({TR,mr},Q=0..20);

[Maple Plot]

> TC:=Q^2+7*Q+23;

[Maple Math]

> plot({TR,TC},Q=0..20);

[Maple Plot]

> PR:=TR-TC;

[Maple Math]

> plot(PR,Q=0..20);

[Maple Plot]

> DPR:=diff(PR,Q);

[Maple Math]

> solve(DPR,Q);

[Maple Math]

> MC:=diff(TC,Q);

[Maple Math]

> solve(MC=mr,Q);

[Maple Math]

>

> R:=4000*Q-33*Q^2;

[Maple Math]

> C:=2*Q^3-3*Q^2+400*Q+5000;

[Maple Math]

> P:=R-C;

[Maple Math]

> DP:=diff(3600*Q-30*Q^2-2*Q^3-5000,Q);

[Maple Math]

> solve(DP=0,Q);

[Maple Math]

> plot({R,C},Q=0..50);

[Maple Plot]

> plot({R,C},Q=-50..50);

[Maple Plot]

> Qd:=1400-p^2;

[Maple Math]

> plot(Qd,p=0..50);

[Maple Plot]

> dQp:=diff(Qd,p);

[Maple Math]

> eval(Qd,p=20);

[Maple Math]

> el:=-2*20*20/1000.0;

[Maple Math]

>