loncom/homework/functionplotresponse.pm - diff

Return to functionplotresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.66, 2011/10/14 00:40:24	version 1.68, 2011/10/19 13:21:51
Line 164 sub update_register {	Line 164 sub update_register {
sub set_point_coordinate {	sub set_point_coordinate {
my ($id,$variable,$x,$y,$fixed)=@_;	my ($id,$variable,$x,$y,$fixed)=@_;
my $mult=($fixed?'a*':'');	my $mult=($fixed?'a*':'');
	# Get rid of wild exponents, make sure it's a number
	$x=1.*$x;
	$y=1.*$y;
	# GeoGebra does not understand "E"
	$x=~s/[e\|E]/\*10\^/;
	$x=~s/\+//;
	$y=~s/[e\|E]/\*10\^/;
	$y=~s/\+//;
return (<<ENDSETVARIABLE);	return (<<ENDSETVARIABLE);
document.ggbApplet_$id.evalCommand("a=1");	document.ggbApplet_$id.evalCommand("a=1");
document.ggbApplet_$id.evalCommand("$variable=$mult($x,$y)");	document.ggbApplet_$id.evalCommand("$variable=$mult($x,$y)");
Line 973 sub compare_rel {	Line 981 sub compare_rel {

sub addlog {	sub addlog {
my ($text)=@_;	my ($text)=@_;
	$text=~s/\'/\\\'/g;
$Apache::functionplotresponse::ruleslog.=$text.'<br />';	$Apache::functionplotresponse::ruleslog.=$text.'<br />';
}	}