{VERSION 6 0 "IBM INTEL NT" "6.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 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 17 "Christopher Walls" }}
{PARA 0 "" 0 "" {TEXT -1 46 "Derivatives of Inverse Trigonometric Func
tions" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 120 
"This maplet does not work at present because it asks students to eval
uate the derivatives at numbers outside the domain." }}{PARA 0 "" 0 "
" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 86 "with(Maplets):with(Maplet
s[Tools]):with(Maplets[Elements]):with(plots):\nStartEngine();" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "randomize():" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 1099 "Derivatives:=Maplet(onstartup=Run
Window(MAIN),\nWindow[MAIN]('title'=\"Derivatives of Inverse Trig Func
tions\",\n[ halign=none,\n  [ Button(\"New Problem\", Evaluate('functi
on'=\"ask\")),\n    HorizontalGlue(),\n    Button(\"Quit\",Shutdown())
 \n  ],\n  [ \"Take the derivative of\",\n    HorizontalGlue()\n  ],\n
  [ \"f(x) =\",\n    MathMLViewer['question']('width'=300,'height'=60)
,\n    HorizontalGlue()\n  ],\n  [ \"f '(x) =\", TextField['answer']('
width'=40),\n    HorizontalGlue()\n  ],\n  [ HorizontalGlue(),\n    Bu
tton(\"Check Answer\", Evaluate('function'=\"check\")),\n    Horizonta
lGlue(),\n    Button(\"Show Derivative\", Evaluate('function'=\"show\"
)),\n    HorizontalGlue()\n  ],\n  [ Label[Lfa](\"f '(a) =\"),\n    Te
xtField['answer2']('width'=40),\n    HorizontalGlue()\n  ],\n  [ Horiz
ontalGlue(),\n    Button(\"Check Answer\", Evaluate('function'=\"check
2\")),\n    HorizontalGlue(),\n    Button(\"Show Derivative\", Evaluat
e('function'=\"show2\")),\n    HorizontalGlue()\n  ],\n  [ TextField['
reply']('width'=40, 'editable'='false')\n  ],\n  [ \"Brought to you by
 Chris-B-Good\"\n  ],\n  [ \"Programmer: C. Walls  Copyright P. Yasski
n 2005\"\n  ]\n]\n)\n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "card:=rand(0..1):\nrand
1:=rand(1..5):\nrand3:=rand(1..6):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 110 "funcs:=[b*arcsin(a*x^n), b*arccos(a*x^n), b*arctan(a
*x^n), b*arcsec(a*x^n), b*arccsc(a*x^n), b*arccot(a*x^n)];" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 382 "ask:=proc()\nlocal f,g;\nglobal card, rand1, rand3, \+
funcs, a, b, n, correctanswer, correctanswer2;\nSet('answer'=\"\");\nS
et('reply'=\"\");\na:=(-1)^card()*rand1();\nb:=(-1)^card()*rand1();\nn
:=rand1();\nf:=funcs[rand3()];\nSet('question'=MathML[Export]('f'=f));
\ncorrectanswer:=diff(f,x);\ng:=rand1();\nSet('Lfa'(caption)=cat(\"f '
(\", g, \") =\"));\ncorrectanswer2:=subs(x=g, correctanswer);\nend pro
c:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 266 "check:=proc()\nglobal correctanswer;\nlocal \+
useranswer;\nuseranswer:=Get('answer'::anything, corrections=true, upd
ate=true):\nif simplify(correctanswer-useranswer=0) then\n  Set('reply
'=\"Great Googalee Mooglalee!\")\nelse\n  Set('reply'=\"Oops. Once mor
e?\")\nend if;\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
73 "show:=proc()\nglobal correctanswer;\nSet('answer'=correctanswer);
\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 247 "check2:=proc()\nglobal correctansw
er2;\nlocal useranswer2;\nuseranswer2:=Get('answer2'::anything, correc
tions=true, update=true):\nif simplify(correctanswer2-useranswer2=0) t
hen\n  Set('reply'=\"Wowza!\")\nelse\n  Set('reply'=\"So close!\")\nen
d if;\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "show2:=
proc()\nglobal correctanswer2;\nSet('answer2'=correctanswer2);\nend pr
oc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 23 "Display( Derivatives );" }}}{EXCHG }{EXCHG }
}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 
2 33 1 1 }