File:
[LON-CAPA] /
loncom /
homework /
templates /
Plot_data.problem
Revision
1.6:
download - view:
text,
annotated -
select for diffs
Sun Aug 1 14:15:12 2010 UTC (14 years ago) by
www
Branches:
MAIN
CVS tags:
version_2_12_X,
version_2_11_X,
version_2_11_5_msu,
version_2_11_5,
version_2_11_4_uiuc,
version_2_11_4_msu,
version_2_11_4,
version_2_11_3_uiuc,
version_2_11_3_msu,
version_2_11_3,
version_2_11_2_uiuc,
version_2_11_2_msu,
version_2_11_2_educog,
version_2_11_2,
version_2_11_1,
version_2_11_0_RC3,
version_2_11_0_RC2,
version_2_11_0_RC1,
version_2_11_0,
version_2_10_X,
version_2_10_1,
version_2_10_0_RC2,
version_2_10_0_RC1,
version_2_10_0,
loncapaMITrelate_1,
language_hyphenation_merge,
language_hyphenation,
HEAD,
BZ4492-merge,
BZ4492-feature_horizontal_radioresponse,
BZ4492-feature_Support_horizontal_radioresponse,
BZ4492-Support_horizontal_radioresponse
Bandaid for Bug #6242: put a safeguard into the sample code
<problem>
<script type="loncapa/perl">
#
# This example populates arrays with the x and y coordinates of the plot.
# For continuous functions, another approach is to use curve plots.
#
$amplitude = &random(1,4,0.5);
$x_min = -5;
$x_max = 5;
for ($x=$x_min;$x<=$x_max;$x=$x+0.05) {
push(@X,$x);
push(@Y,$amplitude*sin($x));
# Safeguard:
# The following line limits the size of the array to 1000 to avoid infinite loops
if (($#X>1000) || ($#Y>1000)) { last; }
}
</script>
<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="$x_min" ymin="-5" xmax="$x_max" ymax="5" color="x000000" />
<xlabel>Label X</xlabel>
<ylabel>Label Y</ylabel>
<curve linestyle="linespoints" name="My Plot" pointtype="0" color="x000000">
<data>@X</data>
<data>@Y</data>
</curve>
</gnuplot>
<startouttext />
What is the amplitude of this function?
<endouttext />
<numericalresponse answer="$amplitude" format="2s">
<responseparam name="tol" type="tolerance" description="Numerical Tolerance" default="5%" />
<textline readonly="no" />
</numericalresponse>
</problem>
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>