Analytische Funktionen als Orthogonaltrajektorien: Die Joukowski-Funktion

Needs["Graphics`ComplexMap`"]

plot1=PolarMap[(1/2)(#+(1/(#)))&,{0.1,1},{0,2π},PlotRange->{-3,3}]

Das Joukowski-Profil

Clear[Realteil,Imaginärteil]

Realteil[f_]:=Simplify[ComplexExpand[Re[f/.z->x+I y],TargetFunctions->Conjugate]]

Imaginärteil[f_]:=Simplify[ComplexExpand[Im[f/.z->x+I y],TargetFunctions->Conjugate]]

u=Realteil[(1/2)(z+(1/z))]

v=Imaginärteil[(1/2)(z+(1/z))]

x=-0.2+1.3Cos[t];
y=0.5+1.3Sin[t];

plot2=ParametricPlot[{u,v},{t,0,2π}]

Clear[x,y]