# interleaf following page 138 of Chapter 1
# see # lines in il1

with(plots):

p1 := implicitplot(u^3+v^3=1729,u = -20 .. 20,v = -20 .. 20,grid = [100, 
100],scaling=CONSTRAINED):
p2 := plot(-u,u = -20 .. 20,scaling=CONSTRAINED):
p3 := plot(49/4-1/4*u,u = -20 .. 20,scaling=CONSTRAINED):
p4 := plot([[-37/3, 46/3], [1, 12], [9, 10]],style = point,symbol = 
CIRCLE,scaling=CONSTRAINED):
p5 := textplot([[-12, 17, `(-37/3,46/3)`], [1, 14, `(1,12)`], [9, 12
, `(9,10)`], [-20, -8, `The "taxicab" curve`], [-20, -14, 
`with asymptote`]],align=RIGHT,font = [TIMES, ROMAN, 12]):
p6 := textplot([[-20, -11, `u^3 + v^3 = 1729`], [-20, -17, 
`u + v = 0`]],align=RIGHT,font = [TIMES, ITALIC, 12]):
p7 := textplot([-20, 5, `Plot by MapleV3`],align=RIGHT,
font = [TIMES, ROMAN, 10]):

display({p.(1..7)});