{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 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 
11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 
0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "
Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }
}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "z:=(1+I)*t;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"zG*&^$\"\"\"F'F'%\"tGF'" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "int(Re(z)*diff(z,t),t=0..1);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#^$#\"\"\"\"\"#F$" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 28 "z:=(1+I)/2+exp(I*t)/sqrt(2);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%\"zG,&^$#\"\"\"\"\"#F'F(*&F'F(*&-%$expG6#*&%
\"tGF(^#F(F(F(F)F'F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "p
lot([Re(z),Im(z),t=Pi/4..5*Pi/4]);" }}{PARA 13 "" 1 "" {GLPLOT2D 496 
496 496 {PLOTDATA 2 "6%-%'CURVESG6$7S7$$\"+**********!#5F(7$$\"+#>ghk*
F*$\"+$HSI.\"!\"*7$$\"+Om]?$*F*$\"+j3wf5F07$$\"+$G;g$*)F*$\"+%>Lu3\"F0
7$$\"+4(R6`)F*$\"+Cfi76F07$$\"+z'RA6)F*$\"+&yK\\8\"F07$$\"+w\"*H6xF*$
\"+A41`6F07$$\"+`W5&G(F*$\"+\")e;p6F07$$\"+BePMoF*$\"+9()*G=\"F07$$\"+
nW)pP'F*$\"+])pN>\"F07$$\"+GJ=+fF*$\"+zMN,7F07$$\"+B>mwaF*$\"+f$)\\07F
07$$\"+5*))y*\\F*$\"+]n527F07$$\"+wF;<XF*$\"+kjX07F07$$\"+;F)f0%F*$\"+
Opx+7F07$$\"+T&\\1k$F*$\"+?w\"R>\"F07$$\"++$oJ:$F*$\"+5Hc#=\"F07$$\"+u
:NZFF*$\"+LaEq6F07$$\"+>6e&G#F*$\"+98$H:\"F07$$\"+2^y()=F*$\"++S$\\8\"
F07$$\"+:h/l9F*$\"+?fS76F07$$\"+B&\\v2\"F*$\"+())R$)3\"F07$$\"*<Cm!pF*
$\"+q6ig5F07$$\"*!HMDNF*$\"+sk#H.\"F07$$\"(!HfxF*$\"+EZx+5F07$$!*#))\\
oKF*$\"+gLB]'*F*7$$!*%*RQ(fF*$\"+dwz?$*F*7$$!*@1pm)F*$\"+bnRZ*)F*7$$!+
$p!y=6F*$\"+'y#3W&)F*7$$!+l0iQ8F*$\"+h$*)R8)F*7$$!+/.@D:F*$\"+epECxF*7
$$!+IrO,<F*$\"+2[ZcsF*7$$!+6'46$=F*$\"+%)fXEoF*7$$!+I-?R>F*$\"+xxAfjF*
7$$!+49f4?F*$\"+[9RIfF*7$$!+6eCc?F*$\"+/qfdaF*7$$!+[&f52#F*$\"+#\\43,&
F*7$$!+fVLc?F*$\"+r/xVXF*7$$!+Pl97?F*$\"+3f1*3%F*7$$!+O!HX$>F*$\"+.\"Q
rh$F*7$$!+1\"y(H=F*$\"+D8doJF*7$$!+HRo#p\"F*$\"+)p**yr#F*7$$!+Y))QF:F*
$\"+-q&4G#F*7$$!+.>O]8F*$\"+)zq)*)=F*7$$!+yns=6F*$\"+IT#eX\"F*7$$!*&Q=
k))F*$\"+pB3#3\"F*7$$!*&\\SOhF*$\"*dTM+(F*7$$!*B>RH$F*$\"*f,o_$F*7$$\"
\"(F*$!\"%F*-%'COLOURG6&%$RGBG$\"#5!\"\"$\"\"!F^[lF][l-%+AXESLABELSG6$
Q!6\"Fb[l-%%VIEWG6$%(DEFAULTGFg[l" 1 2 0 1 10 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 37 "-int(Re(z)*diff(z,t),t=Pi/4..5*Pi/4);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#,&^$#\"\"\"\"\"#F%F&*&^##!\"\"\"\"%F&%#PiGF&F&" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "int(Re(z)*diff(z,t),t=5*Pi/
4..9*Pi/4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&^$#\"\"\"\"\"#F%F&*&^
##F&\"\"%F&%#PiGF&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "z:=
(1+I)*t;\n                       " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%\"zG*&^$\"\"\"F'F'%\"tGF'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
39 "int(exp(z)*diff(z,t),t=0..1); evalc(%);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,&-%$expG6#^$\"\"\"F(F(F(!\"\"" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,(*&-%$expG6#\"\"\"F(-%$cosGF'F(F(F(!\"\"*(F%F(-%$sinGF
'F(^#F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "z:=(1+I)/2+e
xp(I*t)/sqrt(2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"zG,&^$#\"\"\"
\"\"#F'F(*&F'F(*&-%$expG6#*&%\"tGF(^#F(F(F(F)F'F(F(" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 48 "-int(exp(z)*diff(z,t),t=Pi/4..5*Pi/4); ev
alc(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*&-%$expG6#\"\"\"F()!\"\"
*&F(F(%#PiGF*F(F(F(F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&-%$expG6#
\"\"\"F(-%$cosGF'F(F(F(!\"\"*(F%F(-%$sinGF'F(^#F(F(F(" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "int(exp(z)*diff(z,t),t=5*Pi/4..9*Pi
/4); evalc(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*&-%$expG6#\"\"\"F
()!\"\"*&F(F(%#PiGF*F(F(F(F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&-%
$expG6#\"\"\"F(-%$cosGF'F(F(F(!\"\"*(F%F(-%$sinGF'F(^#F(F(F(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "exp(1+I)-exp(0); evalc(%);" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&-%$expG6#^$\"\"\"F(F(F(!\"\"" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&-%$expG6#\"\"\"F(-%$cosGF'F(F(F(!
\"\"*(F%F(-%$sinGF'F(^#F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 14 "z:=1+exp(I*t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"zG,&\"\"\"
F&-%$expG6#*&%\"tGF&^#F&F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 35 "int(1/(z^2-1)*diff(z,t),t=0..2*Pi);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#*&%#PiG\"\"\"^#F%F%" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 32 "restart:  series(1/(z^2-1),z=1);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#+1,&%\"zG\"\"\"F&!\"\"#F&\"\"#F'#F'\"\"%\"\"!#F&\"\")F&
#F'\"#;F)#F&\"#K\"\"$#F'\"#kF+-%\"OG6#F&\"\"&" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 23 "series(1/(z^2-1),z=-1);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#+1,&%\"zG\"\"\"F&F&#!\"\"\"\"#F(#F(\"\"%\"\"!#F(\"\")F&
#F(\"#;F)#F(\"#K\"\"$#F(\"#kF+-%\"OG6#F&\"\"&" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 15 "z:=-1+exp(I*t);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%\"zG,&\"\"\"!\"\"-%$expG6#*&%\"tGF&^#F&F&F&" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 35 "int(1/(z^2-1)*diff(z,t),t=0..2*Pi);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#*&^#!\"\"\"\"\"%#PiGF&" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 14 "z:=2*exp(I*t):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 35 "int(1/(z^2-1)*diff(z,t),t=0..2*Pi);" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "
restart:    ro:=solve(z^4+1,z);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#
roG6&,&*&\"\"#!\"\"F(#\"\"\"F(F+*&^#F*F+F(F*F+,&F,F+*&F(F)F(F*F),&*&F(
F)F(F*F)*&^##F)F(F+F(F*F+,&F2F+*&F(F)F(F*F+" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 34 "seq(evalf(abs(ro[i]-1-I)),i=1..4);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6&$\"+Dc8UT!#5$\"+330K<!\"*$\"+hN@9CF(F&" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "z:=1+I+exp(I*t):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 37 "int(z^2/(z^4+1)*diff(z,t),t=0..2*Pi);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*(\"\"%!\"\"\"\"##\"\"\"F'%#PiGF)F)*
(^##F)F%F)F'F(F*F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "ser
ies(Z^2/(Z^4+1),Z=ro[1],2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#+',(%\"
ZG\"\"\"*&\"\"#!\"\"F(#F&F(F)*&^##F)F(F&F(F*F&,$*&F&F&*&F(F&,&*$F(F*F&
*&F(F*^#F&F&F&F&F)F&F)-%\"OG6#F&\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 30 "evalc(2*Pi*I/2/sqrt(2)/(1+I));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,&*(\"\"%!\"\"\"\"##\"\"\"F'%#PiGF)F)*(^##F)F%F)F'F(F*F
)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "residue(Z^2/(Z^4+1),
Z=ro[1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&*&^#\"\"#\"\"\"F'#F(F
'F(*&F'F(F'F)!\"\"F+^#F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
16 "evalc(2*Pi*I*%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*(\"\"%!\"\"
\"\"##\"\"\"F'%#PiGF)F)*(^##F)F%F)F'F(F*F)F)" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 10 "evalf(ro);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&^$
$\"+5y1rq!#5F$^$$!+5y1rqF&F$^$F(F(^$F$F(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 74 "evalc(2*Pi*I*(residue(Z^2/(Z^4+1),Z=ro[1])+residue(Z^
2/(Z^4+1),Z=ro[2])));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*(\"\"#!\"
\"F%#\"\"\"F%%#PiGF(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "i
nt(x^2/(x^4+1),x=-infinity..infinity);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#,$*(\"\"#!\"\"F%#\"\"\"F%%#PiGF(F(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 28 "eval(1/4/Z,Z=(1+I)/sqrt(2));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#*&^$#\"\"\"\"\")#!\"\"F'F&\"\"##F&F*" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 37 "int((1+sin(t))/(3+cos(t)),t=0..2*Pi);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#,$*(\"\"#!\"\"F%#\"\"\"F%%#PiGF(F(" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "simplify((1+(z-1/z)/2/I)/(3+(z+1/z)
/2)/I/z);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#**,(*&\"\"#\"\"\"%\"zGF'!
\"\"*&)F(F&F'^#F'F'F'^#F)F'F'F(F),(*&\"\"'F'F(F'F'*$F+F'F'F'F'F)F,F'" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "ro:=solve(z^2+6*z+1);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#roG6$,&\"\"$!\"\"*&\"\"#\"\"\"F*#F+
F*F+,&F'F(*&F*F+F*F,F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "e
valf(ro);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$$!*wGdr\"!\"*$!+CrUGeF%" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "r1:=residue((2*z-I*z^2+I)
/(z^2+6*z+1)/I/z,z=ro[1]): evalc(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#,&*&,&\"#;!\"\"*&\"#7\"\"\"\"\"##F*F+F*F*,&F&F**&F)F*F+F,F'F'F**(,&
\"\"'F**&\"\"%F*F+F,F'F*F-F'^#F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 48 "r0:=residue((2*z-I*z^2+I)/(z^2+6*z+1)/I/z,z=0); " }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#r0G\"\"\"" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 23 "normal(2*Pi*I*(r1+r0));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,$*(%#PiG\"\"\",&\"\"$!\"\"*&\"\"#F&F+#F&F+F&F&,&\"\"%F
)*&F(F&F+F,F&F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "expand
((3-2*sqrt(2))*(4+3*sqrt(2)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*$\"
\"##\"\"\"F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "expand((-4+
3*sqrt(2))*(4+3*sqrt(2)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"#" }
}}}{MARK "42" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 
33 1 1 }