#interleaf following page 104 of Chapter 1 of Elliptic Curve Handbook

#I produced the plot of this interleaf sheet in two ways:

# (1)With Maple running in Windows on a (486)PC 
#     read il1;
#  from the menu bar choose print

# (2)On a Sparc 2
#     lpr ils.ps
# where the file il1.ps was produced on a Sparc 2 by
#     maple
#     with plots:
#     plotsetup(ps,plotoutput=`il1.ps`,plotoptions=`portrait,noborder`);
#     read il1;



with(plots):

p1:=implicitplot({(y-12)^2=x^3-3*x+3},
   x=-3..3,y=-20..20,grid=[105,120],scaling=CONSTRAINED,title=`Figure 1`):
# The reason for separate plots of the various curves: if they are done
# together as a set in one implicitplot then they come out in different
# colors which shows up in printout as various types of dotted lines.
p2:=implicitplot({y=12},x=-3..3,y=-20..20,grid=[105,120],scaling=CONSTRAINED):
p3:=implicitplot({y^2=x^3+x},x=-3..3,y=-20..20,grid=[105,120],\
scaling=CONSTRAINED):
p4:=implicitplot({(y+12)^2=x^3-x},x=-3..3,y=-20..20,grid=[105,120],\
scaling=CONSTRAINED):
p5:=implicitplot({y=-12},x=-3..3,y=-20..20,grid=[105,120],scaling=CONSTRAINED):
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`],[-6,-8,`Plot by MapleV3`],
[3.7,-9,`(y+12)^2=x^3-x`],[3.7,-10,`Delta=64`],[3.7,-12,`y=-12`]]:
p6:=textplot(a,align = RIGHT, font = [TIMES, ROMAN, 12],scaling=CONSTRAINED):

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