DSolve[{ D[f[x, y], {x, 2}] + D[f[x, y], {y, 2}] == 0,(* Laplace equation *)
f[0, y] == y,(* Boundary conditions *) f[1, y] == y, f[x, 0] == 0, f[x, 1] == 1 }, f, {x, y}](* Solve for f[x,y] *)
DefManifold[M, 2, IndexRange[a, f]]
DefChart[B, M, {1, 2}, {x[], y[]}]
DefParameter[t]
DefTensor[u[], {M, t}]
ParamD[t][u[]] == 1
PD[-a][u[]] == 0
DSolve[{
ParamD[t][u[]] == 1,
PD[-a][u[]] == 0
},
u[], t]