Uddrag af worksheet lavet af:

David W. Boyd
Department of Economics
Denison University
Granville, OH 43023
boyd@max.cc.denison.edu

This work was supported in part by
FIPSE Grant No. P116B30079

> restart: with(plots):

Warning, the name changecoords has been redefined

> utility:=X^(1/2)*Y^(1/2);

> plot3d(utility, X=0..10, Y=0..10, axes=boxed, orientation=[-133,65], title=`Cobb-Douglas utility function`);

> plot3d(utility, X=0..10, Y=0..10, axes=normal, orientation=[-90,0], style=contour, color=black, title=`Cobb-Douglas indifference curves`);

> utility:=X^(a)*Y^(1-a);

> animate3d(utility, X=0..10, Y=0..10, a=0.2..0.8, axes=boxed, orientation=[-133,65], style=wireframe);

> animate3d(utility, X=0..10, Y=0..10, a=0.2..0.8, axes=normal, orientation=[-90,0], style=contour, color=black);