{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 }
{CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 
257 "" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 0 }{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 "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier
" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 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 Outpu
t" -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 }{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 }{PSTYLE "Normal" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 14 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 "Normal" 
-1 257 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 2 1 2 2 2 1 1 1 1 }1 
1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 257 "" 0 "" {TEXT 256 75 "Calculation of fields d
ue to sudden turn-on of current in an infinite wire\n" }{TEXT 257 27 "
(see Griffiths, Ex. 10.2)\n\n" }{TEXT -1 21 "Instructions for use:" }}
{PARA 256 "" 0 "" {TEXT -1 434 "Start with cursor at the first line of
 red text in the file.  Keep pressing the enter key, waiting for the c
omputer to finish the computation each time.  In order to run the anim
ations, select the graph, then click on the \"play button\" on the too
l bar (looks like a triangle pointing to the right).  If you change so
me function or parameter, you only need to re-run the \"execution grou
ps\" below that point where you made the change.  " }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "restart: with(plots
);" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has \+
been redefined\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7W%(animateG%*anim
ate3dG%-animatecurveG%&arrowG%-changecoordsG%,complexplotG%.complexplo
t3dG%*conformalG%,conformal3dG%,contourplotG%.contourplot3dG%*coordplo
tG%,coordplot3dG%-cylinderplotG%,densityplotG%(displayG%*display3dG%*f
ieldplotG%,fieldplot3dG%)gradplotG%+gradplot3dG%-implicitplotG%/implic
itplot3dG%(inequalG%-listcontplotG%/listcontplot3dG%0listdensityplotG%
)listplotG%+listplot3dG%+loglogplotG%(logplotG%+matrixplotG%(odeplotG%
'paretoG%*pointplotG%,pointplot3dG%*polarplotG%,polygonplotG%.polygonp
lot3dG%4polyhedra_supportedG%.polyhedraplotG%'replotG%*rootlocusG%,sem
ilogplotG%+setoptionsG%-setoptions3dG%+spacecurveG%1sparsematrixplotG%
+sphereplotG%)surfdataG%)textplotG%+textplot3dG%)tubeplotG" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "Az := (s,t) -> ln((c*t+sqrt((c*t)^2
-s^2))/s);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#AzGf*6$%\"sG%\"tG6\"6
$%)operatorG%&arrowGF)-%#lnG6#*&,&*&%\"cG\"\"\"9%F4F4-%%sqrtG6#,&*&)F3
\"\"#F4)F5F<F4F4*$)9$F<F4!\"\"F4F4F@FAF)F)F)" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 16 "diff(Az(s,t),t);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#*&,&%\"cG\"\"\"*(,&*&)F%\"\"#F&)%\"tGF+F&F&*$)%\"sGF+F&!\"\"#F1F
+F%F+F-F&F&F&,&*&F%F&F-F&F&*$-%%sqrtG6#F(F&F&F1" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 12 "simplify(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#*&%\"cG\"\"\",&*&)F$\"\"#F%)%\"tGF)F%F%*$)%\"sGF)F%!\"\"#F/F)" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "Ez := (s,t) -> -diff(Az(s,t)
,t)*Heaviside(t-s/c);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#EzGf*6$%\"
sG%\"tG6\"6$%)operatorG%&arrowGF),$*&-%%diffG6$-%#AzG6$9$9%F6\"\"\"-%*
HeavisideG6#,&F6F7*&F5F7%\"cG!\"\"F>F7F>F)F)F)" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 16 "diff(Az(s,t),s);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#*(,&*&\"\"\"F&*$-%%sqrtG6#,&*&)%\"cG\"\"#F&)%\"tGF/F&F&*$)%\"sGF
/F&!\"\"F&F5F5*&,&*&F.F&F1F&F&*$-F)6#F+F&F&F&F4!\"#F5F&F7F5F4F&" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "simplify(%);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#,$**%\"cG\"\"\"%\"tGF&,&*&)F%\"\"#F&)F'F+F&F&*$)%
\"sGF+F&!\"\"#F0F+F/F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 
"Bphi := (s,t) -> -diff(Az(s,t),s)*Heaviside(t-s/c);" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%%BphiGf*6$%\"sG%\"tG6\"6$%)operatorG%&arrowGF),$*&
-%%diffG6$-%#AzG6$9$9%F5\"\"\"-%*HeavisideG6#,&F6F7*&F5F7%\"cG!\"\"F>F
7F>F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 146 "c := 1: anima
te(Ez(s,t),s=0..10,t=0..20,frames=100,numpoints=200,labels=[\"s\",\"Ez
\"],title=\"E field due to current step\",titlefont=[TIMES,BOLD,12]);
" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 142 "animate(Bphi(s,t),s=0..10,t=0..20,frames=100,numpoin
ts=200,labels=[\"s\",\"Bphi\"],title=\"B field due to current step\",t
itlefont=[TIMES,BOLD,12]);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }