Diskussion:Düsenströmung
Zur Navigation springen
Zur Suche springen
Ausflussfunktion in Mathematica
[Quelltext bearbeiten]Psi[x_, k_] := Module[{xp, xc}, If[k > 1, Which[x >= 1, 0, (xc = (2/(k + 1))^(k/( k - 1))) >= x, xc*Sqrt[k*(k + 1)]/2, True, xp = x^(1/k); Sqrt[k*xp*(xp - x)/(k - 1)]] , Which[x >= 1, 0, 1/Sqrt[E] >= x, 1/Sqrt[2*E], True, x*Sqrt[-Log[x]]]]];