陰関数表示についてもう少し
もう少し、いろいろな図形の陰関数表示を見ていこう。
レムニスケート(lemniscate)
極方程式 で定義される.
Use QQ[a, x, y, r, c, s]; I := ideal(r^2 - 2*a^2*(c^2 - s^2), x - r*c, y - r*s, r^2 - (x^2 + y^2)); elim(r..s, I); > ideal(-2*a^2*x^2 +x^4 +2*a^2*y^2 +2*x^2*y^2 +y^4)
もう少し、いろいろな図形の陰関数表示を見ていこう。
極方程式 で定義される.
Use QQ[a, x, y, r, c, s]; I := ideal(r^2 - 2*a^2*(c^2 - s^2), x - r*c, y - r*s, r^2 - (x^2 + y^2)); elim(r..s, I); > ideal(-2*a^2*x^2 +x^4 +2*a^2*y^2 +2*x^2*y^2 +y^4)