restart:Curve AnalysisMaplet by John Duensing and Cory KlemashevichCorrections by Yasskin:Missing reply boxkappa and tau in symbol fontcurv, tor, aT and aT looking for list, changed to anythingask must empty boxesreplies must be different for different quantitiesadjusted layout and orderwith(Maplets): with(Maplets[Tools]): with(Maplets[Elements]): with(VecCalc): VCalias:
StartEngine();ask:=proc()
global r,correctv, correcta, correctj, correctT,correctN,correctB,rs,rsrand,correctaT,correctaN,correctK,correctTau;
rs:= [[2*t,3*sin(t),3*cos(t)], [2*t^3,-3*t^2,6*t],[cos(t),sin(t),sin(5*t)],[t^2,t,2],[sin(t),sin(t),sqrt(2*cos(t))],[sin(t),cos(t),(sin(t))^2],[cos(t),sin(t),ln(t)],[exp(t),exp(t*sin(t)),exp(t*cos(t))],[t^2,2*t,ln(t)],[t,t^2,t^3],[sec(t),tan(t),0]];
rsrand := rand(1..11);
r:=rs[rsrand()];
correctv:=Cv(r,t);
correcta:=Ca(r,t);
correctj:=Cj(r,t);
correctT:=CT(r,t);
correctN:=CN(r,t);
correctB:=Cross(correctT,correctN);
correctK:=Ck(r,t);
correctTau:=Ct(r,t);
correctaT:=CaT(r,t);
correctaN:=CaN(r,t);
Set('v'="");
Set('a'="");
Set('j'="");
Set('T'="");
Set('N'="");
Set('B'="");
Set('aT'="");
Set('aN'="");
Set('K'="");
Set('Tau'="");
Set('reply'="");
Set('question'=cat(
"Consider the curve r(t) = ",convert(r,string)));
end proc:check1:=proc()
global correctv;
local userv;
userv:=Get('v'::list, corrections=true, update=true):
if (userv=correctv)
then Set('reply'="Correct velocity! Try another question.")
else Set('reply'="Incorrect velocity. Try again.")
end if;
end proc:check2:=proc()
global correctcos;
local usera;
usera:=Get('a'::list, corrections=true, update=true):
if (usera=correcta)
then Set('reply'="Correct acceleration! Try another question.")
else Set('reply'="Incorrect acceleration. Try again.")
end if;
end proc:check3:=proc()
global correctj;
local userj;
userj:=Get('j'::list, corrections=true, update=true):
if (userj=correctj)
then Set('reply'="Correct jerk! Try another question.")
else Set('reply'="Incorrect jerk. Try again.")
end if;
end proc:check4:=proc()
global correctT;
local userT;
userT:=Get('T'::list, corrections=true, update=true):
if (userT=correctT)
then Set('reply'="Correct unit tangent vector! Try another question.")
else Set('reply'="Incorrect unit tangent vector. Try again.")
end if;
end proc:check5:=proc()
global correctN;
local userN;
userN:=Get('N'::list, corrections=true, update=true):
if (userN=correctN)
then Set('reply'="Correct unit normal vector! Try another question.")
else Set('reply'="Incorrect unit normal vector. Try again.")
end if;
end proc:check6:=proc()
global correctB;
local userB;
userB:=Get('B'::list, corrections=true, update=true):
if (userB=correctB)
then Set('reply'="Correct unit binormal vector! Try another question.")
else Set('reply'="Incorrect unit binormal vector. Try again.")
end if;
end proc:check7:=proc()
global correctaT;
local useraT;
useraT:=Get('aT'::anything, corrections=true, update=true):
if (useraT=correctaT)
then Set('reply'="Correct tangential acceleration! Try another question.")
else Set('reply'="Incorrect tangential acceleration. Try again.")
end if;
end proc:check8:=proc()
global correctaN;
local useraN;
useraN:=Get('aN'::anything, corrections=true, update=true):
if (useraN=correctaN)
then Set('reply'="Correct normal acceleration! Try another question.")
else Set('reply'="Incorrect normal acceleration. Try again.")
end if;
end proc:check9:=proc()
global correctK;
local userK;
userK:=Get('K'::anything, corrections=true, update=true):
if (userK=correctK)
then Set('reply'="Correct curvature! Try another question.")
else Set('reply'="Incorrect curvature. Try again.")
end if;
end proc:check10:=proc()
global correctTau;
local userTau;
userTau:=Get('Tau'::anything, corrections=true, update=true):
if (userTau=correctTau)
then Set('reply'="Correct torsion! Try another question.")
else Set('reply'="Incorrect torsion. Try again.")
end if;
end proc:ans1:=proc()
global correctv;
Set('v'=correctv);
end proc:ans2:=proc()
global correcta;
Set('a'=correcta);
end proc:ans3:=proc()
global correctj;
Set('j'=correctj);
end proc:ans4:=proc()
global correctT;
Set('T'=correctT);
end proc:ans5:=proc()
global correctN;
Set('N'=correctN);
end proc:ans6:=proc()
global correctB;
Set('B'=correctB);
end proc:ans7:=proc()
global correctaT;
Set('aT'=correctaT);
end proc:ans8:=proc()
global correctaN;
Set('aN'=correctaN);
end proc:ans9:=proc()
global correctK;
Set('K'=correctK);
end proc:ans10:=proc()
global correctTau;
Set('Tau'=correctTau);
end proc:Curve_Analysis:=Maplet(onstartup = RunWindow(MAIN),
Window[MAIN]('title'="Curve Analysis",
[ [ Button("New Curve", Evaluate('function' = "ask")),
" ",
Button("Quit", Shutdown())
],
[ TextBox['question']('width'=40, 'editable'='false', height=2)
],
[ border=true,
caption="Compute each of the following:",
[ halign=none,
[ "Velocity:",Label("v = ",Font(Times,14,bold)),
TextField['v']('width'=20),
HorizontalGlue(),
Button("Check", Evaluate(function="check1")),
Button("Show", Evaluate(function="ans1"))
],
[ "Acceleration:",Label("a = ",Font(Times,14,bold)),
TextField['a']('width'=20),
HorizontalGlue(),
Button("Check", Evaluate(function="check2")),
Button("Show", Evaluate(function="ans2"))
],
[ "Jerk:",Label("j = ",Font(Times,14, bold)),
TextField['j']('width'=20),
HorizontalGlue(),
Button("Check", Evaluate(function="check3")),
Button("Show", Evaluate(function="ans3"))
]
],
[ halign=none,
[ "Tangent vector:",Label("T = ",Font(Times,14,bold)),
TextField['T']('width'=25),
HorizontalGlue(),
Button("Check", Evaluate(function="check4")),
Button("Show", Evaluate(function="ans4"))
],
[ "Normal vector:",Label("N = ",Font(Times,14,bold)),
TextField['N']('width'=25),
HorizontalGlue(),
Button("Check", Evaluate(function="check5")),
Button("Show", Evaluate(function="ans5"))
],
[ "Binormal vector:",Label("B = ",Font(Times,14,bold)),
TextField['B']('width'=25),
HorizontalGlue(),
Button("Check", Evaluate(function="check6")),
Button("Show", Evaluate(function="ans6"))
]
]
],
[ border=true,
[ halign=none,
[ "Curvature:",Label("k = ",Font(Symbol,14,bold)),
TextField['K']('width'=20),
HorizontalGlue(),
Button("Check", Evaluate(function="check9")),
Button("Show", Evaluate(function="ans9"))
],
[ "Torsion:",Label("t = ",Font(Symbol,14,bold)),
TextField['Tau']('width'=20),
HorizontalGlue(),
Button("Check", Evaluate(function="check10")),
Button("Show", Evaluate(function="ans10"))
]
],
[ halign=none,
[ "Tangental acceleration:",Label("aT = ",Font(Times,14,bold)),
TextField['aT']('width'=20),
HorizontalGlue(),
Button("Check", Evaluate(function="check7")),
Button("Show", Evaluate(function="ans7"))
],
[ "Normal acceleration:",Label("aN = ",Font(Times,14,bold)),
TextField['aN']('width'=20),
HorizontalGlue(),
Button("Check", Evaluate(function="check8")),
Button("Show", Evaluate(function="ans8"))
]
]
],
[ TextField[reply](width=60)
],
[ halign=none, background="#DDFFFF", inset=0, spacing=0,
"Programmers: John Duensing and Cory Klemashevich",
HorizontalGlue(),
"\302\251 Copyright: P. Yasskin 2006"
]
]
)
):Display(Curve_Analysis);