Diskussion:Düsenströmung

aus Wikipedia, der freien Enzyklopädie
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]]]]];