4 files changed, 63 insertions, 0 deletions
diff --git a/buch/chapters/060-integral/images/Makefile b/buch/chapters/060-integral/images/Makefile
new file mode 100644
index 0000000..161f9ae
--- /dev/null
+++ b/buch/chapters/060-integral/images/Makefile
@@ -0,0 +1,12 @@
+#
+# Makefile -- Bilder zum Kapitel über durch Integrale definierte spezielle
+#             Funktionen
+#
+# (c) 2021 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule
+#
+all:	erf.pdf
+
+erf.pdf:	erf.tex erfpunkte.tex
+	pdflatex erf.tex
+erfpunkte.tex:	erfpunkte.m
+	octave erfpunkte.m
diff --git a/buch/chapters/060-integral/images/erf.pdf b/buch/chapters/060-integral/images/erf.pdf
new file mode 100644
index 0000000..a749626
--- /dev/null
+++ b/buch/chapters/060-integral/images/erf.pdf
diff --git a/buch/chapters/060-integral/images/erf.tex b/buch/chapters/060-integral/images/erf.tex
new file mode 100644
index 0000000..16775a4
--- /dev/null
+++ b/buch/chapters/060-integral/images/erf.tex
@@ -0,0 +1,35 @@
+%
+% erf.tex -- Fehlerfunktion
+%
+% (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{2}
+\input{erfpunkte.tex}
+\begin{tikzpicture}[>=latex,thick,scale=\skala]
+
+\draw[->] (-3.2,0) -- (3.3,0) coordinate[label={$x$}];
+\draw[->] (0,-1.1) -- (0,1.2) coordinate[label={right:$\operatorname{erf}(x)$}];
+\foreach \x in {-3,-2,-1,1,2,3}{
+	\draw[line width=1pt] (\x,-0.03) -- (\x,0.03);
+	\node at (\x,-0.02) [below] {$\x$};
+}
+\draw[color=gray,line width=1pt] (-3.1,-1) -- (3.1,-1);
+\node at (0,-1) [above left] {$-1$};
+\draw[color=gray,line width=1pt] (-3.1,1) -- (3.1,1);
+\node at (0,1) [below left] {$1$};
+
+\draw[color=red,line width=1.4pt]
+\erfpfad
+;
+
+\end{tikzpicture}
+\end{document}
+
diff --git a/buch/chapters/060-integral/images/erfpunkte.m b/buch/chapters/060-integral/images/erfpunkte.m
new file mode 100644
index 0000000..ae4ada1
--- /dev/null
+++ b/buch/chapters/060-integral/images/erfpunkte.m
@@ -0,0 +1,16 @@
+#
+# erf.m provide plot data for error function
+#
+# (c) 2021 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule
+#
+N = 93;
+x = (-N:N) / 30;
+y = erf(x);
+
+fn = fopen("erfpunkte.tex", "w");
+fprintf(fn, "\\def\\erfpfad{(%.3f,%.3f)", x(1), y(1));
+for i = (2:(2*N+1)) 
+	fprintf(fn, "\n -- (%.3f,%.3f)", x(i), y(i));
+endfor
+fprintf(fn, "}\n");
+fclose(fn)