with(plots); -1 

`:=`(P1, implicitplot(`+`(`*`(`^`(x, 2)), `*`(x, `*`(y)), 
`*`(`^`(y, 2))) = 1, x = -2 .. 2, y = -2 .. 2)) 

PLOT(CURVES(Array(1..87, 1..2, {(1, 1) = -1.04, (1, 2) = 
0.8666666666666686e-1, (2, 1) = -1.0373913043478262, (2, 2) = 0.8e-1, 
(3, 1) = -1.035, (3, 2) = 0.7499999999999986e-1, (4, 1) = 
-.9543999999999... (1)
 

`:=`(P2, implicitplot(`+`(`*`(`^`(`+`(x, `-`(1)), 2)), 
`*`(`^`(`+`(y, 1), 2))) = 0.5e-2, x = -2 .. 2, y = -2 .. 2, color = 
blue, grid = [80, 80])) 

PLOT(CURVES(Array(1..19, 1..2, {(1, 1) = .936708861, (1, 2) = 
-1.0202848106299998, (2, 1) = .9426054855343056, (2, 2) = -1.037974684, 
(3, 1) = .987341772, (3, 2) = -1.06481645573805, (4, 1) = 1.009709... (2)
 

`:=`(P3, implicitplot(`+`(`*`(`^`(`+`(x, 1), 2)), `*`(`^`(`+`(y, 
`-`(1)), 2))) = 0.5e-2, x = -2 .. 2, y = -2 .. 2, color = blue, grid = 
[80, 80])) 

PLOT(CURVES(Array(1..19, 1..2, {(1, 1) = -1.037974684, (1, 2) = 
.9426054855343056, (2, 1) = -1.0202848106299998, (2, 2) = .936708861, 
(3, 1) = -.987341772, (3, 2) = .9320027125711735, (4, 1) = -.98404... (3)
 

`:=`(P4, implicitplot(`+`(`*`(`^`(`+`(x, `-`(`/`(1, 
`*`(sqrt(3))))), 2)), `*`(`^`(`+`(y, `-`(`/`(1, `*`(sqrt(3))))), 2))) = 
0.5e-2, x = -2 .. 2, y = -2 .. 2, color = green, grid = [80, 80])) 

PLOT(CURVES(Array(1..21, 1..2, {(1, 1) = .53164557, (1, 2) = 
.5258574288343396, (2, 1) = .5397644090795538, (2, 2) = 
.523526730760099, (3, 1) = .582278481, (3, 2) = .5113220960109456, (4, 
1) = .596532... (4)
 

`:=`(P5, implicitplot(`+`(`*`(`^`(`+`(x, `/`(1, `*`(sqrt(3)))), 
2)), `*`(`^`(`+`(y, `/`(1, `*`(sqrt(3)))), 2))) = 0.5e-2, x = -2 .. 2, y
 = -2 .. 2, color = green, grid = [80, 80])) 

PLOT(CURVES(Array(1..21, 1..2, {(1, 1) = -.632911392, (1, 2) = 
-.6135017432865513, (2, 1) = -.6135017432865513, (2, 2) = -.632911392, 
(3, 1) = -.582278481, (3, 2) = -.644587522691491, (4, 1) = -.57295... (5)
 

`:=`(P6, proc (a) options operator, arrow; 
implicitplot(`+`(`*`(`^`(x, 2)), `*`(`^`(y, 2))) = `*`(`^`(a, 2)), x = 
-2 .. 2, y = -2 .. 2, color = magenta, grid = [50, 50]) end proc) 

proc (a) 
options operator, arrow; plots:-implicitplot(`+`(`*`(`^`(x, 2)), 
`*`(`^`(y, 2))) = `*`(`^`(a, 2)), x = -2 .. 2, y = -2 .. 2, color = 
magenta, grid = [50, 50]) end proc (6)
 

display(P1, seq(display(P1, P6(`+`(sqrt(`/`(2, 3)), `*`(`/`(1, 
10), `*`(i, `*`(sqrt(2), `*`(`+`(1, `-`(`/`(1, `*`(sqrt(3)))))))))))), i
 = -10 .. -1), seq(display(P1, P4, P5, P6(`+`(sqrt(`/`(2, 3)), `*...
display(P1, seq(display(P1, 
P6(`+`(sqrt(`/`(2, 3)), `*`(`/`(1, 10), `*`(i, `*`(sqrt(2), `*`(`+`(1, 
`-`(`/`(1, `*`(sqrt(3)))))))))))), i = -10 .. -1), seq(display(P1, P4, 
P5, P6(`+`(sqrt(`/`(2, 3)), `*...
 

Plot_2d