ellipsenumfang komplett

1 files changed, 7 insertions, 0 deletions

diff --git a/buch/chapters/110-elliptisch/images/ellipsenumfang.m b/buch/chapters/110-elliptisch/images/ellipsenumfang.m
index 84022bc..9ac8fe2 100644
--- a/buch/chapters/110-elliptisch/images/ellipsenumfang.m
+++ b/buch/chapters/110-elliptisch/images/ellipsenumfang.m
@@ -11,4 +11,11 @@ for epsilon = (1:100) / 100
 	fprintf(f, "--({\\dx*%.4f},{\\dy*%.4f})\n", epsilon, e);
 endfor
 fprintf(f, "\n}\n");
+fprintf(f, "\\def\\punkte{\n");
+for epsilon = (0.05:0.1:0.95)
+	[k, e] = ellipke(epsilon^2);
+	fprintf(f, "\\fill[color=blue] ({\\dx*%.4f},{\\dy*%.4f}) circle[radius=0.08];\n", epsilon, e);
+	fprintf(f, "\\draw[color=blue,line width=0.2pt] ({\\dx*%.4f},{\\dy*%.4f}) -- ({\\dx*%.4f},{\\dy*1.85});\n", epsilon, e, epsilon);
+endfor
+fprintf(f,"}\n");
 fclose(f);