Homework 14.1

Clear[a,b]
P[L_,K_]:=1.01 L^0.75 K^0.25
P[2L,2K]
P[L_,K_]:=b L^a K^(1-a)
P[2L,2K]

Clear[x,y]
width=2;
f[x_,y_]:=1+2x^2+2y^2
Plot3D[f[x,y],{x,-width,width},{y,-width,width}]
(* better: *)
Plot3D[f[x,y],{x,-2,2},{y,-2,2},RegionFunction->Function[{x,y,z},f[x,y]≤9],BoxRatios->Automatic]

#46

f[x_,y_]:=Log[x^2+4y^2]
ContourPlot[f[x,y],{x,-width,width},{y,-width,width}]