Diff for /loncom/homework/lonmaxima.pm between versions 1.34 and 1.35

version 1.34, 2017/03/06 23:24:57 version 1.35, 2017/03/07 01:56:56
Line 155  sub maxima_eval { Line 155  sub maxima_eval {
   
 sub compareterms {  sub compareterms {
     my ($socket,$terma,$termb)=@_;      my ($socket,$terma,$termb)=@_;
     if ($terma =~ m{[.*^/\s]+(|\(\s*\((|[^)]+))$}) {      my $difference='('.$terma.')-('.$termb.')';
         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=~/^\s*0\s*$/) { return 'true'; }      if ($reply=~/^\s*0\s*$/) { return 'true'; }

Removed from v.1.34  
changed lines
  Added in v.1.35


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>