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[1]:=
![Click for copyable input](assets.de/model-the-flow-of-heat-in-an-insulated-bar/In_84.png)
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[2]:=
![Click for copyable input](assets.de/model-the-flow-of-heat-in-an-insulated-bar/In_85.png)
bc = {Derivative[1, 0][u][0, t] == 0, Derivative[1, 0][u][1, t] == 0};
Spezifizieren Sie eine Anfangsbedingung.
In[3]:=
![Click for copyable input](assets.de/model-the-flow-of-heat-in-an-insulated-bar/In_86.png)
ic = u[x, 0] == 20 + 80 x;
Lösen Sie die Wärmegleichung unter diesen Bedingungen.
In[4]:=
![Click for copyable input](assets.de/model-the-flow-of-heat-in-an-insulated-bar/In_87.png)
sol = DSolve[{heqn, bc, ic}, u[x, t], {x, t}]
Out[4]=
![](assets.de/model-the-flow-of-heat-in-an-insulated-bar/O_39.png)
Extrahieren Sie die Terme aus der Inactive-Summe.
In[5]:=
![Click for copyable input](assets.de/model-the-flow-of-heat-in-an-insulated-bar/In_88.png)
approxsol =
u[x, t] /. sol[[1]] /. {Infinity -> 4} // Activate // Expand
Out[5]=
![](assets.de/model-the-flow-of-heat-in-an-insulated-bar/O_40.png)
Visualisieren Sie den Temperaturverlauf bis hin zum stationären Zustand von 60°.
In[6]:=
![Click for copyable input](assets.de/model-the-flow-of-heat-in-an-insulated-bar/In_89.png)
Plot[Table[approxsol, {t, 0.02, 0.9, 0.07}] // Evaluate, {x, 0, 1},
AxesOrigin -> {0, 0}, PlotRange -> All]
Out[6]=
![](assets.de/model-the-flow-of-heat-in-an-insulated-bar/O_41.png)