| … | |
… | |
| 359 | $context->functions->set( |
359 | $context->functions->set( |
| 360 | "$_"=>{class => 'LimitedPolynomial::Function::trig'}, |
360 | "$_"=>{class => 'LimitedPolynomial::Function::trig'}, |
| 361 | "${_}h"=>{class => 'LimitedPolynomial::Function::hyperbolic'} |
361 | "${_}h"=>{class => 'LimitedPolynomial::Function::hyperbolic'} |
| 362 | ); |
362 | ); |
| 363 | } |
363 | } |
|
|
364 | # |
|
|
365 | # Don't convert -ax-b to -(ax+b), etc. |
|
|
366 | # |
|
|
367 | $context->reduction->set("(-x)-y"=>0); |
| 364 | |
368 | |
| 365 | main::Context("LimitedPolynomial"); ### FIXME: probably should require author to set this explicitly |
369 | main::Context("LimitedPolynomial"); ### FIXME: probably should require author to set this explicitly |
| 366 | } |
370 | } |
| 367 | |
371 | |
| 368 | 1; |
372 | 1; |