diff options
Diffstat (limited to '')
-rw-r--r-- | buch/chapters/110-elliptisch/images/ellipsenumfang.m | 7 |
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); |