aboutsummaryrefslogtreecommitdiffstats
path: root/buch/papers
diff options
context:
space:
mode:
Diffstat (limited to 'buch/papers')
-rw-r--r--buch/papers/zeta/images/Makefile8
-rw-r--r--buch/papers/zeta/images/zetaplot.m23
-rw-r--r--buch/papers/zeta/images/zetaplot.pdfbin0 -> 41448 bytes
-rw-r--r--buch/papers/zeta/images/zetaplot.tex47
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
Binary files differ
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}
+