User Portlet
| Discussions |
|---|
| Could you please help me? n = Input["n=?"]; h = 2/n; Table[u[0, j] = 0, {j, 1, n}]; Table[u[n, j] = j*h*(2 - j*h), {j, 1, n}]; Table[u[i, 0] = 0, {i, 1, n}]; Table[u[i, n] = i h, {i, 0, Floor[n/2]}]; ... |