diff options
Diffstat (limited to 'buch/chapters/110-elliptisch/ellipse.maxima')
-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)); |