--- loncom/homework/templates/Plot_curve.problem	2004/04/22 17:14:30	1.3
+++ loncom/homework/templates/Plot_curve.problem	2009/07/06 17:12:47	1.6
@@ -1,27 +1,27 @@
 <problem>
 
 <script type="loncapa/perl">
-# Enter computations here
+$amplitude=&random(0.5,3.5,0.5);
+$omega=&random(1,2,0.5);
+$function="$amplitude*sin($omega*x)";
 </script>
 
-<gnuplot width="300" transparent="off" samples="100" grid="on" font="large" bgcolor="xffffff" height="300" align="left" fgcolor="x000000" border="on" plottype="Cartesian" >
+<gnuplot width="300" transparent="off" samples="100" grid="on" font="9" bgcolor="xffffff" height="300" align="left" fgcolor="x000000" border="on" plottype="Cartesian" >
     <axis xmin="-5" ymin="-4" xmax="5" ymax="4" color="x000000" />
     <xlabel>Label X</xlabel>
     <ylabel>Label Y</ylabel>
     <curve linestyle="linespoints" name="My Plot" pointtype="0" color="x000000">
-        <function>sin(x)</function>
+        <function>$function</function>
     </curve>
 </gnuplot>
 
-<startouttext />Enter Question Text Here.<endouttext />
+<startouttext />
+What is the amplitude of this function?
+<endouttext />
 
-<numericalresponse answer="">
+<numericalresponse answer="$amplitude" format="2s">
     <responseparam name="tol" type="tolerance" description="Numerical Tolerance" default="5%" />
-    <responseparam name="sig" type="int_range,0-16" description="Significant Figures" default="0,15" />
-    <textline />
-<hintgroup>
-<startouttext /><endouttext />
-</hintgroup>
+    <textline readonly="no" />
 </numericalresponse>
-</problem>
 
+</problem>