Annotation of loncom/homework/templates/Plot_data.problem, revision 1.4
1.1 matthew 1: <problem>
2:
3: <script type="loncapa/perl">
1.4 ! www 4: $amplitude = &random(1,4,0.5);
! 5: $x_min = -5;
! 6: $x_max = 5;
! 7: for ($x=$x_min;$x<=$x_max;$x=$x+0.05) {
! 8: push(@X,$x);
! 9: push(@Y,$amplitude*sin($x));
! 10: }
1.1 matthew 11: </script>
12:
1.3 albertel 13: <gnuplot width="300" transparent="off" samples="100" grid="on" font="9" bgcolor="xffffff" height="300" align="left" fgcolor="x000000" border="on" plottype="Cartesian" >
1.4 ! www 14: <axis xmin="$x_min" ymin="-5" xmax="$x_max" ymax="5" color="x000000" />
1.1 matthew 15: <xlabel>Label X</xlabel>
16: <ylabel>Label Y</ylabel>
17: <curve linestyle="linespoints" name="My Plot" pointtype="0" color="x000000">
1.4 ! www 18: <data>@X</data>
! 19: <data>@Y</data>
1.1 matthew 20: </curve>
21: </gnuplot>
22:
1.4 ! www 23: <startouttext />What is the amplitude of this function?<endouttext />
1.1 matthew 24:
1.4 ! www 25: <numericalresponse answer="$amplitude" format="2s">
1.1 matthew 26: <responseparam name="tol" type="tolerance" description="Numerical Tolerance" default="5%" />
1.4 ! www 27:
! 28: <textline readonly="no" />
! 29:
1.1 matthew 30: </numericalresponse>
31: </problem>
32:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>