diff options
author | Andreas Müller <andreas.mueller@othello.ch> | 2021-10-25 11:09:09 +0200 |
---|---|---|
committer | Andreas Müller <andreas.mueller@othello.ch> | 2021-10-25 11:09:09 +0200 |
commit | 0533f8393a7db2a339bd46a0cb4e430ec4496d2e (patch) | |
tree | 20a70f633ffdd176df0ca06271db31b42e16162e /buch/chapters/110-elliptisch/images/ellipsenumfang.m | |
parent | elliptische Funktionen (diff) | |
parent | typos (diff) | |
download | SeminarSpezielleFunktionen-0533f8393a7db2a339bd46a0cb4e430ec4496d2e.tar.gz SeminarSpezielleFunktionen-0533f8393a7db2a339bd46a0cb4e430ec4496d2e.zip |
Merge branch 'master' of github.com:AndreasFMueller/SeminarSpezielleFunktionen
Diffstat (limited to 'buch/chapters/110-elliptisch/images/ellipsenumfang.m')
-rw-r--r-- | buch/chapters/110-elliptisch/images/ellipsenumfang.m | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/buch/chapters/110-elliptisch/images/ellipsenumfang.m b/buch/chapters/110-elliptisch/images/ellipsenumfang.m new file mode 100644 index 0000000..9ac8fe2 --- /dev/null +++ b/buch/chapters/110-elliptisch/images/ellipsenumfang.m @@ -0,0 +1,21 @@ +# +# ellipsenumfang +# +# (c) 2021 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule +# +f = fopen("ekplot.tex", "w"); +fprintf(f, "\\def\\ekpath{\n"); +fprintf(f, "(0,{\\dy*%.4f})\n", pi / 2); +for epsilon = (1:100) / 100 + [k, e] = ellipke(epsilon^2); + 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); |