Wolfram Language

Partielle Differentialgleichungen

Modellieren Sie den Wärmefluss in einem isolierten Balken

Modellieren Sie den Wärmefluss in einem Balken der Länge 1, der an beiden Enden isoliert ist.

In die Zwischenablage kopieren.
In[1]:=
Click for copyable input
heqn = D[u[x, t], t] == D[u[x, t], {x, 2}];

Spezifizieren Sie, dass durch die Enden des Balkens keine Wärme strömt.

In die Zwischenablage kopieren.
In[2]:=
Click for copyable input
bc = {Derivative[1, 0][u][0, t] == 0, Derivative[1, 0][u][1, t] == 0};

Spezifizieren Sie eine Anfangsbedingung.

In die Zwischenablage kopieren.
In[3]:=
Click for copyable input
ic = u[x, 0] == 20 + 80 x;

Lösen Sie die Wärmegleichung unter diesen Bedingungen.

In die Zwischenablage kopieren.
In[4]:=
Click for copyable input
sol = DSolve[{heqn, bc, ic}, u[x, t], {x, t}]
Out[4]=

Extrahieren Sie die Terme aus der Inactive-Summe.

In die Zwischenablage kopieren.
In[5]:=
Click for copyable input
approxsol = u[x, t] /. sol[[1]] /. {Infinity -> 4} // Activate // Expand
Out[5]=

Visualisieren Sie den Temperaturverlauf bis hin zum stationären Zustand von 60°.

In die Zwischenablage kopieren.
In[6]:=
Click for copyable input
Plot[Table[approxsol, {t, 0.02, 0.9, 0.07}] // Evaluate, {x, 0, 1}, AxesOrigin -> {0, 0}, PlotRange -> All]
Out[6]=

Verwandte Beispiele

Finden Sie heraus, ob Sie durch Ihre Organisation bereits Zugang zu Wolfram-Technologie haben
×