From 77e1d7652711e18ab381f0eaf2059675689d7304 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20M=C3=BCller?= <andreas.mueller@ost.ch>
Date: Sat, 9 Apr 2022 12:48:35 +0200
Subject: Singularitaeten

---
 .../080-funktionentheorie/images/operator-1.pdf    | Bin 0 -> 6228 bytes
 .../080-funktionentheorie/images/operator.mp       |  46 +++++++++++++++++++++
 2 files changed, 46 insertions(+)
 create mode 100644 buch/chapters/080-funktionentheorie/images/operator-1.pdf
 create mode 100644 buch/chapters/080-funktionentheorie/images/operator.mp

(limited to 'buch/chapters/080-funktionentheorie/images')

diff --git a/buch/chapters/080-funktionentheorie/images/operator-1.pdf b/buch/chapters/080-funktionentheorie/images/operator-1.pdf
new file mode 100644
index 0000000..4ba1346
Binary files /dev/null and b/buch/chapters/080-funktionentheorie/images/operator-1.pdf differ
diff --git a/buch/chapters/080-funktionentheorie/images/operator.mp b/buch/chapters/080-funktionentheorie/images/operator.mp
new file mode 100644
index 0000000..35f4303
--- /dev/null
+++ b/buch/chapters/080-funktionentheorie/images/operator.mp
@@ -0,0 +1,46 @@
+%
+% operatormp -- Seitz-Kull-Operator in Metapost
+%
+% (c) 2016 Prof Dr Andreas Mueller, Hochschule Rapperswil
+%
+verbatimtex
+\documentclass{book}
+\usepackage{times}
+\usepackage{amsmath}
+\usepackage{amssymb}
+\usepackage{amsfonts}
+\usepackage{txfonts}
+\begin{document}
+etex;
+
+beginfig(1)
+
+label(btex $A$ etex, (0,0));
+
+path circle;
+
+numeric r;
+r := 4.7;
+numeric b;
+b := 0.45;
+
+circle := r * (cosd(40), sind(40));
+
+for alpha = 41 step 1 until 370:
+	circle := circle--(r * (cosd(alpha), sind(alpha)));
+endfor;
+
+path head;
+head := (0,0)--(5,-3)--(0,6)--(-5,-3)--cycle;
+
+z1 = (-0.3,-0.4);
+
+pickup pencircle scaled b;
+draw circle shifted z1;
+fill head scaled 0.2 rotated 10 shifted (r,0) rotated 10 shifted z1;
+
+endfig;
+
+end
+
+
-- 
cgit v1.2.1