<%@ LANGUAGE="VBSCRIPT" %>
<%
Set Obj = Server.CreateObject("WebHW.problem")
Obj.Problem_init
%>
<html>
<head>
<title>
WebHW Problem</title>
<LINK REL=
STYLESHEET HREF=<%= Session("VRoot") & "styles.css" %> TYPE="text/css">

<script language="JavaScript">
function setup(){
    document.webhw.setAutoRefresh(false);
    document.webhw.setDefault();
    document.webhw.shiftPixOrigin(-150,0);
    document.webhw.setPixPerUnit(5);
    document.webhw.setGridUnit(0);
    document.webhw.addObject("rectangle","h=100, w=400, x=30, y=-12");
    id1=document.webhw.addObject("rectangle","h=20, w=20");
    document.webhw.setTrajectory(id1, "<%= 20 + Session("R1") %>*t","0");
    document.webhw.setRGB(id1, 0,0,255);
    document.webhw.setTimeOneShot(10, "End of Animation");
    document.webhw.setAutoRefresh(true);
}
</script>
</head>

<body onload="setup()">

<% Obj.Problem_Begin %>

<center>
<applet codebase=
"<%= Session("VRoot")& "Physlet_classes" %>"
    archive="Animator4_.jar,STools4.jar"
    code="animator4.Animator.class" align="baseline" width="400" height="200" id="webhw"
    name="webhw">
    <param name=
"FPS" value="50">
    <param name=
"dt" value="0.01">
    <param name=
"showControls" value="true">
</applet>
</p>
</center>

<p>
<p>
Be sure to use the applet time display for your measurements.
<hr>
<p>
How long (in seconds) does it take for the block to completely exit the applet window?

<% Session("whw_N1_Answer") = 71.7 / (20 + Session("R1")) %>
<% Obj.Output_numeric_question(1) %>
s
<% Obj.Problem_End %>

<hr>
<% Obj.Problem_status %>
</body>
</html>