{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 }{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 "Headi ng 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }1 0 0 0 8 4 0 0 0 0 0 0 -1 0 }{PSTYLE "Title" 0 18 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 1 0 0 0 0 0 0 0 }3 0 0 -1 12 12 0 0 0 0 0 0 19 0 }} {SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 52 "Maple-Datei zu Divergenz, Vorlesung vom 30. 10. 2003" }}{PARA 0 "" 0 "" {TEXT -1 12 "Othmar Mar ti" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 9 "Divergenz" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "with(VectorCalculus):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "SetCoordinates( 'cartesian'[x,y,z] );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "F := VectorField( );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "simplify(Divergence( F ));" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "F := VectorField( );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "simplify(Divergen ce( F ));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "F := D0*R0^2*V ectorField( );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Divergence( F );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "SetCoordinates( 's pherical'[r,theta,phi] );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "F:= D0*R0^2*VectorField( <1/r^2,0,0> );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "Divergence(F);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "F:= D0*R0*VectorField( <1/r,0,0> );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "Divergence(F);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "F:= D0*VectorField( <1,0,0> );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "Divergence(F);" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 33 "F:= D0/R0*VectorField( );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "Divergence(F);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "E := Q*K/r^2;" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 8 "Gradient" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "Gradient(E );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "EE := Q*K/r*sin(phi)* cos(theta);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "Gradient(EE) ;" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "2 0 0" 8 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }