Wolfram言語

偏微分方程式

偏微分方程式をインタラクティブに解いて可視化する

切抜き部分を変更して,長方形上のポアソン(Poisson)方程式をインタラクティブに操作する.

In[1]:=
Click for copyable input
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}]
動画を開始
動画を中止

関連する例

de en es fr ko pt-br ru zh