I want to solve the following 2D-PDE using NDsolve and plot it, I did:
ClearAll["Global`*"]
(*Source term*)
f = E^(-3 t)
Sin[\[Pi] x] Sin[\[Pi] y] (2 E^(2 t) (-1 + \[Pi]^2) +
Sin[\[Pi] x]^2 Sin[\[Pi] y]^2);
(*Create a Domain*)
\[CapitalOmega]2D = Rectangle[{0, 0}, {1, 1}];
dc2 = DirichletCondition[u[x, y, t] == 0, y == 0];
dc3 = DirichletCondition[u[x, y, t] == 0, y == 1];
nv2 = NeumannValue[-E^-t \[Pi] Sin[\[Pi] y], x == 0];
nv3 = NeumannValue[-E^-t \[Pi] Sin[\[Pi] y], x == 1];
sol = First@
NDSolve[{D[u[t, x, y], t] == (-(u[t, x, y])^3 + u[t, x, y]) +
D[D[u[t, x, y], x], x] + D[D[u[t, x, y], y], y] + f,
u[0, x, y] == Sin[\[Pi] x] Sin[\[Pi] y], dc2, dc3, nv2, nv3},
u, {t, 0, 1}, {x, 0, 1}, {y, 0, 1}]