add zetaplot

4 files changed, 78 insertions, 0 deletions

diff --git a/buch/papers/zeta/images/Makefile b/buch/papers/zeta/images/Makefile
index c8deeec..d9cc20d 100644
--- a/buch/papers/zeta/images/Makefile
+++ b/buch/papers/zeta/images/Makefile
@@ -1,5 +1,13 @@
 #
 # Makefile to build images
 #
+all:	primzahlfunktion2.pdf zetaplot.pdf
+
 primzahlfunktion2.pdf:	primzahlfunktion2.tex
 	pdflatex primzahlfunktion2.tex
+
+zetapath.tex:	zetaplot.m zeta.m
+	octave zetaplot.m
+
+zetaplot.pdf:	zetaplot.tex zetapath.tex 
+	pdflatex zetaplot.tex
diff --git a/buch/papers/zeta/images/zetaplot.m b/buch/papers/zeta/images/zetaplot.m
new file mode 100644
index 0000000..984b645
--- /dev/null
+++ b/buch/papers/zeta/images/zetaplot.m
@@ -0,0 +1,23 @@
+%
+% zetaplot.m
+%
+% (c) 2022 Prof Dr Andreas Müller
+%
+s = 1;
+h = 0.02;
+m = 40;
+
+fn = fopen("zetapath.tex", "w");
+fprintf(fn, "\\def\\zetapath{\n");
+counter = 0;
+for y = (0:h:m)
+	if (counter > 0)
+		fprintf(fn, "\n\t--");
+	end
+	z = zeta(0.5 + i*y);
+	fprintf(fn, " ({%.4f*\\dx},{%.4f*\\dy})", real(z), imag(z));
+	counter = counter + 1;
+end
+fprintf(fn, "\n}\n");
+fclose(fn);
+
diff --git a/buch/papers/zeta/images/zetaplot.pdf b/buch/papers/zeta/images/zetaplot.pdf
new file mode 100644
index 0000000..5a59ce6
--- /dev/null
+++ b/buch/papers/zeta/images/zetaplot.pdf
diff --git a/buch/papers/zeta/images/zetaplot.tex b/buch/papers/zeta/images/zetaplot.tex
new file mode 100644
index 0000000..1cd3259
--- /dev/null
+++ b/buch/papers/zeta/images/zetaplot.tex
@@ -0,0 +1,47 @@
+%
+% zetaplot.tex -- Abbildung der kritischen Geraden
+%
+% (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}
+\def\skala{1}
+\begin{tikzpicture}[>=latex,thick,scale=\skala]
+
+\def\dx{2}
+\def\dy{2}
+
+\draw[->] ({-1.6*\dx},0) -- ({3.4*\dx},0)
+	coordinate[label={$\Re\zeta(\frac12+it)$}];
+\draw[->] (0,{-2.1*\dx}) -- (0,{2.2*\dx})
+	coordinate[label={left:$\Im\zeta(\frac12+it)$}];
+
+\foreach \x in {-1,1,2,3}{
+	\node at ({\x*\dx},-0.1) [below] {$\x$};
+}
+\node at (-0.1,{1*\dy}) [above left] {$i$};
+\node at (-0.1,{2*\dy}) [left] {$2i$};
+\node at (-0.1,{-1*\dy}) [below left] {$-i$};
+\node at (-0.1,{-2*\dy}) [left] {$-2i$};
+
+\foreach \x in {-1,1,2,3}{
+	\draw ({\x*\dx},-0.1) -- ({\x*\dx},0.1);
+}
+\foreach \y in {1,2}{
+	\draw (-0.1,{\y*\dy}) -- (0.1,{\y*\dy});
+	\draw (-0.1,{-\y*\dy}) -- (0.1,{-\y*\dy});
+}
+
+\input{zetapath.tex}
+
+\draw[color=blue,line width=1pt] \zetapath;
+
+\end{tikzpicture}
+\end{document}
+