diff options
| author | Andreas Müller <andreas.mueller@ost.ch> | 2021-10-13 11:32:58 +0200 |
|---|---|---|
| committer | Andreas Müller <andreas.mueller@ost.ch> | 2021-10-13 11:32:58 +0200 |
| commit | 50d4a6fb4adb0a24acdb987a3e5108de66187651 (patch) | |
| tree | ccfac9c4e77c7c92b19cd31adfc2a3bde2d9bb5b /buch/chapters/110-elliptisch/images/ellipsenumfang.m | |
| parent | add some info on elliptic functions (diff) | |
| download | SeminarSpezielleFunktionen-50d4a6fb4adb0a24acdb987a3e5108de66187651.tar.gz SeminarSpezielleFunktionen-50d4a6fb4adb0a24acdb987a3e5108de66187651.zip | |
add ellipsenumfang
Diffstat (limited to 'buch/chapters/110-elliptisch/images/ellipsenumfang.m')
| -rw-r--r-- | buch/chapters/110-elliptisch/images/ellipsenumfang.m | 14 |
1 files changed, 14 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..84022bc --- /dev/null +++ b/buch/chapters/110-elliptisch/images/ellipsenumfang.m @@ -0,0 +1,14 @@ +# +# 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"); +fclose(f); |