5 files changed, 185 insertions, 0 deletions
diff --git a/buch/papers/clifford/images/Makefile b/buch/papers/clifford/images/Makefile
new file mode 100644
index 0000000..cc621fb
--- /dev/null
+++ b/buch/papers/clifford/images/Makefile
@@ -0,0 +1,13 @@
+#
+# Makefile
+#
+# (c) 2021 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule
+#
+all:	spiegelung.pdf
+
+spiegelung.pdf:	spiegelung.tex punkte.tex
+	pdflatex spiegelung.tex
+
+punkte.tex:	spiegelung.m	
+	octave spiegelung.m
+
diff --git a/buch/papers/clifford/images/punkte.tex b/buch/papers/clifford/images/punkte.tex
new file mode 100644
index 0000000..41d2247
--- /dev/null
+++ b/buch/papers/clifford/images/punkte.tex
@@ -0,0 +1,21 @@
+\coordinate (A) at (2.300,1.700);
+\coordinate (B) at (4.300,2.500);
+\coordinate (C) at (2.800,2.700);
+\coordinate (S) at (3.133,2.300);
+\coordinate (G1) at (0.489,0.873);
+\coordinate (G1oben) at (4.886,8.725);
+\coordinate (G1unten) at (-4.886,-8.725);
+\coordinate (G2) at (0.336,-0.942);
+\coordinate (G2oben) at (3.363,-9.417);
+\coordinate (G2unten) at (-3.363,9.417);
+\coordinate (A1) at (0.248,2.849);
+\coordinate (B1) at (-0.115,4.973);
+\coordinate (C1) at (0.839,3.798);
+\coordinate (S1) at (0.324,3.873);
+\coordinate (A2) at (-1.997,2.048);
+\coordinate (B2) at (-3.061,3.921);
+\coordinate (C2) at (-3.055,2.407);
+\coordinate (S2) at (-2.704,2.792);
+\def\winkela{60.7512}
+\def\winkelb{48.9027}
+\coordinate (G) at (0.489,0.873);
diff --git a/buch/papers/clifford/images/spiegelung.m b/buch/papers/clifford/images/spiegelung.m
new file mode 100644
index 0000000..a086cb5
--- /dev/null
+++ b/buch/papers/clifford/images/spiegelung.m
@@ -0,0 +1,66 @@
+#
+# spiegelung.m
+#
+#
+fn = fopen("punkte.tex", "w");
+
+
+a = [ 2.3; 1.7 ];
+b = [ 4.3; 2.5 ];
+c = [ 2.8; 2.7 ];
+s = (a + b + c)/3;
+
+fprintf(fn, "\\coordinate (A) at (%.3f,%.3f);\n", a(1, 1), a(2, 1));
+fprintf(fn, "\\coordinate (B) at (%.3f,%.3f);\n", b(1, 1), b(2, 1));
+fprintf(fn, "\\coordinate (C) at (%.3f,%.3f);\n", c(1, 1), c(2, 1));
+fprintf(fn, "\\coordinate (S) at (%.3f,%.3f);\n", s(1, 1), s(2, 1));
+
+n1 = [ -2.5; 1.4 ];
+n1 = n1 / norm(n1);
+S1 = eye(2) - 2 * (n1 * n1');
+g1 = [ n1(2,1); -n1(1,1) ];
+
+fprintf(fn, "\\coordinate (G1) at (%.3f,%.3f);\n", g1(1,1), g1(2,1));
+fprintf(fn, "\\coordinate (G1oben) at (%.3f,%.3f);\n", 10*g1(1,1), 10*g1(2,1));
+fprintf(fn, "\\coordinate (G1unten) at (%.3f,%.3f);\n", -10*g1(1,1), -10*g1(2,1));
+
+n2 = [ 1.4; 0.5 ];
+n2 = n2 / norm(n2);
+S2 = eye(2) - 2 * (n2 * n2');
+g2 = [ n2(2,1); -n2(1,1) ];
+
+fprintf(fn, "\\coordinate (G2) at (%.3f,%.3f);\n", g2(1,1), g2(2,1));
+fprintf(fn, "\\coordinate (G2oben) at (%.3f,%.3f);\n", 10*g2(1,1), 10*g2(2,1));
+fprintf(fn, "\\coordinate (G2unten) at (%.3f,%.3f);\n", -10*g2(1,1), -10*g2(2,1));
+
+D = S2 * S1;
+
+a1 = S1 * a;
+b1 = S1 * b;
+c1 = S1 * c;
+s1 = S1 * s;
+
+fprintf(fn, "\\coordinate (A1) at (%.3f,%.3f);\n", a1(1, 1), a1(2, 1));
+fprintf(fn, "\\coordinate (B1) at (%.3f,%.3f);\n", b1(1, 1), b1(2, 1));
+fprintf(fn, "\\coordinate (C1) at (%.3f,%.3f);\n", c1(1, 1), c1(2, 1));
+fprintf(fn, "\\coordinate (S1) at (%.3f,%.3f);\n", s1(1, 1), s1(2, 1));
+
+a2 = D * a;
+b2 = D * b;
+c2 = D * c;
+s2 = D * s;
+
+fprintf(fn, "\\coordinate (A2) at (%.3f,%.3f);\n", a2(1, 1), a2(2, 1));
+fprintf(fn, "\\coordinate (B2) at (%.3f,%.3f);\n", b2(1, 1), b2(2, 1));
+fprintf(fn, "\\coordinate (C2) at (%.3f,%.3f);\n", c2(1, 1), c2(2, 1));
+fprintf(fn, "\\coordinate (S2) at (%.3f,%.3f);\n", s2(1, 1), s2(2, 1));
+
+winkel1 = atan2(g1(2,1), g1(1,1)) * (180 / pi);
+winkel2 = acosd(g1' * g2);
+
+fprintf(fn, "\\def\\winkela{%.4f}\n", winkel1);
+fprintf(fn, "\\def\\winkelb{%.4f}\n", 180 - winkel2);
+
+fprintf(fn, "\\coordinate (G) at (%.3f,%.3f);\n", g1(1,1), g1(2,1));
+
+fclose(fn);
diff --git a/buch/papers/clifford/images/spiegelung.pdf b/buch/papers/clifford/images/spiegelung.pdf
new file mode 100644
index 0000000..a17d369
--- /dev/null
+++ b/buch/papers/clifford/images/spiegelung.pdf
diff --git a/buch/papers/clifford/images/spiegelung.tex b/buch/papers/clifford/images/spiegelung.tex
new file mode 100644
index 0000000..0960456
--- /dev/null
+++ b/buch/papers/clifford/images/spiegelung.tex
@@ -0,0 +1,85 @@
+%
+% spiegelung.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,calc}
+\begin{document}
+\def\skala{1.1}
+\begin{tikzpicture}[>=latex,thick,scale=\skala]
+
+\definecolor{darkgreen}{rgb}{0,0.6,0}
+
+\def\punkt#1{
+\fill #1 circle[radius=0.06];
+}
+
+\coordinate (M) at (0,0);
+
+\fill[color=blue] (M) circle[radius=0.06];
+\node[color=blue] at (M) [left] {$M$};
+
+\input{punkte.tex}
+
+\fill[color=red!30] (A) -- (B) -- (C) -- cycle;
+\draw[color=red] (A) -- (B) -- (C) -- cycle;
+\node at (A) [below] {$A$};
+\node at (B) [above right] {$B$};
+\node at (C) [above] {$C$};
+\node at (S) {$\circlearrowleft$};
+
+\fill[color=red!30] (A1) -- (B1) -- (C1) -- cycle;
+\draw[color=red] (A1) -- (B1) -- (C1) -- cycle;
+\node at (A1) [below] {$A'$};
+\node at (B1) [above] {$B'$};
+\node at (C1) [above right] {$C'$};
+\node at (S1) {$\circlearrowright$};
+
+\fill[color=red!30] (A2) -- (B2) -- (C2) -- cycle;
+\draw[color=red] (A2) -- (B2) -- (C2) -- cycle;
+\node at (A2) [below] {$A''$};
+\node at (B2) [above] {$B''$};
+\node at (C2) [left] {$C''$};
+\node at (S2) {$\circlearrowleft$};
+
+\draw[color=gray,dotted] (A) -- (A1);
+\draw[color=gray,dotted] (B) -- (B1);
+\draw[color=gray,dotted] (C) -- (C1);
+
+\draw[color=gray,dotted] (A1) -- (A2);
+\draw[color=gray,dotted] (B1) -- (B2);
+\draw[color=gray,dotted] (C1) -- (C2);
+
+\punkt{(A)}
+\punkt{(B)}
+\punkt{(C)}
+\punkt{(A1)}
+\punkt{(B1)}
+\punkt{(C1)}
+\punkt{(A2)}
+\punkt{(B2)}
+\punkt{(C2)}
+
+\fill[color=darkgreen!30] (M) -- (G1) arc ({\winkela}:{\winkela+\winkelb}:1) -- cycle;
+\draw[color=darkgreen] (G1) arc ({\winkela}:{\winkela+\winkelb}:1);
+\node[color=darkgreen] at ({\winkela+0.5*\winkelb}:0.7) {$\alpha$};
+
+\node at ($6*(G1)$) [right] {$g\mathstrut$};
+\node at ($-5.6*(G2)$) [left] {$h\mathstrut$};
+
+\clip (-3,-0.2) rectangle (4.5,5.5);
+
+\draw[line width=1pt] (G1oben) -- (G1unten);
+\draw[line width=1pt] (G2oben) -- (G2unten);
+
+\fill[color=blue] (M) circle[radius=0.06];
+
+\end{tikzpicture}
+\end{document}
+