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

with(plots):

p1:=implicitplot({(y-3/2)^2=x^3+x^2},x=-1..1,y=0..2.5,\
        grid=[105,120],scaling=CONSTRAINED):
p2:=implicitplot({y+x=3/2},x=-1..1,y=0..2.5,\
        grid=[105,120],scaling=CONSTRAINED):
p3:=implicitplot({y-x=3/2},x=-1..1,y=0..2.5,\
        grid=[105,120],scaling=CONSTRAINED):
p4:=implicitplot({(y+3/2)^2=x^3},x=-1..1,y=-2.5..0,grid=[105,120]\
        ,scaling=CONSTRAINED):
p5:=implicitplot({y=-3/2},x=-1..1,y=-2.5..0,grid=[105,120]\
        ,scaling=CONSTRAINED):
p6:=textplot([[1,1.8,`(y-3/2)^2 = x^3 + x^2`],[1,1.2,`y = 3/2 + x, 3/2 - x`],\
        [1,-1,`(y+3/2)^2 = x^3`],[1,-1.6,`y=-3/2`]],\
        font=[TIMES,ITALIC,12],align=RIGHT):
p7:=textplot([[1,1.6,`has a node at (0,3/2)`],[1,1.4,`with tangents`],\
        [1,-1.2,`has a cusp at (0,-3/2)`],[1,-1.4,`with tangent`]],
        font=[TIMES,ROMAN,12],align=RIGHT):
p8:=textplot([-1.5,-2,`Plot by MapleV3`],font=[TIMES,ROMAN,10],\
        align=RIGHT):

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