How do I plot on the same graph z=cos(x)*sin(y) and z=1?
Plot3D[{1, Cos[x]*Sin[y]}, {x, -3, 3}, {y, -3, 3},
PlotStyle -> Opacity[0.5], Mesh -> False]
You may try this:
Z1[x_,y_]:=1;
Z2[x_,y_]:=Cos[x]*Sin[y];
Plot3D[{Z1[x,y],Z2[x,y]},{x,-3,3},{y,-3,3}]