Differentialgleichung für das mathematische Pendel

6 files changed, 62 insertions, 1 deletions

diff --git a/buch/chapters/110-elliptisch/images/Makefile b/buch/chapters/110-elliptisch/images/Makefile
index 931564b..5749ae0 100644
--- a/buch/chapters/110-elliptisch/images/Makefile
+++ b/buch/chapters/110-elliptisch/images/Makefile
@@ -4,7 +4,7 @@
 # (c) 2021 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule
 #
 all:	lemniskate.pdf ellipsenumfang.pdf unvollstaendig.pdf rechteck.pdf \
-	ellipse.pdf
+	ellipse.pdf pendel.pdf
 
 lemniskate.pdf:	lemniskate.tex
 	pdflatex lemniskate.tex
@@ -33,4 +33,6 @@ unvollpath.tex:	unvollstaendig.m
 ellipse.pdf:	ellipse.tex
 	pdflatex ellipse.tex
 
+pendel.pdf:	pendel.tex
+	pdflatex pendel.tex
 
diff --git a/buch/chapters/110-elliptisch/images/ellipsenumfang.pdf b/buch/chapters/110-elliptisch/images/ellipsenumfang.pdf
index fc27f21..b5eba91 100644
--- a/buch/chapters/110-elliptisch/images/ellipsenumfang.pdf
+++ b/buch/chapters/110-elliptisch/images/ellipsenumfang.pdf
diff --git a/buch/chapters/110-elliptisch/images/pendel.pdf b/buch/chapters/110-elliptisch/images/pendel.pdf
new file mode 100644
index 0000000..c3a267a
--- /dev/null
+++ b/buch/chapters/110-elliptisch/images/pendel.pdf
diff --git a/buch/chapters/110-elliptisch/images/pendel.tex b/buch/chapters/110-elliptisch/images/pendel.tex
new file mode 100644
index 0000000..d2ff9b6
--- /dev/null
+++ b/buch/chapters/110-elliptisch/images/pendel.tex
@@ -0,0 +1,59 @@
+%
+% pendel.tex -- mathematisches Pendel
+%
+% (c) 2021 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule
+%
+\documentclass[tikz]{standalone}
+\usepackage{amsmath}
+\usepackage{times}
+\usepackage{txfonts}
+\usepackage{pgfplots}
+\usepackage{csvsimple}
+\usetikzlibrary{arrows,intersections,math,calc}
+\begin{document}
+\def\skala{1}
+\begin{tikzpicture}[>=latex,thick,scale=\skala]
+
+\definecolor{darkgreen}{rgb}{0,0.7,0}
+
+\def\winkel{25}
+
+\fill[color=red!20] (0,0) -- (0,-2) arc (-90:{-\winkel}:2) -- cycle;
+
+\node at ({0.5*(-90-\winkel)}:1) {$\vartheta$};
+\draw[color=red,shorten >= 0.25cm] (0,0) -- ({-\winkel}:3);
+\node[color=red] at ({-\winkel}:1.5) [above right] {$l$};
+
+\draw[->] (0,3.1) -- (0,-3.5) coordinate[label={left:$x$}];
+%\draw[->] (-3.1,0) -- (3.5,0) coordinate[label={$y$}];
+
+\draw[color=blue] (0,0) -- (0,{-3*sin(\winkel)})
+	-- ({3*cos(\winkel)},{-3*sin(\winkel)});
+
+\fill[color=white] (0,0) circle[radius=0.05];
+\draw (0,0) circle[radius=0.05];
+
+\draw[line width=0.2pt] (0,0) circle[radius=3];
+
+\node at ($({-\winkel}:3)+(0.1,0)$) [below right] {$P$};
+
+\draw[->,color=darkgreen]
+	({-\winkel}:3) -- ($({-\winkel}:3)+(0,-3)$);
+\draw[->,color=darkgreen]
+	({-\winkel}:3) -- ($({-\winkel}:3)+({-\winkel-90}:{3*cos(\winkel)})$);
+\draw[line width=0.3pt,color=darkgreen]
+	($({-\winkel}:3)+(0,-3)$)
+	-- ($({-\winkel}:3)+({-\winkel-90}:{3*cos(\winkel)})$);
+
+\node[color=darkgreen] at ($({-\winkel}:3)+(0,-2)$) [right] {$g$};
+
+\definecolor{darkred}{rgb}{0.6,0,0}
+\fill[color=darkred] ({-\winkel}:3) circle[radius=0.25];
+\draw[color=red] ({-\winkel}:3) circle[radius=0.25];
+\node[color=white] at ({-\winkel}:3) {$m$};
+
+\node at (0,0) [left] {$O$};
+
+\end{tikzpicture}
+\end{document}
+
diff --git a/buch/chapters/110-elliptisch/images/rechteck.pdf b/buch/chapters/110-elliptisch/images/rechteck.pdf
index 894091f..ea5869d 100644
--- a/buch/chapters/110-elliptisch/images/rechteck.pdf
+++ b/buch/chapters/110-elliptisch/images/rechteck.pdf
diff --git a/buch/chapters/110-elliptisch/images/unvollstaendig.pdf b/buch/chapters/110-elliptisch/images/unvollstaendig.pdf
index 4da2c0c..f28495c 100644
--- a/buch/chapters/110-elliptisch/images/unvollstaendig.pdf
+++ b/buch/chapters/110-elliptisch/images/unvollstaendig.pdf