Компьютерное моделирование процессов и аппаратов пищевой, био- и химической технологии в среде FlexPDE. Дворецкий С.И - 31 стр.

UptoLike

Рубрика: 

Рис. 18 Конечное распределение температурного поля
TITLE ' Heat transport'
VARIABLES
u(threshold=0.1)
DEFINITIONS
k=0.3
INITIAL VALUES
u=300
EQUATIONS
u: div(k*grad(u)) = dt(u)
BOUNDARIES
REGION 1 'REGION1'
start( 95., 149.)
value(u)=0 line to ( 185., 149.)
value(u)=0 arc(center= 185., 154.) angle= 90.
line to ( 190., 214.)
arc(center= 185., 214.) angle= 90.
line to ( 95., 219.)
arc(center= 95., 214.) angle= 90.
line to ( 90., 154.)
arc(center= 95., 154.) angle= 90.
start( 190., 149.)
line to ( 190., 149.)
start( 105., 209.)
value(u)=0 arc(center= 100., 209.) angle= 360.
start( 105., 159.)
value(u)=0 arc(center= 100., 159.) angle= 360.
start( 185., 209.)
value(u)=0 arc(center= 180., 209.) angle= 360.
start( 185., 159.)
value(u)=0
arc(center= 180., 159.) angle= 360.
TIME 0 TO 400
PLOTS
For cycle=10
contour(u)
surface(u)