偏微分方程式をインタラクティブに解いて可視化する
切抜き部分を変更して,長方形上のポアソン(Poisson)方程式をインタラクティブに操作する.
In[1]:=
Manipulate[DynamicModule[{ifun},
ifun = NDSolveValue[{-Laplacian[u[x, y], {x, y}] == 1,
DirichletCondition[u[x, y] == 0., True]},
u, {x, y} \[Element]
RegionDifference[Rectangle[{0, 0}, {1, 1}], Rectangle[p1, p2]]];
ContourPlot[ifun[x, y], {x, y} \[Element] ifun["ElementMesh"],
ColorFunction -> "TemperatureMap"]]
, {{p1, {0.3, 0.2}}, Locator}
, {{p2, {0.5, 0.4}}, Locator}]