loncom/homework/lonmaxima.pm - diff

Return to lonmaxima.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.31, 2017/03/04 19:43:47	version 1.32, 2017/03/05 19:30:56
Line 155 sub maxima_eval {	Line 155 sub maxima_eval {

sub compareterms {	sub compareterms {
my ($socket,$terma,$termb)=@_;	my ($socket,$terma,$termb)=@_;
$terma =~s/[\.\*\^\/\s]+$//;	if ($terma =~ m{[.^/\s]+(\|\(\s\()$}) {
	return 'Error: blacklisted';
	}
my $difference=$terma.'-('.$termb.')';	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.'));');