{VERSION 5 0 "IBM INTEL LINUX" "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 "" 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 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 
0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "f := x -> x;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGf*6#%\"xG6\"6$%)operatorG%&arrow
GF(9$F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "fprime := D(
f);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'fprimeG\"\"\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 93 "B_x := (x,z,t) -> fprime(x)*z*cos(t
)/(sqrt(z^2 + (1 - x*cos(t))^2)*(x^2+1 +z^2 -2*x*cos(t)));" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%$B_xGf*6%%\"xG%\"zG%\"tG6\"6$%)operatorG%&
arrowGF**,-%'fprimeG6#9$\"\"\"9%F3-%$cosG6#9&F3-%%sqrtG6#,&*$)F4\"\"#F
3F3*$),&F3F3*&F2F3F5F3!\"\"F?F3F3FD,**$)F2F?F3F3F3F3F=F3*(F?F3F2F3F5F3
FDFDF*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "T_x := (x,z) \+
-> int(B_x(x,z,t),t=0..2*Pi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$T_
xGf*6$%\"xG%\"zG6\"6$%)operatorG%&arrowGF)-%$intG6$-%$B_xG6%9$9%%\"tG/
F5;\"\"!,$*&\"\"#\"\"\"%#PiGF<F<F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 11 "T_x(0.5,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+XD
)=4)!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 93 "B_y := (x,z,t) -
> fprime(x)*z*sin(t)/(sqrt(z^2 + (1 - x*cos(t))^2)*(x^2+1 +z^2 -2*x*co
s(t)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$B_yGf*6%%\"xG%\"zG%\"tG6
\"6$%)operatorG%&arrowGF**,-%'fprimeG6#9$\"\"\"9%F3-%$sinG6#9&F3-%%sqr
tG6#,&*$)F4\"\"#F3F3*$),&F3F3*&F2F3-%$cosGF7F3!\"\"F?F3F3FF,**$)F2F?F3
F3F3F3F=F3*(F?F3F2F3FDF3FFFFF*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 42 "T_y := (x,z) -> int(B_y(x,z,t),t=0..2*Pi);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%$T_yGf*6$%\"xG%\"zG6\"6$%)operatorG%&arrow
GF)-%$intG6$-%$B_yG6%9$9%%\"tG/F5;\"\"!,$*&\"\"#\"\"\"%#PiGF<F<F)F)F)
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "T_y(0,1.0);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#$\"\"!F$" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 98 "B_z := (x,z,t) -> fprime(x)*(1- x*cos(t))/(sqrt(z^2 +
 (1 - x*cos(t))^2)*(x^2+1 +z^2 -2*x*cos(t)));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$B_zGf*6%%\"xG%\"zG%\"tG6\"6$%)operatorG%&arrowGF***-
%'fprimeG6#9$\"\"\",&F3F3*&F2F3-%$cosG6#9&F3!\"\"F3-%%sqrtG6#,&*$)9%\"
\"#F3F3*$)F4FBF3F3F:,**$)F2FBF3F3F3F3F?F3*(FBF3F2F3F6F3F:F:F*F*F*" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "T_z := (x,z) -> int(B_z(x,z,
t),t=0..2*Pi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$T_zGf*6$%\"xG%\"z
G6\"6$%)operatorG%&arrowGF)-%$intG6$-%$B_zG6%9$9%%\"tG/F5;\"\"!,$*&\"
\"#\"\"\"%#PiGF<F<F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "
T_z(0,3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*(\"#]!\"\"\"#5#\"\"\"
\"\"#%#PiGF)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "5 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 
33 1 1 }