On considère un écoulement permanent irrotationnel d'un fluide supposé incompressible autour d'un cylindre de rayon R. Les conditions aux limites à l'infini sont données par la figure 1, c'est-à-dire un champs de vitesse uniforme de direction l'axe des x. La présence du cylindre impose à la vitesse particulaire d'être tangente au cylindre pour tous les points de sa surface.
[dsolve].
[dsolve]:
[diff]. Considérant que le champs des vitesses doit être
tangent au cylindre pour r=R, déterminer la valeur de B.
les applications numériques et graphiques se font avec
et R=1, en définissant par exemple l'ensemble
AN:={v0=10,R=1};
plots[fieldplot]. Pour faire disparaître
le champs de vecteur à l'intérieur du cylindre, on multipliera le
champs de vecteur par
l'expression Heaviside(r^2/R^2-1) qui vaut 0 à l'intérieur du
cylindre et 1 à l'extérieur du cylindre.
On pourra s'aider des instructions suivantes pour le tracé des
isopotentielles de
:
> AN := {R=1,v0=10}:
> psi := (r-R^2/r)*sin(theta);
> r_th := solve(psi=cte/5,r);
> r_an1:= subs(AN,r_th[1]): r_an2:= subs(AN,r_th[2]):
> courbe1:={seq([r_an1,theta,theta=0.1..Pi-0.1],cte=0..10)}:cte:='cte':
> courbe2:={seq([r_an2,theta,theta=0.1..Pi-0.1],cte=-10..0)}:cte:='cte':
> plot(courbe1 union courbe2,x=-2..2,y=-2..2,coords=polar);