Program FlexPDE w zastosowaniu do symulacji pól temperatury

LINE TO (0,b2)
LINE TO CLOSE
TIME 0 BY DeltaCzas TO CzasSym
PLOTS
FOR t = 0 BY DeltaCzas TO CzasSym
{ Plaszczyzny symetrii: x = 0 oraz y = 0 }
GRID(y,z) ON x = 0 AS 'Siatka elementow skonczonych'
GRID(x,z) ON y = 0 AS 'Siatka elementow skonczonych'
GRID(x,y) ON z = 0 AS 'Siatka elementow skonczonych'
CONTOUR(Tp) ON x = 0 AS 'Temperatura'
CONTOUR(Tp) ON y = 0 AS 'Temperatura'
CONTOUR(Tp) ON z = 0 AS 'Temperatura'
VECTOR(q) ON x = 0 AS 'Strumien ciepla'
VECTOR(q) ON y = 0 AS 'Strumien ciepla'
VECTOR(q) ON z = 0 AS 'Strumien ciepla'
ELEVATION(Tp) FROM (0,0,-c1) TO (0,0,c1) AS 'Temperatura'
ELEVATION(Tp) FROM (0,-b1,0) TO (0,b1,0) AS 'Temperatura'
ELEVATION(Tp) FROM (-a1,0,0) TO (a1,0,0) AS 'Temperatura'
HISTORY(Tp) AT (0,0,0) (a1,b1,c1) AS 'Temperatura w centrum i w narozniku' {historia
zmian temperatury w centrum }
HISTORY(Tsred, Tzsred, Twsred) AS 'Srednia temperatura calosci, zbiornika, wypelnienia'
{historia zmian sredniej temperatury + zbiornika + wypelnienia }
SUMMARY
END
REPORT(V) AS 'Calkowita objetosc zbiornika '
REPORT(Vz) AS 'Objetosc zbiornika bez wypelnienia '
REPORT(Vw) AS 'Objetosc wypelnienia '
Przykład 3. Stan nieustalony. Plastikowy zbiornik z próżnią w środku.
TITLE 'Przepływ ciepla'
{ Nieustalony rzeplyw ciepla przez plastikowy zbiornik z proznia w srodku i stojacy na glebie }