{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 }{CSTYLE "Text" -1 200 "Times" 1 12 0 0 0 1 2 2 2 2 2 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 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT 200 30 "Lisa Cangelose\nSonia Ben djemil" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "with(Maplets[Elements]):with (Maplets[Tools]):with(plots):with(plottools):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "StartEngine();" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "lightorange:=\"#FFB300\":" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "#darkgreen:=COLOR(RGB, .9, 1, .9):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "randomize():" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "gre at := [" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "\" Bullseye. \"," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "\" Right on the mark. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "\" Great. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "\" That's absolutely right. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "\" Awesome. You're unstoppable. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "\" Correct. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "\" WOW, nailed that one. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "\" You got it! \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "\" YES! R ight on. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "\" Way to go. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "\" Don't stop now. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "\" I knew you could do it! \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "\" Perfect. You're unstoppable. \"," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "\" Radical Dude. \"," }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 17 "\" Power house. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "\" Sweet! Keep on Rockin'. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "\" You rock! \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "\" You got those mad skills. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "\" Awesome! \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "\" Wowzers ! That was great! \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "\" Awesome man! \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "\" Good job! You reall y know what you are doing. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 " \" You're awesome kid. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "\" Te aring it up. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "\" Right on the money. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "\" High Five!!!!! \" ," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "\" Cool Beans. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "\" What a nerd! \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "\" You're so money. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "\" You're a genious. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "\" You hit the nail on the head. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "\" Excellent! \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "\" If I had a cookie, I'd give it to you. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "\" You're a winner. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "\" That's a winner. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "\" Whoop! Way to go. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "\" That's the way, ah ha ah ha, I like it. \"," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "\" Oh yeah! \"," }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 21 "\" You're the bomb! \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "\" That was fantastic! \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "\" Oh Snap! \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "\" That's krunk! \"" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "]:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "randgreat := rand(1..nops(gr eat)):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "nextquest := [" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "\"Keep it up.\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "\"Keep going.\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "\"On to the next function.\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "\"Try another function.\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 " \"Find the derivative of another inverse function.\"" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 " randnext := rand(1..nops(nextquest)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "sorry := [" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "\" S orry, that's not right. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "\" N ope, but don't give up. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "\" N ot quite, it's a little off. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "\" Bummer, thought you would get it this time. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "\" Close, but no cigar. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "\" Slightly off. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "\" If you need help, please ask a human. \"," }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 39 "\" I don't know where you went wrong. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "\" Sorry, killer problem. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "\" No, but don't blow it off. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "\" D'oh! \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "\" That's whack. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "\" Yikes! Really close. You'll get it next time. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "\" Pucha! Thought you would get it this tim e. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "\" Nice try, but your ans wer is wrong. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "\" Ask your ne ighbor for help. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "\" Brutal k id. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "\" That won't fly. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "\" So close and yet so far. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "\" So, that was just practice. \" ," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "\" Ooooh...close. \"," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "\" A swing and a miss. \"," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "\" Better luck next time. \"," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "\" Oops. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "\" Tilt. Play again. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "\" I know you can do better. \"," }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 19 "\" Sorry Charlie. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "\" Better luck next time. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "\" Tisk, tisk. It's a tough one. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "\" It takes a lot of wrongs to make a right. \", " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "\" Even Einstein didn't get eve rything right. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "\" Oh man, yo u were so close. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "\" Today's \+ not your lucky day. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "\" Don't quit your day job. \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "\" You'r e colder than a polar bear's toenail. \"" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "]:" }{TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "randsorry := rand(1..nops(sorry)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "tryagain := [" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 " \"Try the hint.\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "\"Fix your an swer and check it again.\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "\"Gi ve it another try.\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "\"Try agai n.\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "\"Please try again.\"" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "randtry := rand(1..nops(tryagain)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "showit := [" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "\" OK That's just practice. But try doing it yourself .\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "\" That's fine for practice . Try doing it yourself.\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "\" T hink about it and enter an answer yourself.\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "\" Read the hint and enter an answer yourself.\"," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "\" Next time, compute an answer you rself.\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "\" So that was practic e. Try doing it yourself.\"" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "]:" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "randshow := rand(1..nops(s howit)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 92 "funcs:=[2*x, x/2, 3*x, sqrt(x), x^3 , x^(1/3), 1/x^2, 12/x^2, exp(x), ln(x), sin(x), cos(x)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "randfunc := rand(1..12):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 24 "A[1]:=[2,4,6,8, 1, 1/2]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "B[1]:=[1,2,3,4,1/2,1/4]:\nminis[1]:=[-10, -10, -10, - 10, -2, -2]:\nmaxis[1]:= [10, 10, 10, 10, 2, 2]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "A[2]:=[1,2,3,4,1/2,1/4]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "B[2]:=[2,4,6,8, 1, 1/2]:\nminis[2]:=[-10, -10, -10, - 10, -2, -2]:\nmaxis[2]:= [10, 10, 10, 10, 2, 2]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "A[3]:=[3,6,9,12, 1, 1/2]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 100 "B[3]:=[1,2,3, 4,1/3,1/6]:\nminis[3]:=[-10, -15, -15, -10, -1, -1]:\nmaxis[3]:= [10, 15, 15, 10, 1, 1]:" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 26 "A[4]:=[2,3, 4, 5,1/2,1/3]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 90 "B[4]:=[4,9,16,25,1/4,1/9]:\nminis[4]:=[0, 0, 0, 0, 0, 0]:\nmaxis[4]:= [5, 10, 17, 27, 2, 2]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "A[5]:=[8,27,64,1/8,1/27,1/64]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 103 "B[5]:=[2, 3, 4,1/2, 1/3, 1/4]:\nminis[5]:=[-10, -30, -70, -1, -1, -1]:\nmaxis[5]:= [10, 30, 70, 1, 1, 1]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "A[6]:=[2, 3, 4,1/2, 1/3, 1/4]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "B[6]:=[8,27,64,1/8,1/27,1/64]:\nminis[6]:=[0, 0, 0, 0 , 0, 0]:\nmaxis[6]:= [10, 30, 70, 1, 1, 1/2]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "A[7]:=[1/4,1/9,1/16, 4, 9, 16]:" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 92 "B[7]:=[ 2, 3, 4, 1/2,1/3,1/4]:\nminis[7]:=[0,0,0, 0,0, 0]:\nmaxis[7]:= [5, 5, 5, 5, 11, 18]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "A[8]:=[1/12,1/3,3/4,4/3,3,12]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "B[8]:=[12, 6, 4, 3, 2, 1]:\nminis[8]:=[0, 0, 0, 0 , 0, 0]:\nmaxis[8]:= [20, 10, 10, 10, 10, 20]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "A[9]:=[1,exp(1),exp(-1),exp(2), 2, 3]: expfunc:= 9:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 114 "B[9]:=[0, 1, -1, 2, ln(2),ln(3)]:\nminis[9]:=[-5, -5, -5, -10, -5, -7]:\nmaxis[9]:= [5 , 5, 5, 10, 5, 7]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "A[10]:=[0, \+ 1, -1, 2, ln(2),ln(3)]: lnfunc:=10:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 115 "B[10]:=[1,exp(1),exp(-1),exp(2), 2, 3]:\nminis[ 10]:=[-5, -5, -5, -10, -5, -7]:\nmaxis[10]:= [5, 5, 5, 10, 5, 7]:" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "A[11]:=[ 1/2, sqrt(2)/2, sqrt(3)/2, sqrt(3)/2, sqrt(2)/2, 1/2]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 163 "B[ 11]:=[Pi/6, Pi/4, Pi/3, Pi/3, Pi/4, Pi/6]:\nminis[11]:=[ -Pi/2, -Pi/2, -Pi/2, -Pi/2, -Pi/2, -Pi/2]:\nmaxis[11]:= [Pi/2, Pi/2, P i/2, Pi/2, Pi/2, Pi/2]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "A[12]:=[ sqrt(3)/2, sqrt(2)/2, 1/2, 1/2, sqrt(2)/2, sqrt(3)/2]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 145 "B[12]:=[Pi/6, Pi/4, Pi/3, 2*Pi/3 , 3*Pi/4, 5*Pi/6]:\nminis[12]:=[0, 0, 0, 0, 0, 0]:\nmaxis[12]:= [P i/2, Pi/2, Pi/2, Pi/2, Pi/2, Pi/2]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "randpoint:=rand(1..6):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "As:=[a,b,c,p,q,r,s,t ,u,v,w,z]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "Bs[1]:=map(x->x/2,As) :" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "Bs[2]:=map(x->2*x,As):" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "Bs[3]:=map(x->x/3,As):" }}{PARA 0 " > " 0 "" {MPLTEXT 1 0 22 "Bs[4]:=map(x->x^2,As):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "Bs[5]:=map(x->x^(1/3),As):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "Bs[6]:=map(x->x^3,As):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "Bs[7]:=map(x->1/x,As):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "B s[8]:=map(x->12/x,As):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "Bs[9]:=ma p(x->ln(x),As):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "Bs[10]:=map(x->e xp(x),As):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "Bs[11]:=map(x->arcsin (x),As):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "Bs[12]:=map(x->arccos(x ),As):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "randpoints:=rand( 1..12):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "Show_Function := proc()" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "local p1;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 152 "global randfunc, whichfunc, funcs, func, randpoint, whichpoint, A , B, As, Bs, pta, ptb, funcp, funcpga, guncpa, f0, f1, maxi, mini, plo tsoff, darkgreen;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "options `Copyr ight 2004, Philip B. Yasskin, Texas A&M Univ.`;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "\nwhichfunc := randfunc();" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "func := funcs[whichfunc];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "if Get('RB2') then" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 " whichpoint := randpoints();" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 " pta := As[whichpoint];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 53 " p tb := Bs[whichfunc][whichpoint];\n plotsoff:=true;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "else" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 " whichp oint := randpoint();" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 " pta := A[ whichfunc][whichpoint];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 129 " ptb : = B[whichfunc][whichpoint];\n mini:=minis[whichfunc][whichpoint];\n \+ maxi:=maxis[whichfunc][whichpoint];\n plotsoff:=false;" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 7 "end if;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "f uncp := convert(diff(func,x),radical);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "funcpga := eval(funcp, x=ptb);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "guncpa := simplify(1/funcpga);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Set('a0' = pta):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Set('a1 ' = pta):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Set('a2' = pta):" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Set('a3' = pta):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Set('a4' = pta):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "Set('fMML' = func): " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Set( 'b1' = \" \"):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Set('b2' = \" \") :" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Set('fp' = \" \"):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "Set('fpga' = \" \"):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "Set('gpa' = \" \"):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "Set('b1ck' = \"\", 'b1ck'(background)=white, 'b1ck'(foreground)= black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "Set('b2ck' = \"\", 'b2ck '(background)=white, 'b2ck'(foreground)=black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "Set('fpck' = \"\", 'fpck'(background)=white, 'fpck'(f oreground)=black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "Set('fpgack' \+ = \"\", 'fpgack'(background)=white, 'fpgack'(foreground)=black):" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "Set('gpack' = \"\", 'gpack'(backgro und)=white, 'gpack'(foreground)=black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "Set('reply' = \"\", 'reply'(background)=white, 'reply'(foregro und) = black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 171 "if whichfunc = e xpfunc or whicfunc = lnfunc then\n Set('reply' = \"Enter the exponent ial function as exp(x).\", 'reply'(background)=lightorange, 'reply'(fo reground) = black)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "end if;" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "Set('Bb1ck'(enabled)=true, 'Bb1ck'( background)=turquoise);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "Set('Bb1 sh'(enabled)=true, 'Bb1sh'(background)=turquoise);" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 58 "Set('Bb2ck'(enabled)=true, 'Bb2ck'(background)=turq uoise);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "Set('Bb2sh'(enabled)=tru e, 'Bb2sh'(background)=turquoise);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "Set('Bfpck'(enabled)=true, 'Bfpck'(background)=turquoise);" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "Set('Bfpsh'(enabled)=true, 'Bfpsh'( background)=turquoise);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "Set('Bfp gck'(enabled)=true, 'Bfpgck'(background)=turquoise);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "Set('Bfpgsh'(enabled)=true, 'Bfpgsh'(background) =turquoise);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "Set('Bgpack'(enable d)=true, 'Bgpack'(background)=turquoise);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 713 "Set('Bgpash'(enabled)=true, 'Bgpash'(background)=tur quoise);\nif plotsoff then\n Set('Plot1'(enabled)=false, 'Plot1'(back ground)=gold);\n Set('Plot2'(enabled)=false, 'Plot2'(background)=gold );\n Set('Plot3'(enabled)=false, 'Plot3'(background)=gold);\n Set('P lot4'(enabled)=false, 'Plot4'(background)=gold);\nelse\n Set('Plot1'( enabled)=true, 'Plot1'(background)=gold);\n Set('Plot2'(enabled)=true , 'Plot2'(background)=gold);\n Set('Plot3'(enabled)=true, 'Plot3'(bac kground)=gold);\n Set('Plot4'(enabled)=true, 'Plot4'(background)=gold );\nend if;\nf0:=plot([[x,func, x=mini..maxi], [func, x, x=mini..maxi] ], x=mini..maxi, y=mini..maxi, color=[green,cyan], legend=[f,g]);\nSet ('myplot'=display(f0, scaling=constrained));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "Check_b1 := proc()" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 " local user_b1;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 " global ptb, func, pta;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 63 " options `Copyright 2004, Philip B. Yasskin, Texas A &M Univ.`;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 65 " user_b1 := Get('b1' ::algebraic, corrections=true, update=true):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 " if simplify(normal(ptb - user_b1))<> 0 then" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 " Set('b1ck' = \"incorrect\", 'b1 ck'(background)=red, 'b1ck'(foreground)=white):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 75 " Set('reply' = cat(\"Solve the equation: \", conv ert(func = pta,string))," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 60 " ' reply'(background)=red, 'reply'(foreground) = white):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 " else" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 82 " \+ Set('b1ck' = \" correct \", 'b1ck'(background)=green, 'b1ck'(foregroun d)=black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 78 " Set('reply' = \" \", 'reply'(background)=white, 'reply'(foreground) = black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 " end if;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "Show_b1 : = proc()" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 " global ptb;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 63 " options `Copyright 2004, Philip B. Yass kin, Texas A&M Univ.`;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 " Set('b1 ' = ptb):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 69 " Set('b1ck'=\"\", 'b1 ck'(background)=white, 'b1ck'(foreground)=black):" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 98 " Set('reply' = showit[randshow()], 'reply'(backgro und)=lightorange, 'reply'(foreground) = black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "Check_b2 := proc()" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 " local user_b2;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 " global ptb;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 63 " options `Copyright 2004, Philip B. Yasskin, Texas A&M Univ.`;" } }{PARA 0 "> " 0 "" {MPLTEXT 1 0 65 " user_b2 := Get('b2'::algebraic, \+ corrections=true, update=true):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 " if simplify(normal(ptb - user_b2))<> 0 then" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 80 " Set('b2ck' = \"incorrect\", 'b2ck'(background)=re d, 'b2ck'(foreground)=white):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 101 " \+ Set('reply' = \"If f(b)=a then g(a)=b.\", 'reply'(background)=re d, 'reply'(foreground) = white):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 " else" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 82 " Set('b2ck' = \" corre ct \", 'b2ck'(background)=green, 'b2ck'(foreground)=black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 78 " Set('reply' = \"\", 'reply'(backgroun d)=white, 'reply'(foreground) = black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 " end if;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "Show_b2 := proc()" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 " global ptb;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 63 " options `Copyright 2004, Philip B. Yasskin, Texas A &M Univ.`;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 " Set('b2' = ptb):" } }{PARA 0 "> " 0 "" {MPLTEXT 1 0 69 " Set('b2ck'=\"\", 'b2ck'(backgrou nd)=white, 'b2ck'(foreground)=black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 98 " Set('reply' = showit[randshow()], 'reply'(background)=lightora nge, 'reply'(foreground) = black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "Check_fp := proc()" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 " local user_fp;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 " global funcp, x;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 63 " opt ions `Copyright 2004, Philip B. Yasskin, Texas A&M Univ.`;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 65 " user_fp := Get('fp'::algebraic, correctio ns=true, update=true):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 47 " if simp lify(normal(funcp - user_fp))<> 0 then" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 80 " Set('fpck' = \"incorrect\", 'fpck'(background)=red, 'fpck' (foreground)=white):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 102 " Set('r eply' = \"Simply differentiate f(x).\", 'reply'(background)=red, 'repl y'(foreground) = white):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 " else" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 82 " Set('fpck' = \" correct \", ' fpck'(background)=green, 'fpck'(foreground)=black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 78 " Set('reply' = \"\", 'reply'(background)=white, 'reply'(foreground) = black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 " \+ end if;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "Show_fp := proc()" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 " global funcp, x;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 63 " options `Copyright 2004, Philip B. Yasskin, Texas A &M Univ.`;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 " Set('fp' = funcp): " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 69 " Set('fpck'=\"\", 'fpck'(backg round)=white, 'fpck'(foreground)=black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 98 " Set('reply' = showit[randshow()], 'reply'(backgroun d)=lightorange, 'reply'(foreground) = black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "Check_fpga := proc()" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 " local user_fpga;" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 25 " global funcpga, x, pta;" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 63 " options `Copyright 2004, Philip B. Yasskin, Texas A&M Univ.`;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 69 " user_fpga := Get( 'fpga'::algebraic, corrections=true, update=true):" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 51 " if simplify(normal(funcpga - user_fpga))<> 0 then " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 86 " Set('fpgack' = \"incorrect \", 'fpgack'(background)=red, 'fpgack'(foreground)=white):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 82 " Set('reply' = cat(\"Substitute \", conv ert(x = g(pta),string), \" into f '(x).\")," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 60 " 'reply'(background)=red, 'reply'(foreground) = \+ white):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 " else" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 88 " Set('fpgack' = \" correct \", 'fpgack'(backgro und)=green, 'fpgack'(foreground)=black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 78 " Set('reply' = \"\", 'reply'(background)=white, 'r eply'(foreground) = black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 " end if;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "Show_fpga := proc()" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 " global funcpga, x;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 63 " options `Copyright 2004, Philip B. Yasskin, Texas A&M Univ.`; " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 " Set('fpga' = funcpga):" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 " Set('fpgack'=\"\", 'fpgack'(backg round)=white, 'fpgack'(foreground)=black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 98 " Set('reply' = showit[randshow()], 'reply'(backgroun d)=lightorange, 'reply'(foreground) = black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "Check_gpa := proc()" } }{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 " local user_gpa;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 " global guncpa, x;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 63 " options `Copyright 2004, Philip B. Yasskin, Texas A &M Univ.`;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 67 " user_gpa := Get('gp a'::algebraic, corrections=true, update=true):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 49 " if simplify(normal(guncpa - user_gpa))<> 0 then" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 " Set('gpack' = \"incorrect\", 'g pack'(background)=red, 'gpack'(foreground)=white):" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 118 " Set('reply' = cat(sorry[randsorry()], tryagain [randtry()]), 'reply'(background)=red, 'reply'(foreground) = white):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 " else" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 85 " Set('gpack' = \" correct \", 'gpack'(background)= green, 'gpack'(foreground)=black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 122 " Set('reply' = cat(great[randgreat()], nextquest[randnext()]), 'reply'(background)=green, 'reply'(foreground) = black):" }}{PARA 0 " > " 0 "" {MPLTEXT 1 0 9 " end if;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "Show_gpa := proc()" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 " global guncpa, x;" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 " options `Copyright 2004, Philip B . Yasskin, Texas A&M Univ.`;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 " S et('gpa' = guncpa):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 72 " Set('gpack '=\"\", 'gpack'(background)=white, 'gpack'(foreground)=black):" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 98 " Set('reply' = showit[randshow()], 'reply'(background)=lightorange, 'reply'(foreground) = black):" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 230 "Plo t_b1:= proc()\nglobal f0, f1, pta, ptb, mini, maxi;\noptions `Copyrigh t 2006, Philip B. Yasskin, Texas A&M Univ.`;\n\nf1:=disk([ptb, pta], ( maxi-mini)/60, color=magenta);\nSet('myplot'=display(f1,f0, scaling=co nstrained));\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 237 "Plot_b2:= proc()\nglobal f0, f1, f2, pta, ptb, mini, maxi;\noptions ` Copyright 2006, Philip B. Yasskin, Texas A&M Univ.`;\n\nf2:=disk([pta, ptb], (maxi-mini)/60, color=magenta);\nSet('myplot'=display(f2,f1,f0, scaling=constrained));\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 328 "Plot_b3:= proc()\nglobal f0, f1, f2, f3, pta, ptb, m ini, maxi, funcpga;\nlocal functan;\noptions `Copyright 2006, Philip B . Yasskin, Texas A&M Univ.`;\n\nfunctan:=pta+funcpga*(x-ptb);\nf3:=plo t(functan, x=mini..maxi, y=mini..maxi, color=brown, legend=\"tangent t o f\");\nSet('myplot'=display(f2,f1,f0,f3, scaling=constrained));\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 332 "Plot_b4:= proc() \nglobal f0, f1, f2, f3, f4, pta, ptb, mini, maxi, guncpa;\nlocal gunc tan;\noptions `Copyright 2006, Philip B. Yasskin, Texas A&M Univ.`;\n \ngunctan:=ptb+guncpa*(x-pta);\nf4:=plot(gunctan, x=mini..maxi, y=mini ..maxi, color=blue, legend=\"tangent to g\");\nSet('myplot'=display(f2 ,f1,f0,f3,f4, scaling=constrained));\nend proc:" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 " Hint := proc()" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "global pta;" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "options `Copyright 2004, Philip B. \+ Yasskin, Texas A&M Univ.`;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "Set(' reply' = cat(\"Since f(g(x)) = x, the chain rule says: f'(g(x)) g'( x) = 1" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "Consequently, g'(x) = 1 /f'(g(x)) or g'(\", convert(pta,string), \") = 1/f'(g(\", convert(pt a,string), \"))\")," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "'reply'(back ground)=lightorange, 'reply'(foreground) = black):" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Hintb1 := proc()" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "global func , pta;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "options `Copyright 2004, \+ Philip B. Yasskin, Texas A&M Univ.`;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 134 "Set('reply' = cat(\"Solve the equation: \", convert(func = pta ,string)), 'reply'(background)=lightorange, 'reply'(foreground) = blac k):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Hintb2 := proc()" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "options `Copyright 2004, Philip B. Yasskin, Texas A&M Univ.`;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "Set('reply' = \"If f( b)=a then g(a)=b.\", 'reply'(background)=lightorange, 'reply'(foregr ound) = black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "Hintfp1 := proc()" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "options `Copyright 2005, Philip B. Yasski n, Texas A&M Univ.`;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 106 "Set('reply ' = \"Simply differentiate f(x).\", 'reply'(background)=lightorange, ' reply'(foreground) = black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "end \+ proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "Hintfp2 := proc() " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "global pta;" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 61 "options `Copyright 2005, Philip B. Yasskin, Texas A &M Univ.`;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "Set('reply' = cat(\"S ubstitute \", convert(x = 'g'(pta),string), \" into f '(x).\")," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 " 'reply'(background)=lightorange, \+ 'reply'(foreground) = black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "end proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "Derivative_Inverse := Maplet(onstartup = \+ RunWindow(MAIN), Font[helv10](\"helvetica\",10)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "Window[MAIN]( 'title'=\"Derivatives of Inverse Functi ons\", 'defaultbutton'='BHint'," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 58 " [ halign=none, background=wheat, 'inset'=0, 'spacing'=0," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " [ background=wheat," }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 91 " Button(\"New Function\", Evaluate('function' \+ = \"Show_Function\"), background=turquoise)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 83 " RadioButton['RB1'](\"Numeric\", 'value'=true, ' group'='BG1', background=wheat)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 88 " RadioButton['RB2'](\"Symbolic\", 'value'=false, 'group'='BG1', \+ background=wheat), " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " Hori zontalGlue()," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 83 " Button['BHin t'](\"Hint\", Evaluate('function' = \"Hint\"), background=turquoise), " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 49 " Button(\"Quit\", Shutdown (), background=pink)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 " ]," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 170 " BoxRow(\n BoxColumn( halign =none, 'background'=wheat, 'inset'=0, 'spacing'=0,\n BoxColumn( hal ign=none, 'background'=wheat, 'inset'=0, 'spacing'=0, 'border'=true," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 72 " 'caption'=\"Goal: To find \+ the derivative of an inverse function.\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " [ background=wheat," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 103 " \"Let f(x) =\",\n MathMLViewer[fMML]( 'value'=MathML[Export](\" \"), 'width'=100, 'height'=55)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " ]," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " [ background=wheat," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 64 " \+ \" Let g(x) be the inverse function of f(x). Find g'(\"," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 " TextField['a0']('width'=7, \+ editable=false, background=white)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 " \").\"" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 " ]" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 94 " ), \n BoxColumn( halign=none , 'background'=wheat, 'inset'=0, 'spacing'=0, 'border'=true," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 47 " 'caption'=\"Step 1 - Find f(b) and \+ g(a).\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " [ background=whea t," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 " \"f(\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 59 " TextField['b1']('width'=5, 'backgroun d'=turquoise)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 " \") = \", " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 69 " TextField['a1']('width' =7, editable=false, background=white)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " HorizontalGlue()," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 78 " Button(\"Hint\", Evaluate('function' = \"Hintb1\"), backgr ound=turquoise)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 101 " Button ['Bb1ck'](\"Check\", Evaluate('function' = \"Check_b1\"), background=w heat, enabled=false)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 71 " Te xtField['b1ck']('width'=6, editable=false, background=white)," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 239 " Button['Bb1sh'](\"Show\", \+ Evaluate('function' = \"Show_b1\"), background=wheat, enabled=false), \n Button['Plot1'](\"Plot\", Evaluate('function' = \"Plot_b1\") , background=wheat, enabled=false,\n background=wheat, enabled= false)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " ]," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " [ background=wheat," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 " \"g(\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 69 " TextField['a2']('width'=7, editable=false, background=white), " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 " \") = \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 59 " TextField['b2']('width'=5, 'backgroun d'=turquoise)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " Horizonta lGlue()," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 78 " Button(\"Hint\" , Evaluate('function' = \"Hintb2\"), background=turquoise)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 101 " Button['Bb2ck'](\"Check\", Evalu ate('function' = \"Check_b2\"), background=wheat, enabled=false)," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 " TextField['b2ck']('width'=6 , editable=false, background=white)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 198 " Button['Bb2sh'](\"Show\", Evaluate('function' = \"Show_ b2\"), background=wheat, enabled=false),\n Button['Plot2'](\"Pl ot\", Evaluate('function' = \"Plot_b2\"), background=wheat, enabled=fa lse)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 " ]" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 5 " )" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 " BoxColumn( 'halign'=none, 'back ground'=wheat, 'inset'=0, 'spacing'=0, 'border'=true," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 52 " 'caption'=\"Step 2 - Find f'(x) and f'(g(a )).\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " [ background=wheat, " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 " \"f '(x) =\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 60 " TextField['fp']('width'=20, 'back ground'=turquoise)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " Hori zontalGlue()," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 79 " Button(\"H int\", Evaluate('function' = \"Hintfp1\"), background=turquoise)," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 " Button['Bfpck'](\"Check\", Evaluate('function' = \"Check_fp\"), background=wheat, enabled=false) ," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 71 " TextField['fpck']('wid th'=6, editable=false, background=white)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 126 " Button['Bfpsh'](\"Show\", Evaluate('function ' = \"Show_fp\"), background=wheat, enabled=false),\n \" \+ \"" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " ]," }}{PARA 0 " > " 0 "" {MPLTEXT 1 0 25 " [ background=wheat," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 " \"f '(g(\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 69 " TextField['a3']('width'=6, editable=false, background= white)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 " \")) =\"," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 " TextField['fpga']('width'=1 4, 'background'=turquoise)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " \+ HorizontalGlue()," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 79 " Bu tton(\"Hint\", Evaluate('function' = \"Hintfp2\"), background=turquois e)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 104 " Button['Bfpgck'](\" Check\", Evaluate('function' = \"Check_fpga\"), background=wheat, enab led=false)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 73 " TextField['f pgack']('width'=6, editable=false, background=white)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 209 " Button['Bfpgsh'](\"Show\", Evaluate('fu nction' = \"Show_fpga\"), background=wheat, enabled=false),\n B utton['Plot3'](\"Plot\", Evaluate('function' = \"Plot_b3\"), backgroun d=wheat, enabled=false)\n " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 " ]" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 " )," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 88 " BoxColumn( 'halign'=none, 'background'=wheat, \+ 'inset'=0, 'spacing'=0, 'border'=true," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 38 " 'caption'=\"Step 3 - Find g'(a)\"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " [ background=wheat," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 " \"g '( \"," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 69 " TextField['a4']('width'=7, editable=false, background=whit e)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 " \" ) = \"," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 " TextField['gpa']('width'=14 , 'background'=turquoise)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " \+ HorizontalGlue()," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 76 " But ton(\"Hint\", Evaluate('function' = \"Hint\"), background=turquoise), " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 103 " Button['Bgpack'](\"Che ck\", Evaluate('function' = \"Check_gpa\"), background=wheat, enabled= false)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 72 " TextField['gpack ']('width'=6, editable=false, background=white)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 200 " Button['Bgpash'](\"Show\", Evaluate('functio n' = \"Show_gpa\"), background=wheat, enabled=false),\n Button[ 'Plot4'](\"Plot\", Evaluate('function' = \"Plot_b4\"), background=whea t, enabled=false)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 " ]" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 150 " )),\n BoxColumn( halign=non e, 'background'=wheat, 'inset'=0, 'spacing'=0, 'border'=true,\n P lotter['myplot'](width=300, height=400)\n )\n)," }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 84 " TextBox['reply']('width'=70, 'height'=2, 'edita ble'='false', background=white )," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 58 " BoxRow('background'=\"#DDFFFF\", 'inset'=0, 'spacing'=0," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 " Label(\"Programmers: Cangelos e / Bendjemil\", 'font'=helv10)," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " HorizontalGlue()," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 74 " L abel(\"Copyright 2006, D.B. Meade and P.B. Yasskin\", 'font'=helv10), " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " HorizontalGlue()," }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 " Label(\"v. 1.2a May 2006\", ' font'=helv10)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 " )" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 " ])," }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 " \+ ButtonGroup['BG1']()" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "Maplets[Display]( Derivative _Inverse );" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }