The Internet Economy

 

> c:=50+.8*y;

[Maple Math]

> In:=50;

[Maple Math]

> Gn:=120;

[Maple Math]

> Te:=c+In+Gn;

[Maple Math]

> Te:=y;

>

>

> plot({c,In,Gn,Te,age},y=0..1300,color=[black,black,black,black,black]);

[Maple Plot]

>

> y:=-0.25*x^2-0.50*x +42;

[Maple Math]

> plot(y,x=0..12);

[Maple Plot]

> y1:=-0.35*x^2-0.780*x +52;

>

[Maple Math]

>

> plot({y,y1},x=0..14);

[Maple Plot]

>

>