Continue Fluiddynamics and begin with Thermodynamics

2 files changed, 66 insertions, 0 deletions

diff --git a/fig/prandtl-boundary.tex b/fig/prandtl-boundary.tex
new file mode 100644
index 0000000..90e3657
--- /dev/null
+++ b/fig/prandtl-boundary.tex
@@ -0,0 +1,37 @@
+\begin{tikzpicture}
+    \pgfmathsetmacro{\k}{.8}
+    \pgfmathsetmacro{\lpos}{.5} 
+    \pgfmathsetmacro{\l}{5} 
+    \pgfmathsetmacro{\vpos}{2}
+    
+    % block
+    \draw[fill] (\lpos,0) rectangle ++(\l,-.2);
+    \draw[<->]  (\lpos,-.4) -- node[midway, below] {\(\ell\)} ++(\l,0);
+    
+    % boundary line and area
+    \fill [domain=0:\l, variable=\t, smooth, red!10]
+        (\lpos,0)
+        -- plot ({\lpos + \t},{\k*sqrt(\t)})
+        -- (\lpos + \l,0)
+        -- cycle;
+    
+    \draw[domain=0:\l, variable=\t, smooth, thick, red] (0,0)
+        plot ({\lpos + \t},{\k*sqrt(\t)});
+    
+    % height
+    \pgfmathsetmacro{\h}{\k*sqrt(\l)}
+    \draw[<->] (\lpos,0) ++(\l,0) -- node[midway, right] {\(h\)} ++(0,\h);
+        
+    % velocity vectors
+    \draw[dashed]    (\vpos,0) -- ++(0,2);
+    \draw[->, thick] (\vpos, 1.5) -- node[at start, anchor=east, left] {\(v_0\)} ++(1,0);
+    \draw[->, thick] (\vpos, 0.5) -- node[at start, anchor=east, left] {\(v_x\)} ++(.3,0);
+    
+    % text
+    \node at (4,.5) {mitgezogen};
+    \node at (4,2) {keine Wirkung};
+    
+    % axis
+    \draw[->] (-.5,0) -- (\l + 1.5,0) node[anchor=west] {\(x\)};
+    \draw[->] (0,-.5) -- (0,2.5) node[anchor=south] {\(y\)};
+\end{tikzpicture}
diff --git a/fig/van-der-waals-maxwell-isotherm.tex b/fig/van-der-waals-maxwell-isotherm.tex
new file mode 100644
index 0000000..f938d78
--- /dev/null
+++ b/fig/van-der-waals-maxwell-isotherm.tex
@@ -0,0 +1,29 @@
+\begin{tikzpicture}
+\pgfmathsetmacro{\a}{8000}
+\pgfmathsetmacro{\b}{.9}
+\pgfmathsetmacro{\R}{8.313}
+\pgfmathsetmacro{\n}{1}
+\pgfmathsetmacro{\T}{247}
+\pgfmathsetmacro{\dT}{30}
+
+\begin{axis}[
+        width = \linewidth,
+        height = 6cm,
+        ylabel = Druck \(p(V)\),
+        xlabel = Volumen \(V\),
+        ytick = {0}, xtick = {1},
+        yticklabels = {0},
+        xticklabels = {},
+        ymax = 1000,
+        samples = 200,
+        domain = 1:15, 
+    ]
+    
+    \pgfplotsinvokeforeach{0,1,2,...,6}{
+        \addplot[gray, variable=\V]
+            {(\n*\R*(\T+#1*\dT))/(\V-\n*\b)-(\n^2*\a)/(\V^2)};
+    }
+    
+    \addplot[thick,red]{0};
+\end{axis}
+\end{tikzpicture}