# interleaf following page 136 of Chapter 1
# see # lines of il1

with(plots):

p1:=implicitplot({u^3+2*v^3+5-8*u*v=0},u=-3..4,v=-5..3,
   grid=[100,100],scaling=CONSTRAINED):
p2:=implicitplot({5*u+2*v=7},u=-3..4,v=-5..3,
   grid=[100,100],scaling=CONSTRAINED):
p3:=implicitplot({u=3},u=-3..4,v=-5..3,
   grid=[100,100],scaling=CONSTRAINED):
a:=[[.4,2.8,`Tangent`],[3.1,2.8,`Tangent`],[.5,2.6,`at O`],
[3.1,2.6,`at P`],[1.3,1.7,`Even component`],[1.3,1.5,`with this choice`],
[1.3,1.3,`of O`],[3.1,2,`P = (3,2)`],[3.1,1.8,`point of`],
[3.1,1.6,`order 2`],[.3,-1.5,`Odd`],[.5,-1.7,`component`],
[-3,-3.5,`graph by MapleV`]]:
p4:=textplot(a,align = RIGHT, font = [TIMES, ROMAN, 10]):
b:=[[.9,1,`O = (1,1)`],[2.8,-4,`O' = (3,-4)`]]:
p5:=textplot(b,align = LEFT, font = [TIMES, ROMAN, 10]):
c:=[-3,-3,`u^3 + 2v^3 + 5 - 8uv = 0`]:
p6:=textplot(c,align = RIGHT, font = [TIMES, ITALIC, 12]):

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