loncom/homework/functionplotresponse.pm - diff

Return to functionplotresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.37, 2010/11/13 03:22:58	version 1.38, 2010/11/13 22:30:28
Line 417 sub start_functionplotrule {	Line 417 sub start_functionplotrule {
$token,'8').	$token,'8').
&Apache::edit::text_arg('Optional maximum length for range:','maximumlength',	&Apache::edit::text_arg('Optional maximum length for range:','maximumlength',
$token,'8').'<br />'.	$token,'8').'<br />'.
&Apache::edit::select_arg(&mt('Relationship:'),'relationship',	&Apache::edit::select_or_text_arg(&mt('Relationship:'),'relationship',
[['eq','equal'],	[['eq','equal'],
['ne','not equal'],	['ne','not equal'],
['ge','greater than or equal'],	['ge','greater than or equal'],
Line 595 sub d2dt2_cubic_hermite {	Line 595 sub d2dt2_cubic_hermite {
#	#
sub array_index {	sub array_index {
my ($xmin,$xmax,$x)=@_;	my ($xmin,$xmax,$x)=@_;
return int(($x-$xmin)/($xmax-$xmin)*400.+0.5);	if ($x ne '') {
	return int(($x-$xmin)/($xmax-$xmin)*400.+0.5);
	} else {
	return undef;
	}
}	}

#	#
Line 886 sub functionplotrulecheck {	Line 890 sub functionplotrulecheck {
# Basic sanity checks	# Basic sanity checks
if ($li<0) { $li=0; }	if ($li<0) { $li=0; }
if ($lh>400) { $lh=400; }	if ($lh>400) { $lh=400; }
if ($li>$lh) {	if (($li>$lh) \|\| (!defined($lh))) {
$lh=$li;	$lh=$li;
}	}