1 files changed, 66 insertions, 0 deletions
diff --git a/buch/papers/kra/images/simple_mass_spring.tex b/buch/papers/kra/images/simple_mass_spring.tex
new file mode 100644
index 0000000..868362d
--- /dev/null
+++ b/buch/papers/kra/images/simple_mass_spring.tex
@@ -0,0 +1,66 @@
+% create tikz drawing of a simple mass spring system
+
+\tikzstyle{hmline}=[{Latex[length=3.3,width=2.2]}-{Latex[length=3.3,width=2.2]},line width=0.3]
+\tikzstyle{vmline}=[red, dashed,line width=0.4,dash pattern=on 1pt off 1pt]
+\tikzstyle{ground}=[pattern=north east lines]
+\tikzstyle{mass}=[line width=0.6,red!30!black,fill=red!40!black!10,rounded corners=1,top color=red!40!black!20,bottom color=red!40!black!10,shading angle=20]
+\tikzstyle{spring}=[line width=0.8,blue!7!black!80,snake=coil,segment amplitude=5,line cap=round]
+
+\begin{tikzpicture}[scale=2,>=latex]
+    \newcommand{\ticks}[2]
+    {
+        % arguments: x, y coordinates
+        \draw[thick] (#1, #2 - 0.1 / 2) --++ (0, 0.1);
+    }
+
+    \tikzmath{
+        \hWall = 1.2;
+        \wWall = 0.3;
+        \lWall = 3.5;
+        \hMass = 0.6;
+        \wMass = 1.1;
+        \xMass1 = 1.2;
+        \xMass2 = 2.2;
+        \xAxisYpos = 0;
+        \originX1 = 0;
+        \originY1 = 0.5;
+        \originX2 = 0;
+        \originY2 = -2;
+        \springscale=7;
+    }
+
+    % create x axis
+    \draw[->,thick] (0,\xAxisYpos) --+ (\lWall, 0) node[right]{$x$};
+
+    % create ticks on x axis
+    \ticks{\wWall}{\xAxisYpos}
+    \ticks{\xMass1}{\xAxisYpos}
+    \ticks{\xMass2}{\xAxisYpos}
+
+    % create underground
+    \draw[ground] (\originX1, \originY1) ++ (0, 0) --+(\lWall,0) --+(\lWall, \wWall) --+(\wWall, \wWall) --+(\wWall, \hWall) --+(0, \hWall) -- cycle;
+    \draw[ground] (\originX2, \originY2) ++ (0, 0) --+(\lWall,0) --+(\lWall, \wWall) --+(\wWall, \wWall) --+(\wWall, \hWall) --+(0, \hWall) -- cycle;
+
+    % create masses
+    \draw[mass] (\originX1, \originY1) ++ (\xMass1, \wWall) rectangle ++ (\wMass,\hMass) node[midway] {$m$};
+    \draw[mass] (\originX2, \originY2) ++ (\xMass2, \wWall) rectangle ++ (\wMass,\hMass) node[midway] {$m$};
+
+    % create springs
+    \draw[spring, segment length=(\xMass1 - \wWall) * \springscale] (\originX1, \originY1) ++
+    (\wWall, \wWall + \hMass / 2) --++ (\xMass1 - \wWall, 0) node[midway,above=3.5] {$k$};
+    \draw[spring, segment length=(\xMass2 - \wWall) * \springscale] (\originX2, \originY2) ++
+    (\wWall, \wWall + \hMass / 2) --++ (\xMass2 - \wWall, 0) node[midway,above=3.5] {$k$};
+
+    % create vertical measurement line 
+    \draw[vmline] (\xMass1, \xAxisYpos) --+(0, \originY1 + \wWall);
+    \draw[vmline] (\xMass2, \xAxisYpos) --+(0, \originY2 + \hMass+\wWall);
+    \draw[vmline] (\wWall, \originY1+\wWall) --(\wWall, \originY2 + \hWall);
+
+    % create horizontal measurement line
+    \draw[hmline] (\wWall, \xAxisYpos + 0.2) -- (\xMass1, \xAxisYpos + 0.2) node[midway,fill=white,inner sep=0] {$l_0$};
+    \draw[hmline] (\xMass1, \xAxisYpos + 0.2) -- (\xMass2, \xAxisYpos + 0.2) node[midway,fill=white,inner sep=0] {$\Delta_{x}$};
+    \draw[hmline] (\wWall, \xAxisYpos - 0.3) -- (\xMass2, \xAxisYpos - 0.3) node[midway,fill=white,inner sep=0] {$l_{1}$};
+
+    %  create force arrow
+    \draw[->,blue, very thick,line cap=round] (\xMass2 + \wMass / 2, \originY2 + \wWall + \hMass + 0.15) node[above] {$\vb{F_{R}}$} --+ (-0.5, 0);
+\end{tikzpicture}