Есть уравнение Пуассона

со следующими краевыми условиями:
![$u(0,y)=u(4,y)=C (\operatorname{const}), \frac{\partial u}{\partial y}(x,0)=\frac{\partial u}{\partial y}(x,2)=0; x\in[0,4], y\in[0,2]$ $u(0,y)=u(4,y)=C (\operatorname{const}), \frac{\partial u}{\partial y}(x,0)=\frac{\partial u}{\partial y}(x,2)=0; x\in[0,4], y\in[0,2]$](https://dxdy-02.korotkov.co.uk/f/d/b/3/db357a813def441d7ec10082ae6db43b82.png)
.
При попытке решить данное уравнение в Mathematica 10 возникли проблемы с этим условием:

. Подскажите, пожалуйста, как исправить.
Код:
NDSolve[{D[u[x, y], x, x] + D[u[x, y], y, y] == 1, u[0, y] == u[4, y] == C1, (D[u[x, y], y] /. y -> 0) == 0, (D[u[x, y], y] /. y -> 2) == 0}, u[x, y], {x, 0, 4}, {y, 0, 2}]