From 0344a846c083c11e9ed93ddc5898dd55c6dd1022 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20M=C3=BCller?= <andreas.mueller@ost.ch>
Date: Wed, 20 Apr 2022 10:30:56 +0200
Subject: lemniscate sine stuff

---
 buch/chapters/110-elliptisch/images/slcl.tex | 88 ++++++++++++++++++++++++++++
 1 file changed, 88 insertions(+)
 create mode 100644 buch/chapters/110-elliptisch/images/slcl.tex

(limited to 'buch/chapters/110-elliptisch/images/slcl.tex')

diff --git a/buch/chapters/110-elliptisch/images/slcl.tex b/buch/chapters/110-elliptisch/images/slcl.tex
new file mode 100644
index 0000000..08241ac
--- /dev/null
+++ b/buch/chapters/110-elliptisch/images/slcl.tex
@@ -0,0 +1,88 @@
+%
+% tikztemplate.tex -- template for standalon tikz images
+%
+% (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}
+\begin{document}
+\input{slcldata.tex}
+\def\skala{1}
+\begin{tikzpicture}[>=latex,thick,scale=\skala]
+
+% add image content here
+\def\lemniscateconstant{2.6220575542}
+\pgfmathparse{(3.1415926535/2)/\lemniscateconstant}
+\xdef\scalechange{\pgfmathresult}
+
+\pgfmathparse{\scalechange*(180/3.1415926535)}
+\xdef\ts{\pgfmathresult}
+
+\def\dx{1}
+\def\dy{3}
+
+\draw[line width=0.3pt]
+	({\lemniscateconstant*\dx},0)
+	--
+	({\lemniscateconstant*\dx},{1*\dy});
+\draw[line width=0.3pt]
+	({2*\lemniscateconstant*\dx},0)
+	--
+	({2*\lemniscateconstant*\dx},{-1*\dy});
+\draw[line width=0.3pt]
+	({3*\lemniscateconstant*\dx},0)
+	--
+	({3*\lemniscateconstant*\dx},{-1*\dy});
+\draw[line width=0.3pt]
+	({4*\lemniscateconstant*\dx},0)
+	--
+	({4*\lemniscateconstant*\dx},{1*\dy});
+\draw[line width=0.3pt]
+	({5*\lemniscateconstant*\dx},0)
+	--
+	({5*\lemniscateconstant*\dx},{1*\dy});
+
+\draw[color=red!20,line width=1.4pt]
+	plot[domain=0:13,samples=200] ({\x},{\dy*sin(\ts*\x)});
+\draw[color=blue!20,line width=1.4pt]
+	plot[domain=0:13,samples=200] ({\x},{\dy*cos(\ts*\x)});
+
+\draw[color=red,line width=1.4pt] \slpath;
+\draw[color=blue,line width=1.4pt] \clpath;
+
+\draw[->] (0,{-1*\dy-0.1}) -- (0,{1*\dy+0.4}) coordinate[label={right:$r$}];
+\draw[->] (-0.1,0) -- (13.7,0) coordinate[label={$s$}];
+
+\foreach \i in {1,2,3,4,5}{
+	\draw ({\lemniscateconstant*\i},-0.1) -- ({\lemniscateconstant*\i},0.1);
+}
+\node at ({\lemniscateconstant*\dx},0)   [below left]  {$ \varpi\mathstrut$};
+\node at ({2*\lemniscateconstant*\dx},0) [below left]  {$2\varpi\mathstrut$};
+\node at ({3*\lemniscateconstant*\dx},0) [below right] {$3\varpi\mathstrut$};
+\node at ({4*\lemniscateconstant*\dx},0) [below right] {$4\varpi\mathstrut$};
+\node at ({5*\lemniscateconstant*\dx},0) [below left]  {$5\varpi\mathstrut$};
+
+\node[color=red] at ({1.6*\lemniscateconstant*\dx},{0.6*\dy})
+	[below left] {$\operatorname{sl}(s)$};
+\node[color=red!50] at ({1.5*\lemniscateconstant*\dx},{sin(1.5*90)*\dy*0.90})
+	[above right] {$\sin \bigl(\frac{\pi}{2\varpi}s\bigr)$};
+
+\node[color=blue] at ({1.4*\lemniscateconstant*\dx},{-0.6*\dy})
+	[above right] {$\operatorname{cl}(s)$};
+\node[color=blue!50] at ({1.5*\lemniscateconstant*\dx},{cos(1.5*90)*\dy*0.90})
+	[below left] {$\cos\bigl(\frac{\pi}{2\varpi}s\bigr)$};
+
+\draw (-0.1,{1*\dy}) -- (0.1,{1*\dy});
+\draw (-0.1,{-1*\dy}) -- (0.1,{-1*\dy});
+\node at (0,{1*\dy}) [left] {$1\mathstrut$};
+\node at (0,0) [left] {$0\mathstrut$};
+\node at (0,{-1*\dy}) [left] {$-1\mathstrut$};
+
+\end{tikzpicture}
+\end{document}
+
-- 
cgit v1.2.1