with(plots):

C1:=implicitplot({(y-3/2)^2=x^3+x^2,y+x=3/2,y-x=3/2},x=-1..1,y=0..2.5,\
        grid=[105,120]):
C2:=implicitplot({(y+3/2)^2=x^3,y=-3/2},x=-1..1,y=-2.5..0,grid=[105,120]):
t1:=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):
t2:=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):
t3:=textplot([-1.5,-2,`Plot by MapleV3`],font=[TIMES,ROMAN,10],\
        align=RIGHT):

display({C1,C2,t1,t2,t3});

# choose 1:1 then print

# interleaf following page 128 of Chapter 1
