loncom/homework/lonmaxima.pm - diff

Return to lonmaxima.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.9, 2006/12/15 22:11:43	version 1.11, 2006/12/19 14:24:05
Line 95 sub maxima_run {	Line 95 sub maxima_run {
}	}
my $argument_index=1;	my $argument_index=1;
foreach my $argument_component (@{$argument}) {	foreach my $argument_component (@{$argument}) {
$fullscript.="LONCAPALIST[$argument_index]:$argument_component;\n";	$fullscript.="LONCAPALIST[$argument_index]:".&maxima_cas_formula_fix($argument_component).";\n";
$argument_index++;	$argument_index++;
}	}
$fullscript.=$script;	$fullscript.=$script;
Line 106 sub maxima_run {	Line 106 sub maxima_run {
return 'BAD_FORMULA';	return 'BAD_FORMULA';
}	}

	sub maxima_eval {
	my ($script) = @_;
	my $socket=&connect();
	my $reply=&runscript($socket,$script);
	&disconnect($socket);
	return $reply;
	}


sub compareterms {	sub compareterms {
my ($socket,$terma,$termb)=@_;	my ($socket,$terma,$termb)=@_;
my $difference=$terma.'-'.$termb;	my $difference=$terma.'-'.$termb;