Alyssa FaughtMath 152-201Fall 2007restart:with(Maplets[Elements]): with(Maplets[Tools]): with(plots):
StartEngine();randomize():lightorange:="#FFB300":FontBig:=Font("times",20):goods:=["Way to go!", "You're awesome!", "Correct!", "You're right!"]:randgood:=rand(1..nops(goods)):bads:=["Sorry, try again.", "Check your work.", "Better luck next time."]:randbad:=rand(1 .. nops(bads)):shows:=["Now try one on your own.", "Try another example."]:randshow:=rand(1..nops(shows)):randpm:=rand(0..1):neweq:=proc()
global f,fm2,fm1,f0,f1,f2,C,correct;
local randnum;
f:=0;
fm2,f2:=0,0;
while nops([coeffs(f)])>4 or diff(f,x)=0 or f2-fm2<10 do
f:=sort(expand(randpoly(x+2, coeffs=rand(0..5), degree=4, terms=2)));
fm2:=eval(f,x=-2);
f2:=eval(f,x=2);
end do;
randnum:=rand(fm2..f2);
f:=(-1)^randpm()*(f-randnum());
fm2:=eval(f,x=-2);
fm1:=eval(f,x=-1);
f0:=eval(f,x=0);
f1:=eval(f,x=1);
f2:=eval(f,x=2);
randnum:=rand(min(fm2,f2)..max(fm2,f2));
C:=f0;
while C in {fm2,fm1,f0,f1,f2} do
C:=randnum();
end do;
if C>min(fm1,fm2) and C<max(fm1,fm2) then correct:=1 end if;
if C>min(fm1,f0) and C<max(fm1,f0) then correct:=2 end if;
if C>min(f1,f0) and C<max(f1,f0) then correct:=3 end if;
if C>min(f1,f2) and C<max(f1,f2) then correct:=4 end if;
Set(MMLquestion(value)=(f=C));
Set(Response="", Response(background)=white);
Set(Tfm2="");
Set(Tfm1="");
Set(Tf0="");
Set(Tf1="");
Set(Tf2="");
Set(RB1=false);
Set(RB2=false);
Set(RB3=false);
Set(RB4=false);
Set(CalcIn="");
Set(CalcOut="");
end proc:checkvalues:=proc()
global fm2,fm1,f0,f1,f2;
local userfm2,userfm1,userf0,userf1,userf2;
userfm2:=Get(Tfm2::realcons);
userfm1:=Get(Tfm1::realcons);
userf0:=Get(Tf0::realcons);
userf1:=Get(Tf1::realcons);
userf2:=Get(Tf2::realcons);
if userfm2=fm2 and userfm1=fm1 and userf0=f0 and userf1=f1 and userf2=f2 then
Set(Response(value)=goods[randgood()], Response(background)=green);
else
Set(Response(value)=bads[randbad()], Response(background)=red);
end if;
end proc:showvalues:=proc()
global fm2,fm1,f0,f1,f2;
Set(Tfm2=fm2);
Set(Tfm1=fm1);
Set(Tf0=f0);
Set(Tf1=f1);
Set(Tf2=f2);
Set(Response(value)=shows[randshow()], Response(background)=lightorange);
end proc:checkchoice:=proc()
global correct;
if (Get(RB1) and correct=1) or (Get(RB2) and correct=2) or
(Get(RB3) and correct=3) or (Get(RB4) and correct=4) then
Set(Response(value)=goods[randgood()], Response(background)=green);
else
Set(Response(value)=bads[randbad()], Response(background)=red);
end if;
end proc:showchoice:=proc ()
global correct;
if correct=1 then Set(RB1=true) end if;
if correct=2 then Set(RB2=true) end if;
if correct=3 then Set(RB3=true) end if;
if correct=4 then Set(RB4=true) end if;
Set(Response(value)=shows[randshow()], Response(background)=lightorange)
end proc:CalcExact:=true:Calculator:=proc()
global CalcExact;
local calc;
options `Copyright 2006-07, Philip B. Yasskin and Douglas Meade, Maplets for Calculus`;
if Get(CalcIn)="" then
return;
end if;
if CalcExact then
calc := simplify(Get(CalcIn::realcons, corrections=true, update=true)):
else
calc := evalf(Get(CalcIn::realcons, corrections=true, update=true)):
end if;
Set(CalcOut = calc):
end proc:IVT:=Maplet(onstartup=RunWindow(MAIN),
Window[MAIN](title="Intermediate Value Theorem", defaultbutton=BCalc,
[ halign=none, valign=none, inset=0, spacing=0,
[ halign=none,
Button("New Equation", onclick=Evaluate(function="neweq"),
background=magenta),
HorizontalGlue(),
Button("Quit", Shutdown(), background=pink)
],
[ border=true,
caption="Which interval contains a solution of the following equation?",
Label("f(x) = ", font=FontBig),
MathMLViewer[MMLquestion](width=400, height=40)
],
[ border=true,
caption="Compute:",
Label("f(-2) = ", font=FontBig),
TextField[Tfm2](width=4, background=turquoise),
HorizontalGlue(),
Label("f(-2) = ", font=FontBig),
TextField[Tfm1](width=4, background=turquoise),
HorizontalGlue(),
Label("f(0) = ", font=FontBig),
TextField[Tf0](width=4, background=turquoise),
HorizontalGlue(),
Label("f(1) = ", font=FontBig),
TextField[Tf1](width=4, background=turquoise),
HorizontalGlue(),
Label("f(2) = ", font=FontBig),
TextField[Tf2](width=4, background=turquoise),
Button("Check", Evaluate(function="checkvalues"), background=green),
Button("Show", Evaluate(function="showvalues"), background=lightorange)
],
[ border=true,
caption="Choose:",
HorizontalGlue(),
RadioButton[RB1](value=false, group=BG1, background=turquoise),
Label("[-2 , -1]", font=FontBig),
HorizontalGlue(),
RadioButton[RB2](value=false, group=BG1, background=turquoise),
Label("[-1 , 0]", font=FontBig),
HorizontalGlue(),
RadioButton[RB3](value=false, group=BG1, background=turquoise),
Label("[0 , 1]", font=FontBig),
HorizontalGlue(),
RadioButton[RB4](value=false, group=BG1, background=turquoise),
Label("[1 , 2]", font=FontBig),
HorizontalGlue(),
Button("Check",Evaluate(function="checkchoice"), background=green),
Button("Show", Evaluate(function="showchoice"), background=lightorange)
],
[ border=true,
"Response:",
TextField[Response](width=60)
],
[ background=gold, border=true,
caption="Calculator",
"Enter a Formula:",
TextField[CalcIn](width=30, background=turquoise),
HorizontalGlue(),
"Evaluate:",
Button[BCalc]("Exact", Evaluate(function = "Calculator"),
background=turquoise),
TextField[CalcOut](width=10, editable=false, background=white)
],
[ halign=none,
"Programmer: Alyssa Faught",
HorizontalGlue(),
"Copyright P. Yasskin 2007"
]
]
),
ButtonGroup[BG1]()
):Maplets[Display]( IVT );