ВУЗ:
Составители:
Рубрика:
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);
у
х
.
.
.
.
Страницы
- « первая
- ‹ предыдущая
- …
- 19
- 20
- 21
- 22
- 23
- …
- следующая ›
- последняя »