{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 -1 16 "Amanda Patterson" }}{PARA 
0 "" 0 "" {TEXT -1 13 "Eric Calderon" }}{PARA 0 "" 0 "" {TEXT -1 0 "" 
}}{PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 200 28 "Trig Derivative Drill M
aplet" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "rest
art;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "with(Maplets):with(
Maplets[Tools]):with(Maplets[Elements]):with(plots):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 14 "StartEngine();" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 699 "Derivatives:=Maplet(onstartup=RunWindow(MAIN),\nW
indow[MAIN]('title'=\"Derivatives of Trig Functions\",\n  [ \n    [ \n
      Button(\"New Function\", Evaluate('function'=\"ask\")), Horizont
alGlue(), Button(\"Quit\",Shutdown())\n          ],\n    [ \"Take the \+
derivative of:\"\n    ],\n    [ MathMLViewer['question']('width'=300,'
height'=60)\n    ],\n    [ \"Answer:\",\n      TextField['answer']('wi
dth'=40)\n    ],\n    [ Button(\"Check Answer\", Evaluate('function'=
\"check\")),\n      Button(\"Show Derivative\", Evaluate('function'=\"
show\"))\n    ],\n    [ TextField['reply']('width'=40,'editable'='fals
e')\n    ],\n    [ \"This illustrious maplet brought to you by: Patter
son/Calderon Inc.  Copyright P. Yasskin 2005\"\n    ]\n  ]\n)\n):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "card:=rand(0..1):\nrandp9:=r
and(1..9):\nrand29:=rand(2..9):\nrand3:=rand(1..3):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 336 "ask:=proc()\nlocal a,n,f,b, funcs;\nglobal card, randp9, rand3,
 correctanswer;\nSet('answer'=\"\");\nSet('reply'=\"\");\nSet('reply'=
\"\");\na:=(-1)^card()*randp9();\nb:=(-1)^card()*randp9();\nn:=randp9(
);\nfuncs:=[b*sin(a*x^n), b*cos(a*x^n), b*tan(a*x^n)];\nf:=funcs[rand3
()];\nSet('question'=MathML[Export]('f'=f));\ncorrectanswer:=diff(f,x)
;\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 280 "check:=proc()\nglobal correctanswe
r;\nlocal useranswer;\nuseranswer:=Get('answer'::anything, corrections
=true, update=true):\nif simplify(correctanswer-useranswer)=0\n   then
 Set('reply'=\"Correct!  Try another question.\")\n   else Set('reply'
=\"Incorrect.  Try again.\")\nend if;\nend proc:" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 90 "show:=proc()\nglobal correctanswer;\nSet('ans
wer'=correctanswer);\nSet('reply'=\"\");\nend proc:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 23 "Display( Derivatives );" }}}}{MARK "0 0 0
" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }