diff options
| author | Andreas Müller <andreas.mueller@othello.ch> | 2021-10-25 11:07:59 +0200 |
|---|---|---|
| committer | Andreas Müller <andreas.mueller@othello.ch> | 2021-10-25 11:07:59 +0200 |
| commit | 7404091c71358569437d1d633ba44d9b8202872e (patch) | |
| tree | ea73c0bce0a3ac3dd8927dda1f380fa2524dba84 /buch/chapters/110-elliptisch/ellipse.maxima | |
| parent | add some info on elliptic functions (diff) | |
| download | SeminarSpezielleFunktionen-7404091c71358569437d1d633ba44d9b8202872e.tar.gz SeminarSpezielleFunktionen-7404091c71358569437d1d633ba44d9b8202872e.zip | |
elliptische Funktionen
Diffstat (limited to '')
| -rw-r--r-- | buch/chapters/110-elliptisch/ellipse.maxima | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/buch/chapters/110-elliptisch/ellipse.maxima b/buch/chapters/110-elliptisch/ellipse.maxima new file mode 100644 index 0000000..86787ce --- /dev/null +++ b/buch/chapters/110-elliptisch/ellipse.maxima @@ -0,0 +1,14 @@ +/* ellipse.maxima */ + +y: b * sqrt(1 - x^2/a^2); + +e: sqrt(a^2-b^2); + +l1: sqrt((x+e)^2 + y^2); +l2: sqrt((x-e)^2 + y^2); + +LHS: l1^2 + l2^2 - 4*a^2; +RHS: 2 * l1 * l2; + +d2: LHS^2 - RHS^2; +expand(ratsimp(d2)); |