{VERSION 6 0 "IBM INTEL NT" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 17 "Read in packages." }{MPLTEXT 1 0 0 "" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "with( algcurves ) : read( \"AbelMap
_3Aug.mpl\" ) ; read( \"RCV_TOGO.mpl\" ) ;" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 19 "Define some curves." }{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 
"" {MPLTEXT 1 0 105 "f[1] := y^2 - ( x^2 - 1 *(x ^2 - 7 )*( x^2 - 8 )*
( x^2 - 9 ) ; f[2] := 7*x*y^3 - 7*I*y^2*x^4 - x + 6 - y;" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 32 "Get all the branches over x = 0." }
{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "P := RiemannCon
stantVector:-AllBranches( f[1], x, 0, y, 6, t ) ;" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 64 "Find the Riemann constant vector from the algorith
mic basepoint." }{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
56 "rcv := RiemannConstantVector ( f[1], x, y, 'ZERO', 3 ) ;" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 67 "Find the Riemann constant vector f
rom one of the places over x = 0." }{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 
0 "" {MPLTEXT 1 0 54 "rcv := RiemannConstantVector ( f[1], x, y, P[1],
 3 ) ;" }}}}{MARK "6" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }