{VERSION 1 0 "X11/Motif" "1.0"}{GLOBALS 3 1}{FONT 0 "-adobe-helve
tica-bold-r-normal--14-*" "helvetica" "Helvetica-Bold" 8 14 0 "He
lvetica-Bold" 12}{FONT 1 "-adobe-times-medium-r-normal--14-*" "ti
mes" "Times-Roman" 4 14 64 "Times-Roman" 12}{FONT 2 "-adobe-couri
er-medium-r-normal--14-*" "courier" "Courier" 4 14 192 "Courier" 
12}{FONT 3 "-adobe-new century schoolbook-bold-r-normal--17-*" "n
ew century schoolbook" "Times-Bold" 8 17 64 "Times-Bold" 17}{FONT
 4 "-adobe-new century schoolbook-bold-r-normal--17-*" "new centu
ry schoolbook" "Times-Bold" 8 17 64 "Times-Bold" 17}{FONT 5 "-ado
be-new century schoolbook-bold-r-normal--17-*" "new century schoo
lbook" "Times-Bold" 8 17 64 "Times-Bold" 17}{SCP_R 1 0 20{COM_R 2
 0{TEXT 5 26 "Maple in Science Education"}}{COM_R 3 0{TEXT 1 74 "
\015Balancing Chemical Reactions\012Darren Redfern, Tony Scott, R
ichard Pavelle\015"}}{COM_R 4 0{TEXT 1 32 "Balance the following 
equation:\015"}}{INP_R 5 0 "> "{TEXT 0 85 "a * Cu[2] * S + b * H 
^ `+` + c * NO[3]^`-` = d * Cu^`2+` + e*NO + f*S[8] + g*H[2]*O;"}
}{OUT_R 6 0 5{DAG =3+7*7n3\`a`j2x0001b3n3\`Cu`,2j2x0002p5n3\`S`p5
p5*5n3\`b`p5^3n3\`H`n3\`+`p5p5*5n3\`c`p5^3b3n3\`NO`,2j2x0003n3\`-
`p5p5+9*5n3\`d`p5^3p8n3\`2+`p5p5*5n3\`e`p5p23p5p5*5n3\`f`p5b3pE,2
j2x0008p5p5*7n3\`g`p5b3p17pAp5n3\`O`p5p5}}{COM_R 7 0{TEXT 1 132 "
Each element is a conserved quantity and the conservation equatio
n can be assigned a label reflecting the quantity being conserved
.\012"}}{INP_R 8 0 "> "{TEXT 0 14 "Cu := 2*a = d:"}}{INP_R 9 0 ">
 "{TEXT 0 13 "S := a = 8*f:"}}{INP_R 10 0 "> "{TEXT 0 13 "H := b 
= 2*g:"}}{INP_R 11 0 "> "{TEXT 0 11 "N := c = e:"}}{INP_R 12 0 ">
 "{TEXT 0 20 "Oxygen := 3*c = e+g:"}}{COM_R 13 0{TEXT 1 44 "\015Q
 represents charge and is also preserved.\012"}}{INP_R 14 0 "> "
{TEXT 0 15 "Q := b-c = 2*d:"}}{INP_R 15 0 "> "{TEXT 0 35 "ans := 
isolve(\{Cu,S,H,N,Oxygen,Q\});"}}{OUT_R 16 0 15{DAG :3n3\`ans`%2,
8=3n3\`a`+3n3\`_N1`j2x0024=3n3\`b`+3p9j2x0128=3n3\`c`+3p9j2x0032=
3n3\`d`+3p9j2x0048=3n3\`e`p17=3n3\`f`+3p9j2x0003=3n3\`g`+3p9j2x00
64}}{COM_R 17 0{TEXT 1 98 "We get a parametric solution. We want 
integer coefficients of the lowest possible positive value.\012"}
}{INP_R 18 0 "> "{TEXT 0 16 "subs(_N1=1,ans);"}}{OUT_R 19 0 18
{DAG %2,8=3n3\`b`j2x0128=3n3\`a`j2x0024=3n3\`f`j2x0003=3n3\`e`j2x
0032=3n3\`d`j2x0048=3n3\`c`p14=3n3\`g`j2x0064}}{SEP_R 20 0}{INP_R
 21 0 "> "{TEXT 0 0 ""}}}{END}
