loncom/homework/lonmaxima.pm - diff

Return to lonmaxima.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.29, 2010/06/14 11:34:18	version 1.36, 2017/03/07 16:04:35
Line 51 sub maximareply {	Line 51 sub maximareply {
print $socket &escape($cmd)."\n";	print $socket &escape($cmd)."\n";
my $reply=<$socket>;	my $reply=<$socket>;
chomp($reply);	chomp($reply);
if ($reply=~/^Incorrect/) { $reply='Error: '.$reply; }	if ($reply=~/^Incorrect/i) { $reply='Error: '.$reply; }
return &unescape($reply);	return &unescape($reply);
} else {	} else {
return 'Error: no connection.';	return 'Error: no connection.';
Line 155 sub maxima_eval {	Line 155 sub maxima_eval {

sub compareterms {	sub compareterms {
my ($socket,$terma,$termb)=@_;	my ($socket,$terma,$termb)=@_;
my $difference=$terma.'-('.$termb.')';	if ($terma =~ m{\(\s\([^)]$}) {
	return 'Error: blacklisted';
	}
	my $difference='('.$terma.')-('.$termb.')';
if (&blacklisted($difference)) { return 'Error: blacklisted'; }	if (&blacklisted($difference)) { return 'Error: blacklisted'; }
my $reply=&maximareply($socket,'trigsimp(trigreduce('.$difference.'));');	my $reply=&maximareply($socket,'trigsimp(trigreduce('.$difference.'));');
if ($reply=~/^\s0\s$/) { return 'true'; }	if ($reply=~/^\s0\s$/) { return 'true'; }