{VERSION 4 0 "IBM INTEL NT" "4.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 "" -1 256 "" 1 18 253 63 64 0 0 0 2 0 0 0 0 0 0 
1 }{CSTYLE "" -1 257 "" 1 14 109 1 39 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "
" -1 258 "" 1 14 0 0 219 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 259 "" 
1 14 0 0 0 0 0 0 0 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 "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 
1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 6 6 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 2
" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }
3 1 0 0 4 4 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 2" -1 257 1 {CSTYLE "" 
-1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 4 4 1 0 1 0 2 
2 0 1 }}
{SECT 0 {EXCHG {PARA 257 "" 0 "" {TEXT 256 53 "Maple PC solution for c
harge in R-C electric circuit:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 8 "restart:" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT 257 112 "Set up R-C \+
electric circuit Initial Value Problem (IVP):  Differential Equation (
DE) plus Initial Condition (IC)" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 60 "R := 2 ; C := 1/6 ; E(t) := 100 ; # Enter circuit parameters" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "IC := q(0) = 30 ; # Enter
 initial charge" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "DE := R*
diff(q(t),t) + q(t)/C = E(t) ;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "I
VP := \{DE\} union \{IC\} ;" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT 258 33 
"Solve IVP for charge and current " }}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 28 "soln := dsolve(IVP,\{q(t)\}) :" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "subs(soln,q(t)) :" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
24 "charge := unapply(%,t) ;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 35 "current := t -> diff(charge(t),t) ;" }}}}{SECT 1 {PARA 3 "" 0 "
" {TEXT -1 1 " " }{TEXT 259 23 "Plot charge and current" }}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "plot(charge(t), t=0..2) ;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "plot(current(t), t=0..2) ;" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}}{MARK "1 0 0" 8 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }