Энерго- и ресурсосберегающие технологии и оборудование защиты окружающей среды. Михалева З.А - 21 стр.

UptoLike

Рубрика: 

5) Задать скорость потока на входе в пылеуловитель и параметры пластины, учитывая, что параметр
r равен половине длины пластины инерционного пылеуловителя.
> U:=1; r:=1;
:= U 1
:=
r
1
6) Подключить графические пакеты Maple.
> with(plots): with(plottools):
7) Построить пластину.
> g1:=line([0,0,0], [0,-2*r,0],
color=red, thickness=2):
8) Получить картину обтекания.
> g2:=complexplot3d(Im(chi), zeta =-4-4*I..4+0*I,
style=contour, orientation=[-90,0],
axes=boxed,color=blue):
9) Отобразить совмещенные графические данные.
> display(g1,g2);
10) Выделить компоненту скорости вдоль оси x.
> ux:=Re(diff(chi,zeta));
:=ux
+
1
2
1
2
ζ
+
ζ
2
4
2
1
2
ζ
2
+
ζ
2
4
ζ
2
+
ζ
2
4
2
2
10) Выделить компоненту скорости вдоль оси y.
> uy:=-Im(diff(chi,zeta));
:=uy
1
2
ζ
+
ζ
2
4
2
1
2
ζ
2
+
ζ
2
4
ζ
2
+
ζ
2
4
2
2
11) Оформить выражение для расчета компонент скорости потока в точках с координатами (x, y) в
виде функций.
> uxf:=(x,y)->subs(zeta=x+I*y,ux);
у
х
.
.
.
.