{VERSION 5 0 "IBM INTEL NT" "5.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 Output" -1 12 1 {CSTYLE "" -1 
-1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 
0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "restart:mag:=proc(q)
;sqrt(add(q[i]^2,i=1..3))end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 51 "dot:=proc(r,q);simplify(add(r[i]*q[i],i=1..3)) end:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "cross:=proc(r,q);[r[2]*q[3]-r[3]*q[
2],r[3]*q[1]-r[1]*q[3],r[1]*q[2]-r[2]*q[1]] end:" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 2 "Q1" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 66 "r:=[2*t*cos(t),2*t*sin(t),sqrt(2*t)]: v:=diff(r,t):  \+
a:=diff(v,t):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "speed:=eva
l(mag(v),t=Pi/2): evalf(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+)y%
omP!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "a:=diff(v,t):" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "atang:=evalm(eval(dot(a,v)
/dot(v,v)*v,t=Pi/2)): evalf(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'
vectorG6#7%$!+hR$)o8!\"*$\"+[wE9()!#5$\"+<&\\#eCF," }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 46 "anorm:=eval(evalm(a-atang),t=Pi/2):  evalf(
%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7%$!+Rg;JE!\"*$!+>%
>I,%F)$!+R27aU!#5" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 63 "eval(sqrt((dot(v,v)*dot(a,a)-dot(v,a)^2)/(do
t(v,v)^3)),t=Pi/2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalf
(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+lw\\&R$!#5" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "eval(dot(v,cross(a,diff(a,t)))/(dot
(v,v)*dot(a,a)-dot(v,a)^2),t=Pi/2):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 9 "evalf(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+s6J>u
!#6" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q2" }{MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "A:=int(int(1,x=-sqrt(1-y^2).
.sqrt(1-y^2)),y=-1..0.5);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG$\"
+/ySFD!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 114 "evalm([int(i
nt(x,x=-sqrt(1-y^2)..sqrt(1-y^2)),y=-1..0.5),\nint(int(y,x=-sqrt(1-y^2
)..sqrt(1-y^2)),y=-1..0.5),0]/A);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-
%'vectorG6#7%$\"\"!F($!+U!oKr\"!#5F'" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 60 "int(int((y+1)^2,x=-sqrt(1-y^2)..sqrt(1-y^2)),y=-1..0.
5)*M/A;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&$\"+,%))4V)!#5\"\"\"%\"
MGF(F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q3" }{MPLTEXT 1 0 0 "" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 52 "int(2*sqrt(1-r^2)-1,r=0..sqrt(3)/2)*2*Pi:
  evalf(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+?s.fQ!\"*" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q4" }{MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 11 "solve(r^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"
!F#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "y:=add(c[i]*x^i,i=0.
.10):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "eq:=expand((1-2*x)
*x*diff(y,x,x)+(1-6*x)*diff(y,x)-2*y);" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%#eqG,L&%\"cG6#\"\"\"F)*(\"\")F)F&F)%\"xGF)!\"\"*(\"#=F)&F'6#\"
\"#F))F,F2F)F-*(\"#KF)&F'6#\"\"$F))F,F8F)F-*(\"#]F)&F'6#\"\"%F))F,F>F)
F-*(\"#sF)&F'6#\"\"&F))F,FDF)F-*(\"#)*F)&F'6#\"\"'F))F,FJF)F-*(\"$G\"F
)&F'6#\"\"(F))F,FPF)F-*(\"$i\"F)&F'6#F+F))F,F+F)F-*(\"$+#F)&F'6#\"\"*F
))F,FenF)F-*(\"$U#F)&F'6#\"#5F))F,F[oF)F-*(F>F)F0F)F,F)F)*(FenF)F6F)F3
F)F)*(\"#;F)F<F)F9F)F)*(\"#DF)FBF)F?F)F)*(\"#OF)FHF)FEF)F)*(\"#\\F)FNF
)FKF)F)*(\"#kF)FTF)FQF)F)*(\"#\")F)FYF)FVF)F)*(\"$+\"F)FinF)FfnF)F)*&F
2F)&F'6#\"\"!F)F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "solve(
\{seq(coeff(eq,x^i),i=1..7),eval(eq,x=0)\},\{seq(c[i],i=1..8)\});" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#<*/&%\"cG6#\"\"',$*&\"#k\"\"\"&F&6#\"
\"!F,F,/&F&6#\"\"(,$*&\"$G\"F,F-F,F,/&F&6#\"\"),$*&\"$c#F,F-F,F,/&F&6#
\"\"&,$*&\"#KF,F-F,F,/&F&6#F,,$*&\"\"#F,F-F,F,/&F&6#FJ,$*&\"\"%F,F-F,F
,/&F&6#\"\"$,$*&F:F,F-F,F,/&F&6#FP,$*&\"#;F,F-F,F," }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 30 "y:=sum(x^i*2^i,i=0..infinity);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%\"yG,$*&\"\"\"F',&*&\"\"#F'%\"xGF'F'F'!\"\"F,
F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "simplify((1-2*x)*x*di
ff(y,x,x)+(1-6*x)*diff(y,x)-2*y);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
\"\"!" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q5" }{MPLTEXT 1 0 0 "" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 52 "plugin:=proc(g,r);eval(g,\{x=r[1],y=r[2],z=
r[3]\})end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "dot:=proc(r,
q);simplify(add(r[i]*q[i],i=1..3)) end:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 98 "curl:=proc(g);[diff(g[3],y)-diff(g[2],z),diff(g[1],z)
-diff(g[3],x),\ndiff(g[2],x)-diff(g[1],y)]end:" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 59 "g:=[y*z-x^2,x*z-y^2,x*y-z^2]; curl(g);  #conse
rvative field" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"gG7%,&*&%\"yG\"\"
\"%\"zGF)F)*$)%\"xG\"\"#F)!\"\",&*&F-F)F*F)F)*$)F(F.F)F/,&*&F-F)F(F)F)
*$)F*F.F)F/" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"\"!F$F$" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "f:=int(g[1],x): f:=f+int(g[2]-diff(
f,y),y): f:=f+int(g[3]-diff(f,z),z);" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>%\"fG,**(%\"yG\"\"\"%\"zGF(%\"xGF(F(*&#F(\"\"$F(*$)F*F-F(F(!\"\"*&#
F(F-F(*$)F'F-F(F(F0*&#F(F-F(*$)F)F-F(F(F0" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 59 "evalm([diff(f,x),diff(f,y),diff(f,z)]-g);    #just \+
checking" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7%\"\"!F'F'" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "plugin(f,[2,6,-3])-plugin(
f,[3,-1,4.]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$!+qmmmf!\")" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "Q6" }{MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "restart:  mag:=proc(q);sqrt(add(q[i
]^2,i=1..3))end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "dot:=pr
oc(r,q);simplify(add(r[i]*q[i],i=1..3)) end:" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 83 "cross:=proc(r,q);[r[2]*q[3]-r[3]*q[2],r[3]*q[1]-
r[1]*q[3],r[1]*q[2]-r[2]*q[1]] end:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 65 "r:=[2*v*cos(u),2*v*sin(u),v]:   simplify(r[1]^2+r[2]^
2-4*r[3]^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "A:=int(int(mag(cross(diff(r,u),diff
(r,v))),u=0..2*Pi),v=1..3.);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG
$\"+d.(R7\"!\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "[0,0,int
(int(r[3]*mag(cross(diff(r,u),diff(r,v))),u=0..2*Pi),v=1..3.)/A];" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"\"!F$$\"+nmmm@!\"*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "int(int((r[2]^2+(r[3]-2)^2)*mag(cro
ss(diff(r,u),diff(r,v))),u=0..2*Pi),v=1..3.)*\nM/A;" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#,$*&$\"+MLLL5!\")\"\"\"%\"MGF(F(" }}}}{MARK "46" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }