{VERSION 6 0 "IBM INTEL NT" "6.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 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 2 0 2 0 2 2 0 1 }{PSTYLE "No \+ Name" -1 205 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 206 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 207 1 {CSTYLE "" -1 -1 "Co urier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 208 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 209 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 210 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 211 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "N o Name" -1 212 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 213 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 214 1 {CSTYLE "" -1 -1 "Co urier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 215 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 216 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 217 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 218 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "N o Name" -1 219 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 220 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 221 1 {CSTYLE "" -1 -1 "Co urier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 222 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 223 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 224 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 225 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "N o Name" -1 226 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 227 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 228 1 {CSTYLE "" -1 -1 "Co urier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 229 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 230 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 231 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 232 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "N o Name" -1 233 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 234 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 235 1 {CSTYLE "" -1 -1 "Co urier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 236 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 237 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 238 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 239 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "N o Name" -1 240 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 241 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 242 1 {CSTYLE "" -1 -1 "Co urier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 243 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 244 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 245 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 246 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "N o Name" -1 247 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 248 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 249 1 {CSTYLE "" -1 -1 "Co urier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 250 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 251 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 252 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 253 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "N o Name" -1 254 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 255 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "No Name" -1 256 1 {CSTYLE "" -1 -1 "Co urier" 1 10 0 0 204 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 205 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}} {EXCHG {PARA 206 "> " 0 "" {MPLTEXT 1 0 45 "with(Maplets[Elements]):wi th(Maplets[Tools]):" }}{PARA 207 "> " 0 "" {MPLTEXT 1 0 14 "StartEngin e();" }}}{EXCHG {PARA 208 "> " 0 "" {MPLTEXT 1 0 12 "randomize():" }}} {EXCHG {PARA 209 "> " 0 "" {MPLTEXT 1 0 10 "great := [" }}{PARA 210 "> " 0 "" {MPLTEXT 1 0 13 "\" Correct. \"," }}{PARA 211 "> " 0 "" {MPLTEXT 1 0 9 "\" YES! \"," }}{PARA 212 "> " 0 "" {MPLTEXT 1 0 13 "\" Perfect. \"," }}{PARA 213 "> " 0 "" {MPLTEXT 1 0 13 "\" Awesome! \", " }}{PARA 214 "> " 0 "" {MPLTEXT 1 0 60 "\" Excellent! \",\n\" Way to \+ GO!\",\n\" Now that's how you do it!\"," }}{PARA 215 "> " 0 "" {MPLTEXT 1 0 36 "\" I couldn't have done it better! \"," }}{PARA 216 " > " 0 "" {MPLTEXT 1 0 37 "\" Ding Ding Ding, we have a winner. \"" }} {PARA 217 "> " 0 "" {MPLTEXT 1 0 2 "]:" }}}{EXCHG {PARA 218 "> " 0 "" {MPLTEXT 1 0 34 "randgreat := rand(1..nops(great)):" }}}{EXCHG {PARA 219 "> " 0 "" {MPLTEXT 1 0 14 "nextquest := [" }}{PARA 220 "> " 0 "" {MPLTEXT 1 0 70 "\"Try another one.\",\n\"Give it another shot.\",\n\" Can you do that again?\"," }}{PARA 221 "> " 0 "" {MPLTEXT 1 0 28 "\"Ap proximate another point.\"" }}{PARA 222 "> " 0 "" {MPLTEXT 1 0 2 "]:" }}}{EXCHG {PARA 223 "> " 0 "" {MPLTEXT 1 0 37 "randnext := rand(1..nop s(nextquest)):" }}}{EXCHG {PARA 224 "> " 0 "" {MPLTEXT 1 0 10 "sorry : = [" }}{PARA 225 "> " 0 "" {MPLTEXT 1 0 39 "\" Not really what I was l ooking for. \"," }}{PARA 226 "> " 0 "" {MPLTEXT 1 0 10 "\" Nope. \"," }}{PARA 227 "> " 0 "" {MPLTEXT 1 0 29 "\" Sorry, That's incorrect. \", " }}{PARA 228 "> " 0 "" {MPLTEXT 1 0 22 "\" Ooooh...so close. \"," }} {PARA 229 "> " 0 "" {MPLTEXT 1 0 10 "\" Oops. \"," }}{PARA 230 "> " 0 "" {MPLTEXT 1 0 45 "\" Wrong Wrong Wrong. You have it all WRONG. \"" } }{PARA 231 "> " 0 "" {MPLTEXT 1 0 2 "]:" }}}{EXCHG {PARA 232 "> " 0 " " {MPLTEXT 1 0 34 "randsorry := rand(1..nops(sorry)):" }}}{EXCHG {PARA 233 "> " 0 "" {MPLTEXT 1 0 13 "tryagain := [" }}{PARA 234 "> " 0 "" {MPLTEXT 1 0 89 "\"Try the hint.\",\n\"Guess again.\",\n\"They sa y the third times the charm. Please try again.\"," }}{PARA 235 "> " 0 "" {MPLTEXT 1 0 13 "\"Try again.\"," }}{PARA 236 "> " 0 "" {MPLTEXT 1 0 19 "\"Please try again.\"" }}{PARA 237 "> " 0 "" {MPLTEXT 1 0 2 "]: " }}}{EXCHG {PARA 238 "> " 0 "" {MPLTEXT 1 0 35 "randtry := rand(1..no ps(tryagain)):" }}}{EXCHG {PARA 239 "> " 0 "" {MPLTEXT 1 0 11 "showit \+ := [" }}{PARA 240 "> " 0 "" {MPLTEXT 1 0 254 "\" OK now try it yoursel f.\",\n\" I know how you work- you click SHOW IT so I have to do all t he work! How about you try it yourself!?\",\n\" Now try using your own mind for a change to solve the problem.\",\n\" Do you see how it's do ne now? Okay now you try it.\"," }}{PARA 241 "> " 0 "" {MPLTEXT 1 0 41 "\" That was practice. Now it's your turn.\"" }}{PARA 242 "> " 0 " " {MPLTEXT 1 0 2 "]:" }}}{EXCHG {PARA 243 "> " 0 "" {MPLTEXT 1 0 34 "r andshow := rand(1..nops(showit)):" }}}{EXCHG {PARA 244 "> " 0 "" {MPLTEXT 1 0 1 " " }}}{EXCHG {PARA 245 "> " 0 "" {MPLTEXT 1 0 5 "i:=0: " }}{PARA 246 "> " 0 "" {MPLTEXT 1 0 7 "i:=i+1:" }}{PARA 247 "> " 0 " " {MPLTEXT 1 0 14 "funcs[i]:=1/x:" }}{PARA 248 "> " 0 "" {MPLTEXT 1 0 7 "i:=i+1:" }}{PARA 249 "> " 0 "" {MPLTEXT 1 0 14 "funcs[i]:=x^2:" }} {PARA 250 "> " 0 "" {MPLTEXT 1 0 7 "i:=i+1:" }}{PARA 251 "> " 0 "" {MPLTEXT 1 0 16 "funcs[i]:=1/x^2:" }}{PARA 252 "> " 0 "" {MPLTEXT 1 0 7 "i:=i+1:" }}{PARA 253 "> " 0 "" {MPLTEXT 1 0 20 "funcs[i]:=x^2+3*x+5 :" }}{PARA 254 "> " 0 "" {MPLTEXT 1 0 7 "i:=i+1:" }}{PARA 255 "> " 0 " " {MPLTEXT 1 0 18 "funcs[i]:=x+x^2/3:" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 7 "i:=i+1:" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 20 "funcs[i]:=x^3-2 *x+5:" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 7 "i:=i+1:" }}{PARA 256 "> \+ " 0 "" {MPLTEXT 1 0 18 "funcs[i]:=4*x-x^3:" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 7 "i:=i+1:" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 22 "funcs[ i]:=7*x-x^2+2/4:" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 7 "i:='i':" }}} {EXCHG {PARA 256 "> " 0 "" {MPLTEXT 1 0 23 "randfunc := rand(1..8):" } }}{EXCHG {PARA 256 "> " 0 "" {MPLTEXT 1 0 1 " " }}}{EXCHG {PARA 256 "> " 0 "" {MPLTEXT 1 0 23 "Show_Function := proc()" }}{PARA 256 "> " 0 " " {MPLTEXT 1 0 11 " local p1;" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 125 " global randfunc, whichfunc, funcs, func, A, randpt, As, randpts , whichpoint, x, a, funca, funcp, funcpa, functan, functana;" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 26 " whichfunc := randfunc();" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 27 " func := funcs[whichfunc];" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 27 " funca := eval(func, x=2);" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 24 " funcp := diff(func,x);" }}{PARA 256 " > " 0 "" {MPLTEXT 1 0 39 " funcpa := simplify(eval(funcp, x=2));" }} {PARA 256 "> " 0 "" {MPLTEXT 1 0 76 " functan := funca + funcpa * (x- 2);\n functana := funca + funcpa * (2.1-2);" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 21 " Set('fMML' = func):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 17 " Set('fa' = \"\"):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 17 " Set('fp' = \"\"):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 18 " \+ Set('fpa' = \"\"):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 39 " Set('ftan ' = \"\"):\n Set('ftana' =\"\"):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 73 " Set('fack' = \"\", 'fack'(background)=white, 'fack'(foreground) \+ = black):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 73 " Set('fpck' = \"\", 'fpck'(background)=white, 'fpck'(foreground) = black):" }}{PARA 256 " > " 0 "" {MPLTEXT 1 0 76 " Set('fpack' = \"\", 'fpack'(background)=wh ite, 'fpack'(foreground) = black):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 162 " Set('ftanck' = \"\", 'ftanck'(background)=white, 'ftanck'(for eground) = black):\n Set('ftanack' = \"\", 'ftanack'(background)=whit e, 'ftanack'(foreground) = black):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 76 " Set('reply' = \"\", 'reply'(background)=white, 'reply'(foregro und) = black):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 60 " Set('Bfack'(enabled)=true, 'Bfack'(backgrou nd)=turquoise);" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 60 " Set('Bfash'( enabled)=true, 'Bfash'(background)=turquoise);" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 60 " Set('Bfpck'(enabled)=true, 'Bfpck'(background)=turq uoise);" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 60 " Set('Bfpsh'(enabled) =true, 'Bfpsh'(background)=turquoise);" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 62 " Set('Bfpack'(enabled)=true, 'Bfpack'(background)=tu rquoise);" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 62 " Set('Bfpash'(enabl ed)=true, 'Bfpash'(background)=turquoise);" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 198 " Set('Bftanck'(enabled)=true, 'Bftanck'(background) =turquoise);\n Set('Bftanack'(enabled)=true, 'Bftanack'(background)=t urquoise);\n Set('Bftanash'(enabled)=true, 'Bftanash'(background)=tur quoise);" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 64 " Set('Bftansh'(enabl ed)=true, 'Bftansh'(background)=turquoise);" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}} {EXCHG {PARA 256 "> " 0 "" {MPLTEXT 1 0 1 " " }}}{EXCHG {PARA 256 "> \+ " 0 "" {MPLTEXT 1 0 18 "Check_fa := proc()" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 16 " local user_fa;" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 18 " global funca, x;" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 65 " user_ fa := Get('fa'::algebraic, corrections=true, update=true):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 42 " if simplify(normal(funca - user_fa))< > 0" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 8 " then" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 82 " Set('fack' = \"incorrect\", 'fack'(backgroun d)=red, 'fack'(foreground) = white):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 127 " Set('reply' = cat(sorry[randsorry()], tryagain[randtry()] ), 'reply'(background)=red, 'reply'(foreground) = white):\n else" } }{PARA 256 "> " 0 "" {MPLTEXT 1 0 84 " Set('fack' = \" correct \", \+ 'fack'(background)=green, 'fack'(foreground) = black):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 109 " Set('reply' = cat(great[randgreat()]), ' reply'(background)=green, 'reply'(foreground) = black):\n end if;" }} {PARA 256 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 256 "> \+ " 0 "" {MPLTEXT 1 0 17 "Show_fa := proc()" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 18 " global funca, x;" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 20 " Set('fa' = funca):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 74 " S et('fack' = \" \", 'fack'(background)=white, 'fack'(foreground) = blac k):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 96 " Set('reply' = showit[ran dshow()], 'reply'(background)=turquoise, 'reply'(foreground) = black): " }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 256 "> " 0 "" {MPLTEXT 1 0 1 " " }}}{EXCHG {PARA 256 "> " 0 "" {MPLTEXT 1 0 18 "Check_fp := proc()" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 16 " local user_fp;" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 18 " globa l funcp, x;" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 65 " user_fp := Get(' fp'::algebraic, corrections=true, update=true):" }}{PARA 256 "> " 0 " " {MPLTEXT 1 0 42 " if simplify(normal(funcp - user_fp))<> 0" }} {PARA 256 "> " 0 "" {MPLTEXT 1 0 8 " then" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 82 " Set('fpck' = \"incorrect\", 'fpck'(background)=re d, 'fpck'(foreground) = white):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 127 " Set('reply' = cat(sorry[randsorry()], tryagain[randtry()]), ' reply'(background)=red, 'reply'(foreground) = white):\n else" }} {PARA 256 "> " 0 "" {MPLTEXT 1 0 84 " Set('fpck' = \" correct \", ' fpck'(background)=green, 'fpck'(foreground) = black):" }}{PARA 256 "> \+ " 0 "" {MPLTEXT 1 0 109 " Set('reply' = cat(great[randgreat()]), 'r eply'(background)=green, 'reply'(foreground) = black):\n end if;" }} {PARA 256 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 256 "> \+ " 0 "" {MPLTEXT 1 0 17 "Show_fp := proc()" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 18 " global funcp, x;" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 20 " Set('fp' = funcp):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 74 " S et('fpck' = \" \", 'fpck'(background)=white, 'fpck'(foreground) = blac k):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 96 " Set('reply' = showit[ran dshow()], 'reply'(background)=turquoise, 'reply'(foreground) = black): " }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 256 "> " 0 "" {MPLTEXT 1 0 1 " " }}}{EXCHG {PARA 256 "> " 0 "" {MPLTEXT 1 0 19 "Check_fpa := proc()" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 17 " local user_fpa;" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 19 " gl obal funcpa, x;" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 67 " user_fpa := \+ Get('fpa'::algebraic, corrections=true, update=true):" }}{PARA 256 "> \+ " 0 "" {MPLTEXT 1 0 44 " if simplify(normal(funcpa - user_fpa))<> 0" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 8 " then" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 85 " Set('fpack' = \"incorrect\", 'fpack'(background)= red, 'fpack'(foreground) = white):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 127 " Set('reply' = cat(sorry[randsorry()], tryagain[randtry()]), 'reply'(background)=red, 'reply'(foreground) = white):\n else" }} {PARA 256 "> " 0 "" {MPLTEXT 1 0 87 " Set('fpack' = \" correct \", \+ 'fpack'(background)=green, 'fpack'(foreground) = black):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 109 " Set('reply' = cat(great[randgreat()]), 'reply'(background)=green, 'reply'(foreground) = black):\n end if;" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 256 " > " 0 "" {MPLTEXT 1 0 18 "Show_fpa := proc()" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 19 " global funcpa, x;" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 22 " Set('fpa' = funcpa):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 77 " Set('fpack' = \" \", 'fpack'(background)=white, 'fpack'(foreground) = black):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 96 " Set('reply' = sho wit[randshow()], 'reply'(background)=turquoise, 'reply'(foreground) = \+ black):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 256 "> " 0 "" {MPLTEXT 1 0 1 " " }}}{EXCHG {PARA 256 "> " 0 "" {MPLTEXT 1 0 20 "Check_ftan := proc()" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 18 " local user_ftan;" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 20 " g lobal functan, x;" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 69 " user_ftan \+ := Get('ftan'::algebraic, corrections=true, update=true):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 46 " if simplify(normal(functan - user_fta n))<> 0" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 8 " then" }}{PARA 256 " > " 0 "" {MPLTEXT 1 0 88 " Set('ftanck' = \"incorrect\", 'ftanck'(b ackground)=red, 'ftanck'(foreground) = white):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 118 " Set('reply' = cat(sorry[randsorry()], tryagain[r andtry()]), 'reply'(background)=red, 'reply'(foreground) = white):" }} {PARA 256 "> " 0 "" {MPLTEXT 1 0 8 " else" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 90 " Set('ftanck' = \" correct \", 'ftanck'(background )=green, 'ftanck'(foreground) = black):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 99 " Set('reply' = cat(great[randgreat()]), 'reply'(ba ckground)=green, 'reply'(foreground) = black):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 9 " end if;" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 9 "end p roc:" }}}{EXCHG {PARA 256 "> " 0 "" {MPLTEXT 1 0 19 "Show_ftan := proc ()" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 19 " global funcpa, x;" }} {PARA 256 "> " 0 "" {MPLTEXT 1 0 24 " Set('ftan' = functan):" }} {PARA 256 "> " 0 "" {MPLTEXT 1 0 80 " Set('ftanck' = \" \", 'ftanck'( background)=white, 'ftanck'(foreground) = black):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 106 " Set('reply' = showit[randshow()], 'reply'(backg round)=turquoise, 'reply'(foreground) = black):\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 256 "> " 0 "" {MPLTEXT 1 0 650 "Check_ftana := proc()\n local user_ftana;\n global functana, x;\n user_ftana := Get('ftana'::algebraic, corrections=tru e, update=true):\n if simplify(normal(functana - user_ftana))<> 0\n \+ then\n Set('ftanack' = \"incorrect\", 'ftanack'(background)=red, \+ 'ftanack'(foreground) = white):\n Set('reply' = cat(sorry[randsorry ()], tryagain[randtry()]), 'reply'(background)=red, 'reply'(foreground ) = white):\n else\n Set('ftanack' = \" correct \", 'ftanack'(ba ckground)=green, 'ftanack'(foreground) = black):\n Set('reply' = ca t(great[randgreat()], nextquest[randnext()]), 'reply'(background)=gree n, 'reply'(foreground) = black):\n end if;\nend proc:" }}}{EXCHG {PARA 256 "> " 0 "" {MPLTEXT 1 0 248 "Show_ftana := proc()\n global f uncpa, x;\n Set('ftana' = functana):\n Set('ftanack' = \" \", 'ftana ck'(background)=white, 'ftanack'(foreground) = black):\n Set('reply' \+ = showit[randshow()], 'reply'(background)=turquoise, 'reply'(foregroun d) = black):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}} {EXCHG {PARA 256 "> " 0 "" {MPLTEXT 1 0 1 " " }}}{EXCHG {PARA 256 "> \+ " 0 "" {MPLTEXT 1 0 14 "Hint := proc()" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 9 "global a;" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 162 "Set ('reply' = cat(\"Use the function L(x) = f(a) + f'(a) (x-a) to compute the linear approximation.\"), 'reply'(background)=turquoise, 'reply'( foreground) = black):" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 9 "end proc: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 256 "> " 0 "" {MPLTEXT 1 0 88 "LinearApproximation := Maplet(onstartup = Run Window(MAIN), Font[helv10](\"helvetica\",10)," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 80 "Window[MAIN]( 'title'=\"Finding Linear Approximations \", 'defaultbutton'='BHint', " }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 32 " [ halign=none, background=wheat," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 21 " [ background=wheat," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 97 " \+ Button['Bnew'](\"New Function\", Evaluate('function' = \"Show_Function \"), background=turquoise)," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 21 " \+ HorizontalGlue()," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 81 " Button ['BHint'](\"Hint\", Evaluate('function' = \"Hint\"), background=turquo ise)," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 52 " Button(\"Quit\", Shu tdown(), background=turquoise)" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 4 " ]," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 65 " BoxColumn( halign=none, border=true, inset=0, background=wheat," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 28 " caption = \"Goal:\"," }}{PARA 256 "> " 0 " " {MPLTEXT 1 0 297 " [background=wheat,\n \"Find the linear appr oximation of f (x) =\",\n MathMLViewer[fMML]('value'=MathML[Expor t](\" \"), 'width'=100, 'height'=60),\n \"at the point x = 2\",\n HorizontalGlue()\n ],\n [background=wheat,\n \"Use it to \+ approximate f (2.1).\",\n HorizontalGlue()\n ]" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 4 " )," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 65 " \+ BoxColumn( halign=none, border=true, inset=0, background=wheat," }} {PARA 256 "> " 0 "" {MPLTEXT 1 0 43 " caption = \"Let's see what yo u can do:\"," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 23 " [ background= wheat," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 17 " \" f(2) = \"," }} {PARA 256 "> " 0 "" {MPLTEXT 1 0 53 " TextField['fa']('width'=20, 'background'=pink)," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 23 " Hor izontalGlue()," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 99 " Button['B fack'](\"Check\", Evaluate('function' = \"Check_fa\"), background=whea t, enabled=false)," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 69 " TextF ield['fack']('width'=6, editable=false, background=white)," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 96 " Button['Bfash'](\"Show\", Evaluat e('function' = \"Show_fa\"), background=wheat, enabled=false)" }} {PARA 256 "> " 0 "" {MPLTEXT 1 0 6 " ]," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 23 " [ background=wheat," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 19 " \" f '(x) = \"," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 53 " TextField['fp']('width'=20, 'background'=pink), " }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 23 " HorizontalGlue()," }} {PARA 256 "> " 0 "" {MPLTEXT 1 0 99 " Button['Bfpck'](\"Check\", \+ Evaluate('function' = \"Check_fp\"), background=wheat, enabled=false), " }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 69 " TextField['fpck']('widt h'=6, editable=false, background=white)," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 96 " Button['Bfpsh'](\"Show\", Evaluate('function' = \"Show_fp\"), background=wheat, enabled=false)" }}{PARA 256 "> " 0 " " {MPLTEXT 1 0 6 " ]," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 23 " [ background=wheat," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 19 " \" f \+ '(2) = \"," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 54 " TextField['fp a']('width'=20, 'background'=pink)," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 23 " HorizontalGlue()," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 101 " Button['Bfpack'](\"Check\", Evaluate('function' = \"Check_fpa\" ), background=wheat, enabled=false)," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 70 " TextField['fpack']('width'=6, editable=false, background =white)," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 98 " Button['Bfpash' ](\"Show\", Evaluate('function' = \"Show_fpa\"), background=wheat, ena bled=false)" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 411 " ],\n [ bac kground=wheat,\n \" L(x) = \",\n TextField['ftan']('width'=2 0, 'background'=pink),\n HorizontalGlue(),\n Button['Bftanck '](\"Check\", Evaluate('function' = \"Check_ftan\"), background=wheat, enabled=false),\n TextField['ftanck']('width'=6, editable=false, background=white),\n Button['Bftansh'](\"Show\", Evaluate('funct ion' = \"Show_ftan\"), background=wheat, enabled=false)\n ]" }} {PARA 256 "> " 0 "" {MPLTEXT 1 0 4 " )," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 49 " BoxRow( border=true, inset=0, background=wheat," }} {PARA 256 "> " 0 "" {MPLTEXT 1 0 29 " caption = \"Approximate:\"," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 17 " \" f(2.1) ~\"," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 54 " TextField['ftana']('width'=26, 'bac kground'=pink)," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 21 " Horizontal Glue()," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 103 " Button['Bftanack' ](\"Check\", Evaluate('function' = \"Check_ftana\"), background=wheat, enabled=false)," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 70 " TextField ['ftanack']('width'=6, editable=false, background=white)," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 101 " Button['Bftanash'](\"Show\", Evalu ate('function' = \"Show_ftana\"), background=wheat, enabled=false)," } }{PARA 256 "> " 0 "" {MPLTEXT 1 0 6 " \"\"" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 4 " )," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 82 " TextBox ['reply']('width'=70, 'height'=2, 'editable'='false', background=white )," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 51 " BoxRow('background'=pink , 'inset'=0, 'spacing'=0," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 129 " \+ Label(\"Copyright November 2005\", 'font'=helv10),\n HorizontalGlu e(),\n Label(\"Project By:Jessica Bailey\", 'font'=helv10)," }} {PARA 256 "> " 0 "" {MPLTEXT 1 0 21 " HorizontalGlue()," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 47 " Label(\"Yasskin Math151-202\", 'fon t'=helv10)" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 3 " )" }}{PARA 256 "> \+ " 0 "" {MPLTEXT 1 0 3 "])," }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 20 "But tonGroup['BG1']()" }}{PARA 256 "> " 0 "" {MPLTEXT 1 0 2 "):" }}} {EXCHG {PARA 256 "> " 0 "" {MPLTEXT 1 0 40 "Maplets[Display]( LinearAp proximation );" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }