Frederick Doe & Bishoy KhalilProjectile Motionrestart:with(Maplets[Tools]): with(Maplets[Elements]): with(plots):
StartEngine();randomize():lightorange:="#FFB300":
lightcyan:="#DDFFFF":ColorFooter:=lightcyan:
FontFooter:=Font("helvetica",10):
FontSymbol:=Font("symbol",16):rand10:=rand(1..10):
randangle:=rand(1..6):
randheight:=rand(1..50):Acceleration:=9.81:setg:=proc()
global Acceleration;
local location;
location:=Get(DDB1);
if location="Earth / 9.81 m/s^2" then Acceleration:=9.81;
elif location="Sun / 274.13 m/s^2" then Acceleration:=274.13;
elif location="Mercury / 3.59 m/s^2" then Acceleration:=3.59;
elif location="Venus / 8.87 m/s^2" then Acceleration:=8.87;
elif location="Moon / 1.62 m/s^2" then Acceleration:=1.62;
elif location="Mars / 3.77 m/s^2" then Acceleration:=3.77;
elif location="Jupitor / 25.95 m/s^2" then Acceleration:=25.95;
elif location="Saturn / 11.08 m/s^2" then Acceleration:=11.08;
elif location="Uranus / 10.67 m/s^2" then Acceleration:=10.67;
elif location="Neptune / 14.07 m/s^2" then Acceleration:=14.07;
elif location="Pluto / 0.42 m/s^2" then Acceleration:=0.042;
end if;
Set(height="");
Set(distance="");
Set(time="");
Set(angle="");
Set(velocity="");
Set(initialheight="");
end proc:start:=proc()
global Angle, Velocity, Acceleration, CorrectTime, CorrectDistance, TimeMax, CorrectHeight, CorrectTimeRound, CorrectDistanceRound, CorrectHeightRound, RadAngle, rand100, randangle, InitialHeight, Time1, Time2;
Velocity:=10*rand10();
Set(velocity=Velocity);
if Get(deg) then
Angle:=15*randangle();
Set(angle=Angle);
RadAngle:=Angle*(Pi/180);
else
Angle:=15*randangle()*(Pi/180);
Set(angle=cat("(", convert(Angle/Pi,string), ")*Pi"));
RadAngle:=Angle;
end if;
InitialHeight:=randheight();
Set(initialheight=InitialHeight);
Set(height="");
Set(distance="");
Set(time="");
CorrectTime:=evalf((Velocity*sin(RadAngle)+((Velocity*sin(RadAngle))^2+4*.5*Acceleration*InitialHeight)^.5)/Acceleration);
CorrectTimeRound:=round(10*CorrectTime)/10.;
CorrectDistance:=evalf(Velocity*cos(RadAngle)*CorrectTime);
CorrectDistanceRound:=round(10*CorrectDistance)/10.;
TimeMax:=(sin(RadAngle)*Velocity)/(Acceleration);
CorrectHeight:=evalf(((Velocity*sin(RadAngle))^2)/(2*Acceleration)+InitialHeight);
CorrectHeightRound:=round(10*CorrectHeight)/10.;
end proc:checktime:=proc()
local usertime, usertimeRound;
usertime:=Get(time::algebraic);
usertimeRound:=round(10*usertime)/10.;
if usertimeRound=CorrectTimeRound then
if Velocity<20 and Velocity>0
then Set(replymain="Good Job, Dr. Yasskin is proud of you!")
elif Velocity>=20 and Velocity<40
then Set(replymain="That's what I'm computing about! Good Job!")
elif Velocity>=40 and Velocity<60
then Set(replymain="Keep it up, and you might just get an 'A' in this course!")
elif Velocity>=60 and Velocity<80
then Set(replymain="I think we might have a genius on our hands!")
elif Velocity>=80 and Velocity<100
then Set(replymain="That was magically correct!")
end if;
else
if Angle>=36 and Angle<54
then Set(replymain="Try again, you might just get it right next time!")
elif Angle>72 and Angle<90
then Set(replymain="This is NOT longhorn country, kid, stop whining and try again!")
elif Angle>0 and Angle<18
then Set(replymain="What separates Aggies from teasips is determination. TRY AGAIN")
elif Angle>=18 and Angle<36
then Set(replymain="Hooray!!!! just kidding; try again.")
elif Angle>=54 and Angle<72
then Set(replymain="I won't tell anyone about that mistake if you try again.")
end if;
end if;
end proc:displaytime:=proc()
Set(time=CorrectTime);
if InitialHeight>=30 and InitialHeight<40
then Set(replymain="Maybe you should try to calculate the answer now?")
elif InitialHeight>=40 and InitialHeight<50
then Set(replymain="I'm not gonna always be here for you, you know!")
elif InitialHeight>0 and InitialHeight<10
then Set(replymain="DUDE!!! Do your own work!")
elif InitialHeight>=10 and InitialHeight<20
then Set(replymain="If you don't do the next one, I'm reporting you!")
elif InitialHeight>=20 and InitialHeight<30
then Set(replymain="I usually don't give away answers, so DON'T GET USED TO IT!")
end if;
end proc:checkdistance:=proc()
local usertime, userdistance, userdistanceRound;
userdistance:=Get(distance::algebraic);
userdistanceRound:=round(10*userdistance)/10.;
if userdistanceRound=CorrectDistanceRound then
if Velocity>=40 and Velocity<60
then Set(replymain="Good Job, Dr. Yasskin is proud of you!")
elif Velocity>0 and Velocity<20
then Set(replymain="That's what I'm computing about! Good Job!")
elif Velocity>=60 and Velocity<80
then Set(replymain="Keep it up, and you might just get an 'A' in this course!")
elif Velocity>=80 and Velocity<100
then Set(replymain="I think we might have a genius on our hands!")
elif Velocity>=20 and Velocity<40
then Set(replymain="That was magically correct!")
end if;
else
if Angle>=18 and Angle<36
then Set(replymain="Try again, you might just get it right next time!")
elif Angle>0 and Angle<18
then Set(replymain="This is NOT longhorn country, kid, stop whining and try again!")
elif Angle>=54 and Angle<72
then Set(replymain="What separates Aggies from teasips is determination. TRY AGAIN")
elif Angle>=72 and Angle<90
then Set(replymain="Hooray!!!! just kidding; try again.")
elif Angle>=36 and Angle<54
then Set(replymain="I won't tell anyone about that mistake if you try again.")
end if;
end if;
end proc:displaydistance:=proc()
Set(distance=CorrectDistance);
if InitialHeight>=20 and InitialHeight<30
then Set(replymain="Maybe you should try to calculate the answer now?")
elif InitialHeight>0 and InitialHeight<10
then Set(replymain="I'm not gonna always be here for you, you know!")
elif InitialHeight>=30 and InitialHeight<40
then Set(replymain="DUDE!!! Do your own work!")
elif InitialHeight>=10 and InitialHeight<20
then Set(replymain="If you don't do the next one, I'm reporting you!")
elif InitialHeight>=40 and InitialHeight<50
then Set(replymain="I usually don't give away answers, so DON'T GET USED TO IT!")
end if;
end proc:checkheight:=proc()
local usertime, userdistance, userheight, userheightRound;
userheight:=Get(height::algebraic);
userheightRound:=round(10*userheight)/10.;
if userheightRound=CorrectHeightRound then
if Velocity>=60 and Velocity<80
then Set(replymain="Good Job, Dr. Yasskin is proud of you!")
elif Velocity>=80 and Velocity<100
then Set(replymain="That's what I'm computing about! Good Job!")
elif Velocity>0 and Velocity<20
then Set(replymain="Keep it up, and you might just get an 'A' in this course!")
elif Velocity>=20 and Velocity<40
then Set(replymain="I think we might have a genius on our hands!")
elif Velocity>=40 and Velocity<60
then Set(replymain="That was magically correct!")
end if;
else
if Angle>0 and Angle<18
then Set(replymain="Try again, you might just get it right next time!")
elif Angle>=18 and Angle<36
then Set(replymain="This is NOT longhorn country, kid, stop whining and try again!")
elif Angle>=36 and Angle<54
then Set(replymain="What separates Aggies from teasips is determination. TRY AGAIN")
elif Angle>=54 and Angle<72
then Set(replymain="Hooray!!!! just kidding; try again.")
elif Angle>=72 and Angle<90
then Set(replymain="I won't tell anyone about that mistake if you try again.")
end if;
end if;
end proc:displayheight:=proc()
Set(height=CorrectHeight);
if InitialHeight<10 and InitialHeight>0
then Set(replymain="Maybe you should try to calculate the answer now?")
elif InitialHeight>=20 and InitialHeight<30
then Set(replymain="I'm not gonna always be here for you, you know!")
elif InitialHeight>=10 and InitialHeight<20
then Set(replymain="DUDE!!! Do your own work!")
elif InitialHeight>=40 and InitialHeight<50
then Set(replymain="If you don't do the next one, I'm reporting you!")
elif InitialHeight>=30 and InitialHeight<40
then Set(replymain="I usually don't give away answers, so DON'T GET USED TO IT!")
end if;
end proc:ProjectileMotion:= Maplet(onstartup = RunWindow(MAIN),
Window[MAIN](title="Projectile Motion",
[ halign=none,
[ Button("Let's get started!", Evaluate(function = "start"), background=magenta),
HorizontalGlue(),
RadioButton[deg]("Degrees",group=DorR,true),
RadioButton[rad]("Radians",group=DorR),
HorizontalGlue(),
Button("Good Bye", Shutdown(), background=pink)
],
[ "Pick the location/acceleration due to gravity that you would like to use: ",
DropDownBox['DDB1']( "Earth / 9.81 m/s^2",
[ "Sun / 274.13 m/s^2", "Mercury / 3.59 m/s^2", "Venus / 8.87 m/s^2", "Earth / 9.81 m/s^2", "Moon / 1.62 m/s^2", "Mars / 3.77 m/s^2", "Jupitor / 25.95 m/s^2", "Saturn / 11.08 m/s^2", "Uranus / 10.67 m/s^2", "Neptune / 14.07 m/s^2", "Pluto / 0.42 m/s^2" ], onchange=Evaluate(function="setg")
),
HorizontalGlue()
],
[ inset=0,
BoxRow( border=true,caption="Speed at Launch:",
"v0 =",
TextField[velocity](width=20, editable=false, background=white)
),
BoxRow( border=true,caption="Angle at Launch:",
Label("qo", font=FontSymbol), "=",
TextField[angle](width=20, editable=false, background=white)
)
],
[ border=true,caption="Initial Position:",
"x0 =",
TextField[initialx]("0", width=10, editable=false, background=white),
" y0 =",
TextField[initialheight](width=10, editable=false, background=white)
],
[ border=true,caption="Time in Air",
TextField[time](width=30, background=turquoise),
Button("Check", Evaluate(function = "checktime"), background=green),
Button("Show Answer", Evaluate(function = "displaytime"), background=lightorange)
],
[ border=true,caption="Distance Travelled",
TextField[distance](width=30, background=turquoise),
Button("Check", Evaluate(function = "checkdistance"), background=green),
Button("Show Answer", Evaluate(function = "displaydistance"), background=lightorange)
],
[ border=true,caption="Maximum Height",
TextField[height](width=30, background=turquoise),
Button("Check", Evaluate(function = "checkheight"), background=green),
Button("Show Answer", Evaluate(function = "displayheight"), background=lightorange)
],
TextField[replymain](width=30, editable=false),
[ halign=none, background=ColorFooter,
Label("Programmers: Frederick Doe & Bishoy Khalil", font=FontFooter),
HorizontalGlue(),
Label("Copyright: P. Yasskin 2008", font=FontFooter)
]
]
),
ButtonGroup[DorR]()
):Maplets[Display]( ProjectileMotion );