{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 := z -> z;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGf*6#%\"zG6\"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(z)*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%\"\"\"F2F3-%$cosG6#9&F3-%%sqrtG6#,&*$)F2\"\"#F
3F3*$),&F3F3*&9$F3F4F3!\"\"F>F3F3FD,**$)FCF>F3F3F3F3F<F3*(F>F3FCF3F4F3
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 42 "M_x := (x,w) -> \+
int(T_x(x,z), z=w..(w+1));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$M_xGf
*6$%\"xG%\"wG6\"6$%)operatorG%&arrowGF)-%$intG6$-%$T_xG6$9$%\"zG/F4;9%
,&\"\"\"F9F7F9F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "M_x(
0,1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 93 "B_y := (x,z,t) -> fprime(z)*z*sin(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_yGf*6%%\"xG%\"zG%\"tG6\"6$%)operatorG%&arrowGF**,-
%'fprimeG6#9%\"\"\"F2F3-%$sinG6#9&F3-%%sqrtG6#,&*$)F2\"\"#F3F3*$),&F3F
3*&9$F3-%$cosGF6F3!\"\"F>F3F3FF,**$)FCF>F3F3F3F3F<F3*(F>F3FCF3FDF3FFFF
F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "T_y := (x,z) -> i
nt(B_y(x,z,t),t=0..2*Pi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$T_yGf*
6$%\"xG%\"zG6\"6$%)operatorG%&arrowGF)-%$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) -> fpr
ime(z)*(1- x*cos(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_zGf*6%%\"xG%\"zG%\"tG6
\"6$%)operatorG%&arrowGF***-%'fprimeG6#9%\"\"\",&F3F3*&9$F3-%$cosG6#9&
F3!\"\"F3-%%sqrtG6#,&*$)F2\"\"#F3F3*$)F4FBF3F3F;,**$)F6FBF3F3F3F3F@F3*
(FBF3F6F3F7F3F;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%\"zG6\"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 42 "M_z := (x,w) -> int(T_z(x,z), z=w..
(w+1));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$M_zGf*6$%\"xG%\"wG6\"6$%
)operatorG%&arrowGF)-%$intG6$-%$T_zG6$9$%\"zG/F4;9%,&\"\"\"F9F7F9F)F)F
)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "M_z(0,1.0);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#$\"+Z)op<\"!\"*" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 1 ":" }}}}{MARK "15 0 0" 1 }{VIEWOPTS 1 1 0 1 1 1803 1 
1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }