version 1.30, 2012/02/17 15:31:04
|
version 1.34, 2017/03/06 23:24:57
|
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*\((|[^)]+))$}) { |
|
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.'));'); |