Plot3D[Sqrt[-Log[x]]*Cos[y], {x,0,1},{y,-Pi,Pi}]