with(plots):

p1:=implicitplot({(y-12)^2=x^3-3*x+3,y=12,y^2=x^3+x,(y+12)^2=x^3-x,y=-12},
   x=-3..3,y=-20..20,grid=[105,120],title=`Figure 1`):
a:=[[3.7,15,`(y-12)^2=x^3-3x+3`],[3.7,14,`Delta=-2160`],[3.7,12,`y=12`],
[3.7,4,`y^2=x^3+x`],[3.7,3,`Delta=-64`],[-7,-8,`Plot produced`],
[-7,-9,`by MapleV3`],
[3.7,-9,`(y+12)^2=x^3-x`],[3.7,-10,`Delta=64`],[3.7,-12,`y=-12`]]:
p2:=textplot(a,align = RIGHT, font = [TIMES, ROMAN, 12]):

display({p1,p2});

#choose 1:1 and print

#interleaf following page 104 of Chapter 1
